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