7 Day Lock?

[A Moloney]

Hi. I have a calender (Calendar1),command button
(Command53) and text box (DateField) on a form. the idea
is that a user selects a date on the calendar and clicks
the go button, this then displays the selected date in
the text box and opens the relevant record (this all
works perfectly so far). Is there any way that i would be
able to put a read only limit somewhere in this function
so that if todays date is within 7 days of the selected
date then it prompts for a password with cancel or read-
only option?
Any help / alternative suggestion appreciated.

 

[Perry]

Me.RecordsetType = IIf(DateDiff("d", Calender1, Date) < 7, 2, 0)

The above line changes the form's recordsettype from snapshot (readonly) to
dynaset
if the difference between the calender value and system date is less than 7
days.
Adjust the above line to meet yr criteria.

Krgrds,
Perry