Show expiring records on startup
Competent Performer
Windows 10 
Access 2013 32bit
I have a database (still work in progress) which stores my teams training records. What would be the best way to inform the user when they logon to the database, that records are due to expire, or need renewing? I was thinking that if a course is say, 3 months away from renewal the logged in user would be prompted by a message box. They then can choose to see all records that are expiring and take action. What would be a good way to display said records?
Thanks in advance.
Access Developer
Windows 10 Access 2019
Most of my DBs have an unbound "Main Menu" form to navigate around the db which opens when the DB is opened. I would use the On Activate event of this form to query the DB for a count of qualifying records. I might also have a button which is made visible if that count is >0. The caption of the button could be set to inform the number of records found. Clicking the button would open a form/report to view the records.
If this helped, please click the star at the bottom left of this posting and add to my reputation. Many thanks.
Bob Fitzpatrick
Competent Performer
Windows 10 Access 2013 32bit
Hi BobOriginally Posted by Bob Fitz
Do you have any code examples of how this is done that I could adapt?
Virtually Inert Person
Windows 10 Access 2016
I did something similar. When user opened db, a query written in code looked for qualifying records. If the record count was zero it did nothing. If not, it presented a message box with the count and let them proceed. If you want to do more than that, you could open a recordset and if its count >0 then use it to base the opening form upon. That's just one of many (no doubt) approaches you could take.
The more we hear silence, the more we begin to think about our value in this universe.
Paraphrase of Professor Brian Cox.
Access Developer
Windows 10 Access 2019
See DB attached.
If this helped, please click the star at the bottom left of this posting and add to my reputation
Bob Fitzpatrick
Competent Performer
Windows 10 Access 2013 32bit
Hi Bob
Thanks for this. Nice and simple code to achieve what I am after. Thanks again.
Access Developer
Windows 10 Access 2019
You're welcome. Always glad to help if I can
If this helped, please click the star at the bottom left of this posting and add to my reputation
Bob Fitzpatrick
Query to show last records from and all date between records
Posting Permissions
Reply With Quote