Date Activated Events (1 Viewer)

[Maestro]

How do I get access to pop up a warning/reminder message two weeks before the date in a date field is reached?

 

[jimbrooking]

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).]