I have got this code for bank and date checking. But once the error message has been shown the SetFocus don't go to where it should go.
Private Sub txtService_LostFocus()
If IsNull(Me.txtService) Then
MsgBox "Please Type Service ", vbInformation
If (Me.txtService) <= Now() Then
MsgBox "Too late to make a service", vbInformation
I was wondering if anyone can help me. Please.