Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Early Exit from a Loop

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