View Full Version : Date Activated Events


Maestro
06-16-2001, 08:01 AM
How do I get access to pop up a warning/reminder message two weeks before the date in a date field is reached?

jimbrooking
06-16-2001, 10:34 AM
Gin up a query that finds all the records that suite your criterion. Something like

Select * From tblNotes Where DateAdd("ww",-2,TableDateValue) < Now();

(This query could be the recordsource for a form to be called later.)

On the Tools > Startup... screen, identify a form to open when the database is opened. On THAT form's OnOpen event do something like

If Dcount(TableDateValue,qryDefinedAbove) > 0 then
If Msgbox("Events due in the next two weeks. Process now?", _
vbYesNo, "Notes Due") = vbYes then
Docmd.OpenForm "frmProcessNotes"
End If
End If
Exit Sub

Jim



[This message has been edited by jimbrooking (edited 06-16-2001).]