Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Using Nested Loops

Sub GetFormsAndControls()      Dim accObj As AccessObject      Dim myControl As Control      Set obj = CurrentProject.AllForms      For Each accObj In obj          Debug.Print accObj.Name & "---Form"          If Not accObj.IsLoaded Then              DoCmd.OpenForm accObj.Name             For Each myControl In Forms(accObj.Name).Controls                  Debug.Print Chr(9) & myControl.Name              Next              DoCmd.Close          End If      Next  End Sub