Mega Code Archive

 

Categories / VisualBasic Script / Access

 

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