|
|
Postada em 12/06/2004 20:51 hs
Estevão quando você fazer qualquer conta, crie uma variável double, pois ela puxara o número inteiro e o quebrado. EX: text1= 10,10 text2=10 sendo que o resultado tem que sair no text3. Fazendo uma conta de somar usando uma variável A as double, B as double, ficaria algo parecido com isso: A=text1.text B=text2.text text3.text=A+B ( 10,1 + 10 ) text3.text=20,1 Fazendo isso você não terá problema com a soma, pois ele estará reconhecendo que todos os caracteres são números. Depois use o format para arrumar os centavos: text3.text=format(text3.text, "###,###,##0.00") text3.text= 20,10 E quanto a impressão, eu , particulamente acho mais fácil, crio no meu bd um arq.temporário, pois além de exibilo no DBGrid eu posso imprimir e fazer qualquer tipo de alteração.
Abraço e que DEUS te abençõe, espero poder ter te ajudado 
Eu sou o Senhor, o DEUS de vocês;
eu os seguro pela mão e lhes digo;
Não fiquem com medo, pois eu os ajudo
Isaias 41:13
|
|
|
|
|
|
|
|
Postada em 13/06/2004 11:58 hs
Álvaro Obrigado mais uma vez; Vc sabe o que significa esse erro? Run Timer '3061' Parâmetros Insuficientes. Eram esperados 1. |
|
|
|
|
|
Postada em 13/06/2004 23:01 hs
Estevão em que comando deu esse erro, pois está parecendo que no comando está faltando alguma coisa e/ou o comando que você está tentando usar não está sendo suportado pela biblioteca do vb. EX: Se você inicia uma nova aplicação, sem entrar em projet, references, selecionar o microsoft DAO 2.5/3.51 compatibility library, você não consegue usar o comando para abrir o bando de dados via código.
Abraço e que DEUS te abençõe, espero poder ter te ajudado
Eu sou o Senhor, o DEUS de vocês;
eu os seguro pela mão e lhes digo;
Não fiquem com medo, pois eu os ajudo
Isaias 41:13
|
|
|
|
|
|
Postada em 20/06/2004 21:55 hs
Olá Alvaro, isso aqui ja esta virando um bate-papo... heheheh Mas é o seguinte, eu fiz um projeto de Controle de Estoque, e de localização de produtos. Bem só não funciona qdo quero buscar por data, por exemplo de eu digito 03/06/2004, da esse erro. Dê uma olhada no código: Private Sub cmdPesquisa_Click() If optNota.Value = True And txtNota <> "" Then
dtaConsulta.RecordSource = "Select * from Estoque where Nota=" & txtNota.Text
dtaConsulta.Refresh
End If
If optPesquisa.Value = True And txtPesquisa.Text <> "" Then
dtaConsulta.RecordSource = "Select * from Estoque where Produto like'" & txtPesquisa.Text & "*'"
dtaConsulta.Refresh
End If
If optData.Value = True And txtData.Text <> "" Then
dtaConsulta.RecordSource = "Select * from Estoque where data like'" & "'"
dtaConsulta.Refresh
End If
End Sub ============================================= Agora é o seguinte: Sabe a minha primeira dúvida? q ao digitar o codigo 1, e apertasse a tecla TAB, no TextBox2 eu queria q aparecesse PMaxificadora, pois bem, como que eu faço para q essa informação vá para o DBGrid? Assim: No momento q eu apertar o código 1, e apertar TAB, eu quero q apareça no Textbox2, a palavra PMaxIFICADORA, e automaticamente, quero q apareca no Grid, Eu tentei várias vezes, mas até agora não consegui, me dá uma idéia ai.... Obrigado pela ajuda, e pela paciencia..... Um abraço. |
|
|
|
Ama
|
UBERLÂNDIA
MG - BRASIL
|
|
Postada em 20/06/2004 22:56 hs
"Select * from Estoque where data like'" & "'" txtdata vc esta comparando data com o que faltou variável ou controle como nas consultas anteriores que vc montou!!!!!!!!!!
|
|
|
|
|
|
Postada em 20/06/2004 22:59 hs
Olá Estevão, continuando o nosso bate-papo  !!!! O motivo de não funcionar a busca pela data, pode ser a falta do comando cdate antes do seu txtdata.text, pois esse comando tranforma os números em data. Ficaria algo assim : cdate(txtdata.text) Qto a sua dúvida sobre a digitação do código 1 e apertar o tab, se por um acaso você usou a minha idéia de fazer um arq. temp no bd, ficaria parecido + ou - com isso: Private Sub Text2_GotFocus()
If Text1.Text = 1 Then
Text2.Text = "PMaxIFICADORA" inclui no arq.temp do bd o pmaxificadora da o comando refresh no data que o dbgrid está vinculado
End If
End Sub Com isso você inclui no dbgrid e o texto aparece no text2.
Abraço e que DEUS te abençõe, espero poder ter te ajudado
Eu sou o Senhor, o DEUS de vocês;
eu os seguro pela mão e lhes digo;
Não fiquem com medo, pois eu os ajudo
Isaias 41:13
|
|
TÓPICO EDITADO
|
|
|
|
|
