Help with a Validation
You need someone other than me to review your VB.
"Stibbz" wrote:
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
|