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