Aparecer resultado em um Label após preenchimento de um txt

2024 - VBA & Macros

Post Recente por MICHELLE93 6 anos atrás

3 Posts

2 Usuários

0 Reactions

1,051 Visualizações

RSS

MICHELLE93

(@michelle93)

Posts: 24

Eminent Member

Topic starter

Boa tarde.

Preciso que apareça o valor da subtração do txtpesobal - txtimp no "labeldiferença", assim que os txt's forem preenchidos.
No labelglosa, preciso que apareça "sim" ou "não" caso a diferença seja superior ou inferior à 1% do valor inserido no txtpesoNF.

Segue arquivo anexo.

Postado : 19/08/2018 10:20 am

xlarruda

(@xlarruda)

Posts: 732

Honorable Member

Adicione esses dois códigos ao seu projeto:

Private Sub txtimp_Change()
On Error Resume Next
Me.Labeldiferença.Caption = Me.txtpesobal.Value - Me.txtimp.Value
If ((Me.txtpesobal.Value - Me.txtimp.Value) / Me.txtpesobal) > 0.01 Then
 Me.Labelglosa.Caption = "Sim"
 Else
 Me.Labelglosa.Caption = "Não"
End If
End Sub
Private Sub txtpesobal_Change()
On Error Resume Next
Me.Labeldiferença.Caption = Me.txtpesobal.Value - Me.txtimp.Value
If ((Me.txtpesobal.Value - Me.txtimp.Value) / Me.txtpesobal) > 0.01 Then
 Me.Labelglosa.Caption = "Sim"
 Else
 Me.Labelglosa.Caption = "Não"
End If
End Sub

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

Postado : 20/08/2018 8:05 am