HOME > 即効テクニック > AccessVBA > フォーム・レポート > フォームに配置されたすべてのコントロール名を取得する

即効テクニック

フォーム・レポート

フォームに配置されたすべてのコントロール名を取得する

(Access 97)
●詳細●
サンプルでは、フォームに配置されているすべてのコントロールの名前を、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