Collection of subreports in report (1 Viewer)

GaelicFatboy · Dec 6, 2017

Hi Chaps,

I'm trying to construct a collection of all the subreport names in a report, but I'm having trouble retrieving them.

CODE SO FAR:

Code:

Private Sub Report_Load()
Dim rptMain As Report_Xray_PackM1_rpt
Dim rptSub As Report

For Each rptSub In rptMain 
    Debug.Print rptSub.Name
Next

End Sub

The code goes through one iteration and halts on the "Next" statement.

Any thoughts?

Cheers

D

Uncle Gizmo · Dec 6, 2017

Wants to be more like this;-

Code:

Private Sub Report_Load()

Dim Ctrl As Control

    For Each Ctrl In Me.Controls
        If Ctrl.ControlType = acSubform Then
            MsgBox " >>> " & Ctrl.Name
        End If
    Next Ctrl

End Sub

Don't forget the code Tags!!!

GaelicFatboy · Dec 7, 2017

Thanks for the code, it works fine.

In the meantime, I had a little think over night and can up with this...

Code:

Dim rptMain As Object
Dim rptSub As Report

Set rptMain = Reports("Xray_PackM1_rpt")

bytY = rptMain.Count - 1

For bytX = 1 To bytY
    Debug.Print rptMain(bytX).Name
Next bytX

Your method is nearly half the length, guess I'm still learning.

Thanks for the help, it's very much appreciated. This forum is a God send.

Cheers

D

Collection of subreports in report (1 Viewer)

GaelicFatboy

Registered User.

Uncle Gizmo

Nifty Access Guy

GaelicFatboy

Registered User.

Similar threads

Users who are viewing this thread