access 97 enumerate all non-hidden reports

  • Thread starter Thread starter Craig Buchanan
  • Start date Start date
C

Craig Buchanan

I'm looking for a way to enumerate all the non-hidden reports in an access
97 database. Other than hacking the system tables, is there a way to do
this?

Thanks,

Craig
 
Hi Craig,

The following will list ALL reports - I haven't discovered the secret of
determining whether a given report (or object) is hidden.

Sub listRpts()
Dim db As dao.Database
Dim doc As Document
Set db = CurrentDb()
For Each doc In db.Containers("Reports").Documents
Debug.Print doc.Name
Next doc
Set doc = Nothing
Set db = Nothing

End Sub
 
Back
Top