Access VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Access
  4. Iterates through the AllForms collection of the CurrentProject, printing the name of each form
Sub IterateAllForms()
    Dim vnt As Variant
    With CurrentProject
        For Each vnt In .AllForms
            Debug.Print vnt.Name
        Next vnt
    End With
End Sub