Report Dependents

[Surf_gal]

Is there a way to get (in an automated fashion) a list of the reports within an Access database and their related record sources (queries and/or tables), instead of having to opening the design of each report? Thanks for any help.

 

[giacomo]

You can try something like this...

Sub reportlist()

For Each rpt In CurrentProject.AllReports
DoCmd.OpenReport rpt.Name, acViewDesign, , , acHidden
Debug.Print "Report: " & rpt.Name _
& " RecordSource: " & Reports(rpt.Name).RecordSource
DoCmd.Close acReport, rpt.Name, acSaveNo
Next rpt

End Sub

 

[Norie]

Try this

Sub AllReportSources()
Dim rpt As Report
' Enumerate Reports collection.
For Each rpt In Reports
' Print name of report and RecordSource
Debug.Print rpt.Name & "-" & rpt.RecourdSource
Next rpt
End Sub