SOMANDO VARIAS TEXT BOX

CRCJ 14/11/2014 11:04:31
#442507
Bom Dia A Todos
Tenho três TextBox que em cada uma coloco um valor e conforme vou colocando esses valores me dá a soma em uma quarta TextBox. Não estou conseguindo fazer isso, já pesquisei aqui no fórum, e o máximo que consegui foi com o código que segue abaixo, mas ele não está funcionando. OBS: Segue o código e em anexo a tela.

Private Sub TxtTotalMaterial_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys [Ô]{TAB}[Ô]
KeyAscii = 0
TxtTotalMaterial.Text = Format(TxtTotalMaterial.Text, [Ô]#,##0.00[Ô])
End If
CampoNumerico Valor, KeyAscii, 2
If TxtTotalMaterial.Text = [Ô][Ô] Then
TxtTotalMaterial.Text = Format(TxtTotalMaterial.Text, [Ô]#,##0.00[Ô])
End If

TxtTotalOrcamento.Text = (TxtTotalMaterial.Text) + (TxtTotalMaoDeObra.Text) + (TxtImposto.Text)
TxtTotalOrcamento = Format(TxtTotalOrcamento.Text, [Ô]#,##0.00[Ô])
End Sub

Private Sub TxtTotalMaoDeObra_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys [Ô]{TAB}[Ô]
KeyAscii = 0
TxtTotalMaoDeObra.Text = Format(TxtTotalMaoDeObra.Text, [Ô]#,##0.00[Ô])
End If
CampoNumerico Valor, KeyAscii, 2
If TxtTotalMaoDeObra.Text = [Ô][Ô] Then
TxtTotalMaoDeObra.Text = Format(TxtTotalMaoDeObra.Text, [Ô]#,##0.00[Ô])
End If

TxtTotalOrcamento.Text = (TxtTotalMaterial.Text) + (TxtTotalMaoDeObra.Text) + (TxtImposto.Text)
TxtTotalOrcamento = Format(TxtTotalOrcamento.Text, [Ô]#,##0.00[Ô])
End Sub

Private Sub TxtImposto_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys [Ô]{TAB}[Ô]
KeyAscii = 0
TxtImposto.Text = Format(TxtImposto.Text, [Ô]#,##0.00[Ô])
End If
CampoNumerico Valor, KeyAscii, 2
If TxtImposto.Text = [Ô][Ô] Then
TxtImposto.Text = Format(TxtImposto.Text, [Ô]#,##0.00[Ô])
End If

TxtTotalOrcamento.Text = (TxtTotalMaterial.Text) + (TxtTotalMaoDeObra.Text) + (TxtImposto.Text)
TxtTotalOrcamento = Format(TxtTotalOrcamento.Text, [Ô]#,##0.00[Ô])
End Sub
LEANDROVIP 14/11/2014 11:28:48
#442508 Resposta escolhida
Bom dia!

Tente este código abaixo

 Private Sub TxtTotalImposto_Change()
    TxtTotalOrcamento.Text = CDbl(IIf(IsNumeric(TxtTotalMaterial.Text), TxtTotalMaterial.Text, 0)) + CDbl(IIf(IsNumeric(TxtTotalMaoDeObra.Text), TxtTotalMaoDeObra.Text, 0)) + CDbl(IIf(IsNumeric(TxtTotalImposto.Text), TxtTotalImposto.Text, 0))
    TxtTotalOrcamento.Text = Format(TxtTotalOrcamento.Text, [Ô]###,##0.00[Ô])
End Sub
Private Sub TxtTotalMaoDeObra_Change()
    TxtTotalOrcamento.Text = CDbl(IIf(IsNumeric(TxtTotalMaterial.Text), TxtTotalMaterial.Text, 0)) + CDbl(IIf(IsNumeric(TxtTotalMaoDeObra.Text), TxtTotalMaoDeObra.Text, 0)) + CDbl(IIf(IsNumeric(TxtTotalImposto.Text), TxtTotalImposto.Text, 0))
    TxtTotalOrcamento.Text = Format(TxtTotalOrcamento.Text, [Ô]###,##0.00[Ô])
End Sub
Private Sub TxtTotalMaterial_Change()
    TxtTotalOrcamento.Text = CDbl(IIf(IsNumeric(TxtTotalMaterial.Text), TxtTotalMaterial.Text, 0)) + CDbl(IIf(IsNumeric(TxtTotalMaoDeObra.Text), TxtTotalMaoDeObra.Text, 0)) + CDbl(IIf(IsNumeric(TxtTotalImposto.Text), TxtTotalImposto.Text, 0))
    TxtTotalOrcamento.Text = Format(TxtTotalOrcamento.Text, [Ô]###,##0.00[Ô])
End Sub


Abraços.
CRCJ 14/11/2014 11:37:53
#442510
Leandro, bom dia
Infelizmente não funcionou, ele dá erro aqui.

Private Sub TxtTotalImposto_Change()
TxtTotalOrcamento.Text = CDbl(IIf(IsNumeric(TxtTotalMaterial.Text), TxtTotalMaterial.Text, 0)) + CDbl(IIf(IsNumeric(TxtTotalMaoDeObra.Text), TxtTotalMaoDeObra.Text, 0)) + CDbl(IIf(IsNumeric(TxtTotalImposto.Text), TxtTotalImposto.Text, 0))
TxtTotalOrcamento.Text = Format(TxtTotalOrcamento.Text, [Ô]###,##0.00[Ô])
End Sub
Private Sub TxtTotalMaoDeObra_Change()
TxtTotalOrcamento.Text = CDbl(IIf(IsNumeric(TxtTotalMaterial.Text), TxtTotalMaterial.Text, 0)) + CDbl(IIf(IsNumeric(TxtTotalMaoDeObra.Text), TxtTotalMaoDeObra.Text, 0)) + CDbl(IIf(IsNumeric(TxtTotalImposto.Text), TxtTotalImposto.Text, 0))
TxtTotalOrcamento.Text = Format(TxtTotalOrcamento.Text, [Ô]###,##0.00[Ô])
End Sub
Private Sub TxtTotalMaterial_Change()
TxtTotalOrcamento.Text = CDbl(IIf(IsNumeric(TxtTotalMaterial.Text), TxtTotalMaterial.Text, 0)) + CDbl(IIf(IsNumeric(TxtTotalMaoDeObra.Text), TxtTotalMaoDeObra.Text, 0)) + CDbl(IIf(IsNumeric(TxtTotalImposto.Text), TxtTotalImposto.Text, 0))
TxtTotalOrcamento.Text = Format(TxtTotalOrcamento.Text, [Ô]###,##0.00[Ô])
End Sub
LEANDROVIP 14/11/2014 12:27:12
#442518
Qual erro que dá? Pode ser que o nome dos [ô]Text[ô] estejam diferentes.!

Edit. Realmente, verificando meu exemplo é o campo TxtTotalImposto que está com nome diferente do seu [ô]TxtImposto[ô]. é só alterar os nomes que dará certo!

Abraços
MARCELO.TREZE 14/11/2014 13:25:48
#442522
simplificando


Private Sub TxtTotalImposto_Change()
    TxtTotalOrcamento.Text = CCur(TxtTotalMaterial.Text) + CCur(TotalMaoDeObra.Text) + CCur(TxtTotalImposto.Text)
    TxtTotalOrcamento.Text = Format(TxtTotalOrcamento.Text, [Ô]###,##0.00[Ô])
End Sub


Private Sub TxtTotalMaoDeObra_Change()
    TxtTotalOrcamento.Text = CCur(TxtTotalMaterial.Text) + CCur(TotalMaoDeObra.Text) + CCur(TxtTotalImposto.Text)
    TxtTotalOrcamento.Text = Format(TxtTotalOrcamento.Text, [Ô]###,##0.00[Ô])
End Sub


Private Sub TxtTotalMaterial_Change()
    TxtTotalOrcamento.Text = CCur(TxtTotalMaterial.Text) + CCur(TotalMaoDeObra.Text) + CCur(TxtTotalImposto.Text)
    TxtTotalOrcamento.Text = Format(TxtTotalOrcamento.Text, [Ô]###,##0.00[Ô])
End Sub


testa ai
CRCJ 14/11/2014 13:58:28
#442525
OK Lenadro, funcionou direitinho, muito obrigado
Marcelo obrigado pela ajuda, mas o Leandro foi primeiro, como não posso dar crédito aos dois, então vai para o Leandro.
Mesmo assim obrigado a todos.
Tópico encerrado , respostas não são mais permitidas
Voltar