Access VisualBasic Script


            Option Compare Database
Option Explicit
    
Public Sub ShowObjects()
  Dim objAO As AccessObject
  Dim objCP As Object
  Set objCP = Application.CurrentProject
  For Each objAO In objCP.AllReports
   Debug.Print objAO.Name
  Next
End Sub