Msgbox se o desconto concedido foi maior que o autorizado

Bom dia!

Senhores...

Eu tenho um campo chamado de Txt_desconto_concedido, aonde eu preciso o seguinte se esse desconto for acima de 10% apareça uma msgbox que o desconto concedido foi maior que o autorizado e não deixe salvar, veja o código que coloquei no botão salvar e quando tento colocar o símbolo % ele não deixa, alguém pode me ajudar, segue abaixo o código colocado:

If (Txt_desconto_Concedido) < 10 Then
MsgBox ("Desconto concedido foi maior que o autorizado")
Desconto.SetFocus
DoCmd.CancelEvent
End
End If

Teste assim

Depois de atualizar o campo desconto

If Me.Txt_desconto_Concedido.value > 10 Then
MsgBox "Desconto concedido foi maior que o autorizado"
Exit sub
Me.Txt_desconto_Concedido.SetFocus
End If

Se não resultar coloque aqui no forum a BD, ou parte dela para analizar.
Atenção ao formato do campo Txt_desconto_Concedido

Professor Assis

Infelizmente não deu certo, esse campo txt_desconto_concedido, é um campo que criei no formulário sendo uma caixa de texto aonde está formatado como porcentagem e recebe o seguinte calculo: desconto/valor_total, o desconto é dado em reais, e o que quero quando for salvar o lançamento no btn_salvar, eu criei um código aonde se o desconto concedido for maior do que 10%, ele não salve e volte com uma msgbox "Desconto concedido foi maior que o autorizado". Isso é possível.

Grato

Bessa
pode postar a bd

Professor Assis

Segue anexo o BD, vá no formulário vendas e no modo design no botão Btn_Salvar coloquei o seguinte código no procedimento de evento:

If (Txt_desconto_concedido) > 10 Then
MsgBox ("Desconto concedido maior que o autorizado")
desconto.SetFocus
DoCmd.CancelEvent
End
End If

DoCmd.RunCommand acCmdSaveRecord
End Sub

O que eu desejo é quando o txt_Desconto_Concedido for maior que 10% apareça um MsgBox ("Desconto concedido maior que o autorizado") e o set.focus vá para a caixa de texto desconto e somente será salvo depois que for corrigido o desconto para menos de 10%.

Abraços e Obrigado...

Bom dia...com a permissão de todos....

Experimente dessa forma....

Private Sub btn_salvar_Click()
If Me.desconto.Value > 10 Then
MsgBox "Desconto concedido maior que o autorizado", vbCritical, Me.Caption
Me.Undo
DoCmd.CancelEvent
Me.desconto.SetFocus
Me.desconto = ""
Else
DoCmd.RunCommand acCmdSaveRecord
MsgBox " sua mensagem de salvamento aqui", vbInformation, Me.Caption
End If

End Sub

Bessa
Teste

Professor Assis

Mais uma vez muito obrigado, deu certo ficou da forma como eu queria.

Obrigado

Obrigado Bessa
pelo retorno

Falta dar o tópico como resolvido