Mega Code Archive

 

Categories / VisualBasic Script / Access

 

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