Please Help with Code

[diensatthan]

Private Sub txtDate_BeforeUpdate(Cancel As Integer)

If IsDate(txtDate) Then
MsgBox "Valid Date entered" 'Msg1
Else
MsgBox "Invalid Date entered!" 'Msg2
End If

End Sub

The code above works OK for: a valid txtDate (Msg1 is displayed),
and an empty txtDate (Msg2 is displayed). However, if I entered "ABC" into the text box, I got an Access generic error message instead of the expected Msg2. Please help me with the date validation. Thanks.

 

[crosmill]

Try doing something like this

Sub

If txtDate IS NULL Then
MsgBox "Invalid Date entered!" 'Msg2

Else

If IsDate(txtDate) Then
MsgBox "Valid Date entered" 'Msg1
Else
MsgBox "Invalid Date entered!" 'Msg2
End If

End If

End Sub