Warning showing a date will expire in 30 days.

[nashie]

I am trying to create some sort of warning to show that a date in one of my forms will expire in say 30 days. I need the warning to be a pop up (or similar) rather than be sent via email (only because I don't have Outlook set up and probably will not be able to). Effectively, I have a list of names and a column in my table to show an expiry date. To avoid missing the expiry date, I would like to be advised of this at least 30 days before hand. Thanks in advance.

[orange]

Assuming your Expiry date is ExpiryDate, this should give a list of records whose ExpiryDate is less than or equal to 30 days from Today's date. (untested)

see here for more info

Select * from YourTable
WHERE
DateDiff("d",ExpiryDate, Date()) <=30;

[SoftwareMatters]

I would probably put something like this on the OnCurrent of the form. Then whenever you navigate to a record that meets the criteria a message box will pop up.

If Datediff("d",date(),Me!DATEFIELD) <= 30 then
 Msgbox "WARNING....YOUR MESSAGE TEXT GOES HERE..."
End If

I would probalby create a report though that listed all records that were about to expire and then run it daily. This way nothing would get missed.

NB: You need to replace DATEFIELD with the actual name of your date field.

[HMEpartsmanager]

I am trying to create some sort of warning to show that a date in one of my forms will expire in say 30 days. I need the warning to be a pop up (or similar) rather than be sent via email (only because I don't have Outlook set up and probably will not be able to). Effectively, I have a list of names and a column in my table to show an expiry date. To avoid missing the expiry date, I would like to be advised of this at least 30 days before hand. Thanks in advance.

I have an A/P Form, that I put this code in the OnTimer event for the main form.


If [ordDate] < (Date - 45) Then
If [ordDate].ForeColor = vbBlack Then
[ordDate].ForeColor = vbRed
Else
[ordDate].ForeColor = vbBlack
End If
'
Else
[ordDate].ForeColor = vbBlack
'
End If

Basically this form has the original date showing on the form, and if I navigate to a record that is 45 days old, this field will continually flash at me indicating it is old.

That is how I do it on a form that works for my purposes.

Tim