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