Access VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Access
  4. 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