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

[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

[weekend00]

private sub command0_click()
docmd.openquery "SubtotalUpdate"
docmd.openquery "InvoiceTotalAppend"
docmd.runsql "update invoices set duedate=date()+30 where duedate is null"
docmd.openquery "invoices"
end sub

[chrisjack001]

Should I paste the code as it is. It is suppose to populate the Duedate field in the Invoices Table. I dont have a query called "Invoices" as in your code. I have a table. Should I Leave the query names in double quotations as you have in the code. Please be patient with me Im new at all this Access and VB stuff.
Thanks

[weekend00]

Sorry, the last one is report, not query.
just paste the code, but you may not need the 2 lines in blue because when you create an event, these 2 line will be generated by Access.

private sub command0_click()
docmd.openquery "SubtotalUpdate"
docmd.openquery "InvoiceTotalAppend"
docmd.runsql "update invoices set duedate=date()+30 where duedate is null"
docmd.openreport "invoices",acViewPreview
end sub

[weekend00]

May I mark it as solved?