Calcular Valores no Access

Question

Pessoal eu estou querendo fazer o seguinte: :? 

Tenho quatro caixas de texto e 1 bot&atilde;o.
Quero que ao clicar no bot&atilde;o ele some o valores digitados nas 3 caixas e me d&ecirc; o resultado na 4&ordf; caixa de texto.

Eu estou tentando mas at&eacute; agora nada..ehehehehehe :D 

Se algu&eacute;m me ajudar, fico agradecido. 8) 

Valew'z

Answer

Acho que o c&oacute;digo abaixo resolve:

Private Sub Comando8_Click()
Dim iNum1, iNum2, iNum3, iResultado As Integer
Texto0.SetFocus
iNum1 = Val(Texto0.Text)
Texto2.SetFocus
iNum2 = Val(Texto2.Text)
Texto4.SetFocus
iNum3 = Val(Texto4.Text)
Texto6.SetFocus
Texto6.Text = Str(iNum1 + iNum2 + iNum3)
End Sub


N&atilde;o sei se tem uma maneira mais elegante de fazer isso... Por falar nisso, pq diabos a caixa de texto tem que ter foco para vc acessar o conte&uacute;do?!?!?

Answer

Existe N maneiras de fazer isto, uma delas &eacute; como  o GBastos citou acima  :roll:

Answer

[quote=Frantz]Pessoal eu estou querendo fazer o seguinte: :? 

Tenho quatro caixas de texto e 1 bot&atilde;o.
Quero que ao clicar no bo...[/quote]

Dim Nota1 As Single
Dim Nota2 As Single
Dim Nota3 As Single
Dim Soma As Single
Nota1 = TxtNota1.Text
Nota2 = TxtNota2.Text
Nota3 = TxtNota3.Text
Soma = (Nota1 + Nota2 + Nota3)
TxtSoma.Text = Soma
BtnExecutar.Enabled = False
BtnLimpar.Enabled = True
End Sub
Private Sub BtnLimpar_Click()
TxtNota1.Text =  
TxtNota2.Text =  
TxtNota3.Text =  
TxtSoma.Text =  
BtnExecutar.Enabled = True
BtnLimpar.Enabled = False
TxtNota1.SetFocus
End Sub
Private Sub BtnSair_Click()
End
End Sub

Ferramentas

Mover Tópico