kuroi

como assim?? você ta tendo algum problema pra somar??

ele vai copiar todas as dlls e ocxs q tão adicionadas ao projeto. ai normalmente so adicionamos o q vamos usar e por isso, tudo o q ele copia são arquivos q a gente ta usando. então se você adicionou alguma dll ou ocx no projeto e você não ta usando, então exclua e compile de novo e ai faca o instalador de novo.

serio?? aqui não é perceptivel dessincronia não. não no teste q eu fiz. ate enchi de controles o formulario pra ver se dexava mais pesado, mas com o interval do timer em 1, ele move perfeito. bom, talvez isso varia dependendo da capacidade do sistema e do hardware, mas se você quiser da uma olhada, esse é o projeto q eu fiz aqui: forms.rar agora se pra você realmente isso não ta ficando legal, então ai fica foda. porque tipo, você não consegue saber quando é clicado na barra de titulos do form. e tb não da pra saber facil quando o form é movido. a não ser q você esconda a barra de titulos do form e faca ela com picture box por exemplo, e ai você pega pelo clique no proprio formulario. agora, pra descobrir quando o form é movido na barra de titulos, isso já saiu no forum uma vez, e ai o graymalkin passou essa dica aqui: Cara, deve ter sim. O lance é saber quando a janela é movimentada (não tem um evento para isso), o que creio ser possível fazer monitorando as mensagens enviadas à janela. No final de semana vou dar uma pesquisada a respeito. acho q ele quis dizer alguma coisa relacionada a api SendMessage. mas acho q você pode tb tentar alguma coisa com as apis SetCapure e ReleaseCapture. com elas você pode pegar a posicao do mouse na tela (mesmo q não esteja dentro do formulario) e ai você talvez consiga fazer alguma coisa a partir disso. veja ai, e qualquer coisa poste. e tb avisa o q você descobrir ai, falou. EDITADO: e pra falar a verdade, to pensando aqui agora, uma forma bem melhor de fazer isso em vez de usar varios forms, seria usar varios usercontrols. em vez de criar forms, você cria usercontrols. e ai em vez de mostrar o form e tentar dexar dentro do form principal, você simplesmente poe os usercontrols la e vai exibindo e escondendo de acordo com o q você for mostrar.

ou seu problema é junta os dados de varias tabelas num relatorio so?? se as tabelas tiverem relacionamento entre suas chaves primarias, é so você adicionar todas no relatorio e abir o visual linking expert e fazer o link. senao outra opcao é você fazer a consulta (view) e salvar no seu banco de dados. por exemplo, se você tiver usando access, você clica la em nova consulta, faz a selecao como você quer e dexa salva la. ai você aponta o relatoria pra essa consulta. a consulta funcionaria como a sua tabela temporaria, entendeu?? so q ela é dinamica, ela faz a selecao a cada vez q for chamada. otra opcao ainda é fazer como eu explico aqui: http://scriptbrasil.com.br/forum/index.php...st&p=477615 qualquer duvida, pergunta.

a isso não é uma coisa muito boa de se fazer. se é pra guardar numero é melhor usar numerico, é pra isso mesmo q existe o tipo de dados numerico. primero porque vai ocupar bem menos espaco em disco (e na memoria quando você fizer a selecao) se você fizer como numerico. e depois q se você tiver q fazer soma, ou funcaos tipo sum(), você vai ter problemas como texto. ai você tem q saber, o q identifica cada registro?? a mas tem q ter. mesmo q você não sete no access como chave, você tem q ter um codigo, alguma coisa q seja identidade mesmo q sejam mais de dois campos. você não tem o codigo da conta ou qualquer coisa assim?? se não tiver então vai ter q incluir, mesmo q seja um campo autonumeracao. ela ta hospedada em servidor?? é so passar o link então. aquele link q você passo em cima não ta funcionando. tem a opcao la embaxo pra anexar arquivo tb.

acho q é so pegar pelo activecontrol não?? exemplo: If Me.ActiveControl.Name = "txtCodigo" Then MsgBox "Está em txtCodigo." ElseIf Me.ActiveControl.Name = "txtCodigoFornecedor" Then MsgBox "Está em txtCodigoFornecedor." End If[/code]

a não sei, nesse seu codigo qual é esse campo q tem virgula?? não sei qual é, mas por exemplo, se for o total, seria isso: .... frase = frase & "'" & Format(Vencto, "dd/mm/yyyy") & "'," If x = 1 Then frase = frase & "" & parcela + diferenca & "," Else frase = frase & "" & parcela & "," End If frase = frase & Replace(CStr(total), ",", ".") & ")" Vencto = DateAdd("m", 1, Vencto)[/code]

musashi, não entendi o q quis dizer

é, nunca vi um filme desse cara nd... to achando q ele nem existe não conheco esse programa, o chuk norris aparece la??

td bem q eu não entendi a piada do mleandro, mas o tópico tava bom ate falarem no chuk norris. ate hj não sei quem é ele, mas já ta enchendo o saco, todos assunto levam pra ele, já perdeu a graca.

ai o numero com virgula tem q ser com ponto. tipo grave 19.34 em vez de 19,34. usa replace pra tirar a virgula. exemplo, se x for uma variavel double com o valor 19,34: Replace(CStr(x), ",", ".") em relacao ao q você pergunto, me formei no tecnico em 2003. e agora to sem trampo, mas trabalhei uns 2 anos e poco com o visual basic 6.

você tem q executar a cada vez. você ta montando a string, ai chega no final do for, você não faz nd, ele volta e comeca a montar a otra string. ai na ultima vez, ele sai ca string montada e depois disso sim ta o execute la. ou seja, ele so vai executar a ultima mesmo. se você quer q executa as tres, tem q executar dentro do for.

eu testei aqui e esse mid q você vai fazer vai retornar UNITECH-RIO, seria isso?? a formula ta certa, mas o problema deve ta acontecendo porque nem todos os campos da tabela tem esse conteudo, entendeu?? tipo, olha la no banco. em todos os registros esse campo tem esse mesmo formato?? porque se não tiver vai dar erro mesmo. ai nesse caso, você tem q ver ai como funciona seu sistema, mas uma solucao pra isso seria fazer um if antes pra ver se ta nesse formato mesmo e se não tiver, não faz o mid.

tenho, não use modal, mas na hora de chamar, passe o primero for como parametro em OwnerForm. tipo assim: Form2.Show , Me assim ele fica na frente do form principal. e pra manter a posicao do segundo form em relacao ao primero, use um timer q fique checando a posicao do primero.

então, senao me engano o erro bad dll convention tem a ver com os parametros. ele não daria esse erro se não tivesse identificado a funcao. apesar de q você diz q o parametro ta correto, eu acho q o problema ta ai... você sabe como ta declarada esse parametro dentro do c++?? é como *char (pontero de char) mesmo?? ou seria somente como char?? se for como *char, tenta declarar no visual basic com ByRef em vez de ByVal. se for char, tem q ser Byte.

não precisa de otro module não. alias, você não pode ter duas sub main senao o visual basic não vai saber qual vai executar. pode usa esse, qualquer coisa pergunta.

provavelmente, os instr tão voltando menos do q 0 em algum registro. e você não pode passar menos do q 0 em nenhum dos parametros do mid. por isso da erro. exemplo, isso da erro: Mid({Command.Observacoes de Recebimento}, 1, -1) da uma olhada nesses instr e veja exatamente o q você quer fazer com eles. se tiver problema identificando os erros, separe cada um dos instr() em campos formula diferentes e ponha no report preview e veja qual o retorno.

se você fizer Text1.SelLength = 0 ele limpa a selecao. ponha no evento click, dblclick etc.

a da uma olhada, é a conexao q ta fechada. olha onde ele abre aqui: cnSQL.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" & Caminho & ";Jet OLEDB:database Password=MasterDB" e isso ta na sub main(). da uma olhada q esse projeto do macoratti inicia na sub main. clica em menu Project -> Properties. na janelinha q vai abrir, na aba General, olha a opcao Startup Object (formulario inicial). pra abrir na sub main a opcao Sub Main tem q tar selecionada. se tiver selecionado algum otro formulario ele não executa a sub main e não vai abrir a conexao. e note q a sub main ta no module (e tem q ta no module), então se você não adicionar tb o module no seu projeto ele não vai identificar a sub main. olha q la no final da sub main ele chama o formulario: frmCadClientes.Show então se você quer q o projeto inicialize em otro formulario é so alterar essa linha e escrever o nome dele. ou se você não quiser q o projeto inicialize na sub main, vai ter q abrir a conexao em otro lugar.

deve se isso: sql = "Select Codigo From Tabela Where Codigo = (Select Max(Codigo) From Tabela)" ai ele pega o maior codigo. se a tabela tiver vazia (ai tera q ser o codigo 1), retorna EOF.

ai tem q ver como ficou seu codigo intero agora. você ta abrindo o cnSQL mesmo?? e onde ta abrindo?? e você tirou a linha q eu falei do cnSQL.Close??

ai como assim?? você tem duas placas de video?? tipo, os dois no mesmo pc?? e quer mandar uma informacao pra uma e otra pra otra?? se for ai é foda, nunca ouvi falar nd sobre isso.

tutoriais q acho q devem ajudar: sobre ocx: http://www.macoratti.net/activex.htm http://www.macoratti.net/activex2.htm sobre dll: http://www.macoratti.net/com_vb.htm sobre orientacao a objeto: http://www.macoratti.net/vbn_peoo.htm http://www.macoratti.net/vb_class.htm e procure tb otros tutoriais aqui: http://www.macoratti.net/indvb.htm e qualquer duvida poste ai.

é, tem razao. você não só consegue usar esse codigo q eu falei se você tivesse chamado por exemplo frmFilial.Show mas é simples, é so você passar o indice. se você não sabe o indice você faz um for pra achar o form pelo nome. exemplo: Forms(indice).txtCodigo.Text = grdPesquisa.GetText Col, Row, vCodigo Forms(indice).txtCodigo_Validate False[/code] onde o indice é o indice do frmFilial. se você não sabe qual o indice pegue pelo nome. tipo assim: [code]For i = 0 To Forms.Count - 1 If Forms(i).Name = "frmFilial" Then Forms(i).txtCodigo.Text = grdPesquisa.GetText Col, Row, vCodigo Forms(i).txtCodigo_Validate False Exit For End If Next logico q você vai acabar tendo problemas se tiver mais de um frmFilial aberto, mas imagino q você não tenha.

se eu entendi direito o q você quer... no painel a esquerda onde aparece os nomes das sections, clica com o botao direito onde ta escrito Details e seleciona Format Section... na janela q abrir, seleciona a opcao Format with Multiple Columns e na aba Layout q vai aparecer em Printing Direction, selecione Across then Down e configura o tamanho q você quer da coluna e clica em ok.