Print 3 reports with one button

[mode67]

In Access 2000, I have three reports, named as follows:
rptCrew
rptService
rptWork

All three reports pull information from the same table (e.g. tbl_Customers).
I have one form called Customers and I original had 3 buttons each printing a specific report. base on the customer shown on the form.

I want to create a single button that will print all 3 reports. Everything I tried, its printing every record. I just want to print the record shown on the Customer form


Can anyone help me?

Thanks!

[nico5038]

Place three "docmd.openreport" commands in the code for the button and add the unique ID of the Customer to the filter parameter.

You could also create just one report with three sub reports to show all information.

Nico

[NeoPa]

As Nico says you need to specify the filter as a parameter in your calls. Is that straightforward for you? I somehow doubt you'd post a question just for that so maybe what you need is a little more complicated. If so, then please explain what you want more clearly. As it is, Nico's reply answers it directly.

[ADezii]

Here is a little routine that I created when I want to output Multiple Reports based on the same Criteria and similar Data Sources. The trick is to prefix the Reports you wish to Print with a unique series of characters that is defined by the Constant conRPR_PREFIX . In my case I use rptP as a Unique Identifier. To actually Print the Reports, change the acViewPreview Argument to acViewNormal. [EmployeeID] is a Number, modify for String Values. Any questions, feel free to ask.

Dim intNumOfReports As Integer
Dim intRptCounter As Integer
Dim strReportName As String
Const conRPR_PREFIX As String = "rptP"
 
intNumOfReports = CurrentDb.Containers("Reports").Documents.Count
 
For intRptCounter = 0 To intNumOfReports - 1
  strReportName = CurrentDb.Containers("Reports").Documents(intRptCounter).Name
    If Left$(strReportName, 4) = conRPR_PREFIX Then
      DoCmd.OpenReport strReportName, acViewPreview, , "[EmployeeID] = " & Me![EmployeeID]
    End If
Next

[mode67]

not exact but I fixed it..thank you