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
Postado : 20/08/2018 8:05 am