How to write the date in a field in a table based on result from a query in vba.

Hi all,

I have a firearm database that lets people know via email that their permits has expired.
I have a button that when pressed, opens a query (which gets its information from two tables and another query (to get the latest entry)) and a report, then emails that report as pdf to the mail recipient, and then writes the current date in a field called email901 in the query. The query had to be updated to get more accurate results, but now the query is "not updatable" and therefor it can not write the date in the email901 field.

This is the code:

Please Login or Register  to view this content.

The query shows the latest ID from the last course that was booked. So, what I need is to press the button, the query opens, the report is generated and the email is sent, then I want the code to check the ID "MaxOfpremosID" in the query and match the ID "premosID" in the table "tbl_process_premos" and write the date in the field called "email901" of that record.

This is a complex database with a lot of sensitive information. It is difficult to attach a sample of the database.

Thank you in advance.

You have done a lot of code where none was need. A query would have done this without code.
You could try this method. An update query would set the date using the person ID.
put it all in a macro for a simple dbl-click event. (or on a form button)

Update query is the answer.