Review Date on A Form Warning

[maintt]

Hi Guys

I have a form with lots of client data, which the administrator uses for new clients, I have an allocated date, which automatically sets a review date one month in advance by using the DateAdd function, I have a Yes/No button that the administrator will click when review is complete, what i would like is some kind of warning for the administrator so that if the review date is not completed within two weeks of the actual date she will get some kind of warning to chase up the review

any ideas



Maintt

[maximus]

well if the warning has to be triggered 2 weeks from the review date then use this code:

Dim dtWarningPeriod as Date
dtWarningPeriod=DateAdd("w",2,Date())

if dtWarningPeriod>Date() then
msgbox "Please Review the case
End if

[maintt]

Hey Maximus

Many thanks for the age range solution, it worked ok, I will try the code for the date warning

Once again thanks for your help

Maintt

[maximus]

mark the date range proble thread solved please...