Print Report with 2 extra lined pages

[access2010]

Could we please receive a suggestion on how to print reports with 2 extra pages?

How can we print this report when investigate is Yes and then AFTER the report is printed, "Yes" in the table will be changed to No?

Thank you for your suggestions.
Marlyne

 

[ebs17]

The 2 extra lined pages could be included as a subreport in the report.

 

[GaP42]

Your form button to print preview the report, does not specify a record from the investments table:
stDocName = "Template_Analytic_R_Investigate_Yes"
DoCmd.OpenReport stDocName, acPreview
- at least in the sample db you provided.

If it did then you could write a simple SQL update to the record in the Investments table for which the report was printed that could update Yes to No in the investigate column immediately after print preview command. Construct your SQL statement then use DoCmd.runSQL - works for action queries.

- if the report is all the Yes records then a similar solution without needing the record id.

 

[GaP42]

As your report prints all records, assuming that is what you want then the code behind the button would be:

Private Sub Print_Report_Than_Clear_Click()
Dim strSQL As String

stDocName = "Template_Analytic_R_Investigate_Yes"
DoCmd.OpenReport stDocName, acPreview
DoCmd.Maximize

strSQL = "UPDATE Investments01_tbl SET Investments01_tbl.Investigate = No " & _
            "WHERE (((Investments01_tbl.Investigate)=Yes));"

DoCmd.RunSQL strSQL

End Sub

Follow thru on the extra pages requirement as ebs17 suggested.
PS the code module should have statements:
Option Database Compare
Option Explicit

declared as the first two lines - assume this is because it was a sample only.

 

[access2010]

The 2 extra lined pages could be included as a subreport in the report.

Thank you, GaP42 for your suggestion, which works.

 

[access2010]

The 2 extra lined pages could be included as a subreport in the report.

Thank you Ebs17, your suggestion works.