Access VisualBasic Script

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