POPUP REMINDERS

  • Thread starter Thread starter Ontherun2
  • Start date Start date
O

Ontherun2

How do I create a popup reminder when an event happens. I am looking to have
a message displayed when a particular date is current to remind me that some
action needs to be done.
 
Ontherun2 said:
How do I create a popup reminder when an event happens. I am looking to have
a message displayed when a particular date is current to remind me that some
action needs to be done.
Click to expand...


You should put the event dates in a table along with a
description of the event. Then you can use a procedure like
this air code to check for today's date a popup a message
with the description:

Public Sub CheckEvents(dt As Date)
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String

strSQL = "SELECT EventDate, EventDescr " _
& "FROM thetable " _
& "WHERE EventDate=" & Format(dt, "\#yyyy-m-d\#")
Set db = CurrentDb()
Set rs = db.OpenRecordset(strSQL)
Do Until rs.EOF
MsgBox rs!EventDescr
rs.MoveNext
Loop
rs.Close : Set rs = Nothing
Set db = Nothing
End Sub
 
Back
Top