Weekly Alert

[dulla]

How do i get a weekly alert to display with a reminder in it? thanks.

ameen

 

[ajdesalvo]

Create a Table called Alert

FieldName Type
LastAlert Date
AlertMsg Text 255 Characters

If you have a form that loads all of the time in your application, place the following in the Load event:

Dim LastDate as Date
Dim Alert as String

LastDate = Dlookup("[LastAlert]","Alert&quot
Alert = Dlookup("[AlertMsg]","Alert&quot

If (Date() - LastDate) > 7 then
MsgBox Alert
DoCmd.SetWarnings False
Docmd.RunSql "Update [Alert] SET [LastAlert] = Date() ;"
DoCmd.SetWarnings True
End If

If (today's date - last alert date) is greater than 7 days, then the message will pop up when the form is opened.

Then today's date is sent to the Alert table to be used the next time the form loads.

Hope this helps.



Anthony J. DeSalvo
President - ScottTech Software
"Integrating Technology with Business"