boa noite,
tenho um formulário de vendas onde na compra a vista o funcionário pode dar desconto de 5% ou desconto de R$ 9,00 reais
Dim x As String
Dim y As String
x = Me.APAGAR * 5 / 100 Or y = Me.APAGAR - 9
If Me.DESCONTO > x Then
If Me.DESCONTO > y Then
MsgBox "IMPOSSÍVEL DESCONTO"
DoCmd.CancelEvent
Me.DESCONTO.SetFocus
Me.DESCONTO = 0
End If
End If
End Sub
isso é possivel?
tenho um formulário de vendas onde na compra a vista o funcionário pode dar desconto de 5% ou desconto de R$ 9,00 reais
Dim x As String
Dim y As String
x = Me.APAGAR * 5 / 100 Or y = Me.APAGAR - 9
If Me.DESCONTO > x Then
If Me.DESCONTO > y Then
MsgBox "IMPOSSÍVEL DESCONTO"
DoCmd.CancelEvent
Me.DESCONTO.SetFocus
Me.DESCONTO = 0
End If
End If
End Sub
isso é possivel?