Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Get current project from Application object

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