Access2010のVBAで動的コントロールにてオプショングループと複数のオプションボタンを作成したいです。
デザインモードでフォームを開き
DoCmd.OpenForm "フォーム1",acDesign
セレクト文で、SQLArrayに結果を代入
intdataX = 2850
intdataY = 3190
オプショングループの作成
Set ctlOpGroup = CreateControl("フォーム1",acOptionGroup, ,"","",intDataX,intdataY, 300,(RECCnt * 300))
intdataX = intdataX + 50
intdataY = intdataY + 50
For i = 0 To UBound(SQLArray,2)
Set ctlOption = CreateControl("フォーム1", acOptionButton, , "", "",intdataX + 300,intdataY, 5000,300)
SetctlLabel = CreateControl("フォーム1", acLabel, , "", "", intdataX + 300,intdataY,5000,300)
ctlLabel.Caption = SQLArray(0, i)
intdataY = intdataY + 300
Next i
上記だと、全てのラジオボタンが選び放題なので、オプショングループを効かせたいです。
また、各オプションボタンのオプションバリューの値を設定したいのですが、方法が分かりません。
どなたか、親切な方、教えて下さい。m(__)m
宜しくお願い致します。
No.1ベストアンサー
- 回答日時:
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Access(アクセス) Accessにインポートした複数のテーブルを表示させる方法が分かりません。 1 2023/01/30 20:22
- その他(OS) DOSコマンド『dir』の『/o』オプション 3 2023/03/10 09:29
- Excel(エクセル) [貼り付けオプション]とは? 3 2022/04/17 08:15
- Excel(エクセル) 「Excelのオプション」の「ユーザーインターフェイスのオプション」の設定値をVBAで取得したい 1 2022/07/31 23:49
- Windows 10 Windows10でセーフモードが出来ません。 2 2022/04/22 23:37
- Access(アクセス) access レポート 請求書について 2 2022/07/04 22:52
- その他(コンピューター・テクノロジー) ブルースクリーンエラーの発生と解決手順 2 2022/10/09 13:05
- Access(アクセス) Access 登録ボタンからサブフォームの更新 1 2022/07/22 10:23
- Visual Basic(VBA) VB.net フォーム 親子 1 2022/07/04 19:00
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
MS Accessでフォームの「開く時」と「読込み時」のイベントの違い
Access(アクセス)
-
Accessで文字列の長さによって、フィールドの幅を自動で合わせる方法
Excel(エクセル)
-
Accessのレポート上のテキストボックス値を設定したい
その他(データベース)
-
-
4
ユーザーフォームで動的(Me.Controls.Add)に作成したコントロールの削除
Visual Basic(VBA)
-
5
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
-
6
コンボボックスの先頭行に空白行を入れるには?
Excel(エクセル)
-
7
Access チェックボックスやオプションボタンのサイズ変更
Access(アクセス)
-
8
不特定多数のコントロールを発生させる方法
Visual Basic(VBA)
-
9
Access_Formのデザインビュー画面を拡大表示
Access(アクセス)
-
10
Accessでフォームへのフィールドの追加方法について
その他(ソフトウェア)
-
11
コントロールの存在確認
Visual Basic(VBA)
-
12
アクセスのフォームで、文字を中央揃えにしたい
Access(アクセス)
-
13
ACCESS フォームからサブフォームのデータを更新・入力したい
Access(アクセス)
-
14
Accessで、1つの項目に複数の置換えを1度でするには?
Access(アクセス)
-
15
フォームの高さを数値で指定したいのですが
Excel(エクセル)
-
16
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
17
スクロールバーをVBAで操作したい
Access(アクセス)
-
18
サブフォームの新規レコードに移動したい アクセス
Access(アクセス)
-
19
Accessのコマンドボタンの立体化について
Access(アクセス)
-
20
親・子リンクフィールドの設定は、どうすればよいのでしょうか。
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAにてメッセージボックスを最...
-
accessで2つ以上のフォームを起...
-
フォームで複数のチェックボッ...
-
筋トレについて質問です 身長17...
-
メインフォームからサブフォー...
-
ExcelVBAでユーザーフォーム内...
-
VBAでフォームのスクロールバー...
-
PDFフォームに本日の日付を自動...
-
PDFフォーム内で日付計算したい...
-
ToolStripStatusLabelを固定し...
-
メッセージボックスの背景色
-
Access 無操作の場合、自動で閉...
-
VB.net(VB)で、フォームにExcel...
-
フォーム上の全てのコントロー...
-
サブフォームの行ごとにコンボ...
-
Accessでフォームから別フォー...
-
Access2000のフォームに含まれ...
-
ACCESSのサブフォームのフォン...
-
C# マルチディスプレイにて、...
-
Google form を利用して 問い合...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAにてメッセージボックスを最...
-
リストボックスの選択解除
-
Googleフォーム・複数人の申し...
-
サブフォームの新規レコードに...
-
Accessでフォームから別フォー...
-
メッセージボックスの背景色
-
PDFフォームに本日の日付を自動...
-
accessで2つ以上のフォームを起...
-
VB.net(VB)で、フォームにExcel...
-
筋トレ初心者です。 ジムでひた...
-
Access 無操作の場合、自動で閉...
-
サブフォームのイベント取得
-
サブフォームの行ごとにコンボ...
-
VBプログラムの終了
-
ユーザーフォーム上にアイコン...
-
アクセスVBA フォームのス...
-
ディスプレイ解像度より大きな...
-
PDFフォーム内で日付計算したい...
-
フォーム上の全てのコントロー...
-
VBAでフォームのスクロールバー...
おすすめ情報