Help with a Validation

[Stibbz]

I need a validation which will not allow booking's < 1 week and not more than
2 months in advance of the date booked.

If any body could offer ny advice I would be very grateful

 

[KARL DEWEY]

=DateAdd("d",7,Date()) And <=DateAdd("m",2,Date())

 

[Stibbz]

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

 

[KARL DEWEY]

You need someone other than me to review your VB.