ACC: How to Print RecordSource Property Value for All Reports

MORE INFORMATION

1. Create a new module.
2. Type the following sample code:
   
   In Microsoft Access 7.0 and 97:

         Sub ListReports()
            Dim db As Database, doc As Document, con As Container
            Set db = CurrentDb()
            Set con = db.Containers("Reports")
            Application.Echo False
            For Each doc In con.Documents
               Debug.Print "Report Name:", doc.Name
               DoCmd.OpenReport doc.Name, A_DESIGN
               Debug.Print "RecordSource:", Reports(doc.Name).RecordSource
               Debug.Print
               DoCmd.Close A_REPORT, doc.Name
            Next
            Application.Echo True
         End Sub
   
      In Microsoft Access version 2.0:
   
         Sub ListReports ()
            Dim db As Database, doc As Document, con As Container
            Set db = DBEngine.Workspaces(0).Databases(0)
            Set con = db.Containers("Reports")
            Application.Echo False
            For i = 0 To con.Documents.Count - 1
               Set doc = con.Documents(i)
               Debug.Print "Report Name: " & doc.Name
               DoCmd OpenReport doc.Name, A_DESIGN
               Debug.Print "RecordSource: " & Reports(doc.Name).RecordSource
               Debug.Print
               DoCmd Close A_REPORT, doc.Name
            Next i
            Application.Echo True
         End Sub
   						

3. To see a list of reports and their RecordSource property values, type the following line in the Debug window (or Immediate window in version 2.0), and then press ENTER:

   ListReports