Sub setup_for_alert_popup()

' run this one time to set up the table,

' add your dates & messages as desired

DoCmd.RunSQL "CREATE TABLE tblAlert (MyDate DATETIME, Done BIT, Message TEXT(50))"

DoCmd.SetWarnings False

DoCmd.RunSQL "INSERT INTO tblAlert (MyDate, Done, Message) VALUES (#4/29/2009#, False, 'Message for April 29')"

DoCmd.RunSQL "INSERT INTO tblAlert (MyDate, Done, Message) VALUES (#5/1/2009#, False, 'Message for May 1')"

DoCmd.SetWarnings True

End Sub

Function alert_popup()

' execute this from your AutoExec macro

' using Action = RunCode and Function = alert_popup()

' it will display the message the first time you open the application

' on the specified date

Dim s As String

s = "MyDate = #" & Date & "# AND Done = False"

If DCount("*", "tblAlert", s) > 0 Then

MsgBox DLookup("Message", "tblAlert", s)

DoCmd.SetWarnings False

DoCmd.RunSQL "UPDATE tblAlert SET Done = True WHERE " & s

DoCmd.SetWarnings True

End If

End Function