Thread: Populate Date field (CurrentDate + 30) in table if blank

I have a "Print" button on a Form called "Invoices" that that has embedded macros on the click event I want to replace with VB code due to the limitation in Macro. Currently this Macro does the following

1. Opens and runs a query called "SubtotalUpdate"
2. Opens and runs a query called "InvoiceTotalAppend"
3. Opens and populates a Report called "Invoices" with the DueDate from "Invoices" table before printing.
This is what I want to add to the existing macro all converted to VB code
4. If the DueDate field is blank in the "Invoices" table I want the date saved in that blank field in the table as (Current date + 30 days) before executing option 3. The format of the date should be mm/dd/yyyy. Can I replace this macro with a VB code. Can you please help with the code on Click event. Thanks

Yes this is an Access database

Originally Posted by chrisjack001

I have a "Print" button on a Form called "Invoices" that that has embedded macros on the click event I want to replace with VB code due to the limitation in Macro. Currently this Macro does the following

1. Opens and runs a query called "SubtotalUpdate"
2. Opens and runs a query called "InvoiceTotalAppend"
3. Opens and populates a Report called "Invoices" with the DueDate from "Invoices" table before printing.
This is what I want to add to the existing macro all converted to VB code
4. If the DueDate field is blank in the "Invoices" table I want the date saved in that blank field in the table as (Current date + 30 days) before executing option 3. The format of the date should be mm/dd/yyyy. Can I replace this macro with a VB code. Can you please help with the code on Click event. Thanks

It the field has the data type of data/time then you do can just use =Date() + 30. You do not want to format it as it is saved. You format it when you display the data. The advantage to stofing using the date/time data type is the it is stored as a date serial number that is not formated. This allows you to cahnge the display format as needed.

Can you use an update query to set the data?

It would help to have more details about the table structures.