access 97 enumerate all non-hidden reports

[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

 

[Sandra Daigle]

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