即効テクニック |
●詳細● サンプルでは、フォームに配置されているすべてのコントロールの名前を、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