Does anybody know how I can
enumerate through all the loaded reports in
Access?
Open Reports are in the Reports collection, and the following code properly
enumerates them for me, running from a standard module in the database.
Function EnumerateReports() As Integer
Dim rpt As Report
Dim intNoDone As Integer
For Each rpt In Reports
Debug.Print rpt.Name
intNoDone = intNoDone + 1
Next
EnumerateReports = intNoDone
End Function
Larry Linson
Microsoft Access MVP
