Iterate through all modules located in the database referenced by the CurrentProject object : CurrentProject « Access « VBA / Excel / Access / Word






Iterate through all modules located in the database referenced by the CurrentProject object

 
Sub IterateAllModules()
    Dim vnt As Variant
    With CurrentProject
        For Each vnt In .AllModules
            Debug.Print vnt.Name
        Next vnt
    End With
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.Loop through all forms
5.Use With statement with CurrentProject
6.Iterates through the AllForms collection of the CurrentProject, printing the name of each form
7.The AllReports collection allows you to loop through all reports in the current project.
8.The AllMacros collection allows you to iterate through all macros stored in the current project.
9.Use the CompactRepair method of the Application object to compact and repair the database