Get current project from Application object : CurrentProject « Access « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Access
  3. CurrentProject

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








Related examples in the same category

1.Run a command through current project
2.CurrentProject.Connection
3.Loop through all forms
4.Use With statement with CurrentProject
5.Iterates through the AllForms collection of the CurrentProject, printing the name of each form
6.The AllReports collection allows you to loop through all reports in the current project.
7.The AllMacros collection allows you to iterate through all macros stored in the current project.
8.Iterate through all modules located in the database referenced by the CurrentProject object
9.Use the CompactRepair method of the Application object to compact and repair the database