I have a table containing a list of reports in an mdb. How can I loop
through the list, printing the record source for each report?
To get the record =source for all of the reports in the Db:
1) Tools + Analyze + Documenter
2) or.. in a Module:
Public Sub ShowRecordsource()
' Print out the RecordSource for each report.
Dim doc As Document
Dim db As DAO.Database
Set db = CurrentDb
For Each doc In db.Containers("Reports").Documents
DoCmd.OpenReport doc.Name, acViewDesign, , , acHidden
Debug.Print "Report Name: " & doc.Name
Debug.Print "Record Source: " & Reports(doc.Name).RecordSource
Debug.Print
DoCmd.Close acReport, doc.Name
Next doc
End Sub
