Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Using the For Each Next Loop

Sub GetControls()         Dim myControl As Control         Dim myForm As Form         DoCmd.OpenForm "Customers"         Set myForm = Screen.ActiveForm         For Each myControl In myForm             Debug.Print myControl.Name         Next     End Sub