Printing multiple reports for one record

[brew]

Hi,



I'm intending to print a number of reports for the current record from a print button on a form. I have what i think the code should look like but when the print button is pressed it prints the first report (Title Page) as desired but doesn't print the other 3 and prompts for an ID. How do i get it to keep the same record 'selected'?

Private Sub cmdPrint_Click()

   Dim strWhere As String

    If Me.Dirty Then    'Save any edits.
        Me.Dirty = False
    End If

    If Me.NewRecord Then 'Check there is a record to print
        MsgBox "Select a record to print"
    Else
        strWhere = "[ID] = " & Me.[ID]
        DoCmd.OpenReport "Title Page", acViewNormal, , strWhere
        DoCmd.OpenReport "Information Index", acViewNormal, , strWhere
        DoCmd.OpenReport "Sterilisation Sheet", acViewNormal, , strWhere
        DoCmd.OpenReport "Label Request", acViewNormal, , strWhere
    End If

End Sub

Thanks in advance for any help.
James

[pbaldy]

The prompt for ID would imply that field isn't in the record source of the other report(s). The same record would stay "selected", and strWhere wouldn't (shouldn't) change.

[brew]

Thanks pbaldy,

Changing the record source to the table name rather than the individual fields, which seem to of auto populated during report design has sorted the problem.

[pbaldy]

Happy to help, and welcome to the site by the way!