Enumerating report name

  • Thread starter Thread starter SF
  • Start date Start date
not almost clear what you asked...
to get report name where code runs - use me.name
to enumerate all reports in database you can use CurrentProject.AllReports
collection
 
Assuming Access 2000 or later ...

Dim aob As AccessObject

For Each aob In CurrentProject.AllReports
Debug.Print aob.Name
Next aob

--
Brendan Reynolds (MVP)
http://brenreyn.blogspot.com

The spammers and script-kiddies have succeeded in making it impossible for
me to use a real e-mail address in public newsgroups. E-mail replies to
this post will be deleted without being read. Any e-mail claiming to be
from brenreyn at indigo dot ie that is not digitally signed by me with a
GlobalSign digital certificate is a forgery and should be deleted without
being read. Follow-up questions should in general be posted to the
newsgroup, but if you have a good reason to send me e-mail, you'll find
a useable e-mail address at the URL above.
 
And if using Access 97 or earlier:

Dim dbCurr As DAO.Database
Dim docCurr As Document

Set dbCurr = CurrentDb()
For Each docCurr In dbCurr.Containers("Reports").Documents '
docCollection
Debug.Print docCurr.Name
Next docCurr
 
Back
Top