Question : How to make a popup window appear in Access

Hi again,
Well my last question was resolved pretty quickly... now the next tricky bit.

I need a window to popup in MS Access (Even if it is not the active app e.g. minimized) that gives an alert to the user saying that a date has been reached and action needs to be taken.

Basically I have a 'date of next inspection due' on the form and want to generate an alert from it when the date is reached.

Answer : How to make a popup window appear in Access

Howco said:
>>How do I get the code as you stated to generate a single popup even if there are 300 records that have hit the date?

If you want it to fire, say, not more than once a day...


If CDate(GetSetting("YourAppName", "InspectionDate", "DateLastMsgBox", "1900-01-01")) <> Date Then
    MsgBox "The Reference Date of: " & dtmRefDate & " has been reached."
    SaveSetting "YourAppName", "InspectionDate", "DateLastMsgBox", Format(Date, "yyyy-mm-dd")
End If

That stores the date in a Registry key, and keeps the message from showing more than once per day
per user.  (Well, not quite: a user who uses different computers could see it once per day per computer.)
Random Solutions  
 
programming4us programming4us