Início
![[Resolvido]Regra de Validação - VBA Empty](https://2img.net/i/empty.gif)
Uilson Brasil 5/6/2013, 22:27Pessoal, boa noite!
Uma pequena dúvida mas que está me dando dor de cabeça. Estou desenvolvendo um sistema de controle de frota e me deparei com um problema mas que não estou conseguindo desenrolar. no campo "KMFIM" do módulo controle de KM inseri um código vba para evitar que o usuário insira um KM menor que o KMINI (INICIAL). até aí ok. Mas como fazer para ele limpar o campo apenas se o valor for inválido - da forma abaixo ele limpa o campo independente do valor:
Private Sub KMFIM_Exit(Cancel As Integer)
If Me.KMFIM <= Me.KMINI Then MsgBox "Kilometragem final não deve ser inferior ao Kilometragem inicial" & vbCrLf & "Kilometragem Inicial: " & Me.KMINI.Value, vbOKOnly + vbCritical, "Atenção!!!"
Me.KMFIM = Null
Me.KMFIM.SetFocus
End Sub
Desde já agradeço pela atenção.
Uilson Brasil
Uma pequena dúvida mas que está me dando dor de cabeça. Estou desenvolvendo um sistema de controle de frota e me deparei com um problema mas que não estou conseguindo desenrolar. no campo "KMFIM" do módulo controle de KM inseri um código vba para evitar que o usuário insira um KM menor que o KMINI (INICIAL). até aí ok. Mas como fazer para ele limpar o campo apenas se o valor for inválido - da forma abaixo ele limpa o campo independente do valor:
Private Sub KMFIM_Exit(Cancel As Integer)
If Me.KMFIM <= Me.KMINI Then MsgBox "Kilometragem final não deve ser inferior ao Kilometragem inicial" & vbCrLf & "Kilometragem Inicial: " & Me.KMINI.Value, vbOKOnly + vbCritical, "Atenção!!!"
Me.KMFIM = Null
Me.KMFIM.SetFocus
End Sub
Desde já agradeço pela atenção.
Uilson Brasil
