Solved Use two buttons to print the same report where one prints the detail section ... Freezing my application (1 Viewer)

[Gasman]

I NEVER have spaces in my object names. Enclose those with [] if you insist.

Failing that upload enough to see the issue with instructions on how to replicate.

 

[Gasman]

SOLUTION:

Create a form with two buttons and assign the "On Click" code as follows. This drives the OpenArgs to the report (which is only available on an 'on open' event.

Private Sub PrintButton_RptSObyProductLevel0_Click()

    DoCmd.OpenReport "Rpt - SO by Product2", acViewPreview, , , , "Level0"
   
End Sub

Private Sub PrintButton_RptSObyProductLevel1_Click()

    DoCmd.OpenReport "Rpt - SO by Product2", acViewPreview, , , , "Level1"
   
End Sub

Then, within the "On Open" of the given Report, enter the following:

Private Sub Report_Open(Cancel As Integer)

If OpenArgs = "Level0" Then
    Me.Section(0).Visible = False
Else
    Me.Section(0).Visible = True
End If

End Sub

Really puzzled now, as that is what I thought you already had?

 

[DJL910]

Really puzzled now, as that is what I thought you already had?

Errors out in the old report, works like a charm in a direct copy of the report with a "2" appended to the name.
And yes, I'm in the process of removing my report name spaces

 

[Gasman]

So delete the old report, rename the second to that and work from there?
Perhaps corrupted, but in all the time I have use Access, I have never had a corrupted object that I can remember?
Just lucky there, as I would not consider myself lucky really.

 

[Gasman]

BTW

This drives the OpenArgs to the report (which is only available on an 'on open' event.

is rubbish.
Please see my events.

Private Sub Report_Load()
Me.Auto_Header0.Caption = Me.OpenArgs & " Report"
End Sub

Same applies to a Form

Private Sub Form_Load()
' Add which period we are showing to form title label
If Not IsNull(Me.OpenArgs) Then
    Me.lblTitle.Caption = Me.lblTitle.Caption & Me.OpenArgs
    Me.RecordSource = "qry" & Me.OpenArgs
    Me.cmdReport.Visible = True
Else
    Me.cmdReport.Visible = False
End If
DoCmd.GoToRecord acDataForm, Me.Name, acLast
End Sub