G
Gator
Why is the LostFocus event not working. Nothing happens, I am able to click
in any other control I want. I tried the Text21_Exit event and it did not
work either.
Private Sub Form_Load()
Me.Text21.SetFocus
End Sub
Private Sub Text21_LostFocus()
If IsNull(Text21) Then
MsgBox "Enter a Date on Top", vbOKOnly, Date
Cancel = True
End If
End Sub
in any other control I want. I tried the Text21_Exit event and it did not
work either.
Private Sub Form_Load()
Me.Text21.SetFocus
End Sub
Private Sub Text21_LostFocus()
If IsNull(Text21) Then
MsgBox "Enter a Date on Top", vbOKOnly, Date
Cancel = True
End If
End Sub