Loop through all forms : CurrentProject « Access « VBA / Excel / Access / Word






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

Loop through all forms

 

Sub TestAllForms()
    Dim objAccObj As AccessObject
    Dim objTest As Object
    
    Set objTest = Application.CurrentProject
    For Each objAccObj In objTest.AllForms
        Debug.Print objAccObj.Name
    Next objAccObj
End Sub








Related examples in the same category

1.Get current project from Application object
2.Run a command through current project
3.CurrentProject.Connection
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