I am sure this validation works but it isn't working with my pop up calendar.
I was wondering if you could check my VB for me??? It keeps on highlighting
the starred line.

Option Compare Database

Private Sub Calendar2_Click()
Event_Date.Value = Calendar2.Value****
Event_Date.SetFocus
Calendar2.Visible = False
End Sub


Private Sub Event_Date_MouseDown(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Calendar2.Visible = True
Calendar2.SetFocus
If Not IsNull(Event_Date) Then
Calendar2.Value = Event_Date.Value
Else
Calendar2.Value = Date
End If
End Sub