Good day,

I have a Table Which have 4 Columns.
Table Name- Personnel Details
Fields- Name, Position, Commence Date and Expiry Date.
What I want to make is before 1 month date for expiration which is based on Expiry Date there will be notice or pop up message "To be renew". I don't know how to calculate the date. Thanks..

TIP 1: Name and Position should not be sued as field names. They are reserved words and will cause issue.

TIP 2: Don't use spaces in Field or Object Names


To get the computer's current data use Date()

Check out the DateAdd() function.

To test if the Expiry Date is within a month in the future of today's date try:

__________________
Boyd Trimmell aka HiTechCoach (.com)
Microsoft Access MVP Alumni 2010-2015

Sir Thanks for the reply. I changed the fields which have spaces.
Where i can bound this code?
[Expiry Date]) <= DateAdd(+1,"m", Date())
This is what i want to do
I added one more field which is "Remarks" to populate the notice or pop up message "To be renew". I want that before 1 month date on "Expiry Date" there will be some message on the "Remarks" field which is "To be renew".Is there a way for me to format a field so that the Expiry Date that I enter can flag me 30days before a renewal expires and then another flag when it expires. Any help would be appreciated.

Some Addition: a warning calculated EXACTLY 30 days before the expiration, then I MUST ensure that the database runs the expiration warning code at least once every day, including Saturdays and Sundays.

A method which flags expirations WITHIN 30 days would ensure that, if i miss a day, i'll still see the warning.

Using [Expiry Date]) <= DateAdd(+1,"m", Date()) does not mean EXACTLY 30 days. the <= is everything within a month span or between today and the same day next month.

__________________
Boyd Trimmell aka HiTechCoach (.com)
Microsoft Access MVP Alumni 2010-2015

This example may help: Reminders

__________________
Boyd Trimmell aka HiTechCoach (.com)
Microsoft Access MVP Alumni 2010-2015

Good day,

Sir i used this code on my query:
Remark: [ExpiredDate]<=DateAdd(+1,"m",Date())
But it's error "Data type mismatch in criteria expression"

I tried also this code:
Remarks: IIf(Date() >= [ExpiredDate – expires in one month],"Expired","Unexpired")

This will return 'Expired' if true, 'Unexpired' if false.
But it has error too "Enter Parameter value of ExpiredDate – expires in one month

Sir can you please help me on this issue. I was really new in this program.Thank you very much