
No.2ベストアンサー
- 回答日時:
案1
取りあえず必要なだけコマンドボタンを配置する
5個だと仮定して
フォームのモジュール内に
Function cmdSel()
Dim cb As Control
Set cb = Screen.ActiveControl
Select Case cb.Name
Case "コマンド0"
MsgBox "0"
Case "コマンド1"
MsgBox "1"
Case "コマンド2"
MsgBox "2"
Case "コマンド3"
MsgBox "3"
Case "コマンド4"
MsgBox "4"
End Select
Set cb = Nothing
End Function
とします。
各コマンドボタンのクリック時イベントの欄に
=cmdsel()
としてみてください。
案2
「オプション グループ」コントロールを配置し(仮名フレーム1)
その中にトグルボタンを5個配置し、それぞれのオプション値を0~4にします。
オプショングループのクリック時イベントに
Private Sub フレーム1_Click()
Select Case Me!フレーム1.Value
Case 0
MsgBox "0"
Case 1
MsgBox "1"
Case 2
MsgBox "2"
Case 3
MsgBox "3"
Case 4
MsgBox "4"
End Select
End Sub
Accessのバージョンが不明なので2010の場合↓
http://hamachan.info/win7/Access/option.html
この回答へのお礼
お礼日時:2013/10/28 11:19
案1を使わせて頂き、無事やりたいことができました。いろんなやり方があるのですね。案2も今後の参考にさせて頂きます。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
vba textboxへの入力について教...
-
VBA 入力箇所指定方法
-
VBAでCOPYを繰り返すと、処理が...
-
Vba セルの4辺について罫線が有...
-
VBAでセルの書式を変えずに文字...
-
vbsでのwebフォームへの入力制限?
-
複数のExcelファイルをマージす...
-
【マクロ】並び替えの範囲が、...
-
VBA ユーザーフォーム ボタンク...
-
vb.net(vs2022)のtextboxのデザ...
-
【VBA】値を変更しながら連続で...
-
vbaにてseleniumを使用したedge...
-
【マクロ】シートの変数へ入れ...
-
【マクロ】開いているブックの...
-
エクセルのマクロについて教え...
-
エクセルのVBAコードについて教...
-
算術演算子「¥」の意味について
-
VBAでユーザーフォームを指定回...
-
VB.net 文字列から日付型へ変更...
-
[VB.net] ボタン(Flat)のEnable...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Teratermマクロの戻り値の取得失敗
-
Windowsのバッチファイルでcall...
-
ネットワークフォルダの中身を...
-
バッチ(Windows2000)での解析エ...
-
ユーザーフォーム内のテキスト...
-
Visual C++からftpを使う
-
system関数のエラー検出
-
コマンドプロンプトで印刷実行
-
テキストボックスのフォーカス...
-
VBAチェックボックスで有効無効...
-
コマンドプロンプトでサービス...
-
VISCAプロトコル(RS232C通信)...
-
Office 2011 VBA フォルダ作成
-
OUTLOOKで受信メールを開くとテ...
-
VBで定期的にタイムサーバに時...
-
Excel VBAについて
-
リストボックス2に表示されたフ...
-
バッチファイル pause時の文字...
-
FlashROMにデータを書き込むに...
-
gmailでのimap設定
おすすめ情報