サンプルでは、フォームに配置されているすべての
コントロールの名前を、For...Each Nextステートメントを使って、
イミディエイトウィンドウに出力しています。

　コントロールの名前を取得するには、フォームが開かれている
必要があるので、DoCmdオブジェクトのOpenFormメソッドでフォームを
開き、処理が終了したらCloseメソッドで閉じています。

● 準備 ●

　フォーム「フォーム1」にコントロールを配置して、
標準モジュールに次のプロシージャを作成してください。

● サンプル ●

Sub Sample()
    Dim myCtrl As Control
    
    DoCmd.OpenForm "フォーム1"
    
    For Each myCtrl In Forms!フォーム1.Controls
        Debug.Print myCtrl.Name
    Next
    
    DoCmd.Close acForm, "フォーム1"
    
End Sub