ＡＣＣＥＳＳＶＢＡでラジオボタンを実行させたい

2007/12/05 19:16

このQ&Aのポイント

フォームにラジオボタンを作成し、それぞれ、Ａ・Ｂと設定しました。Ａを選択した場合に、Ａのコードを実行させ、Ｂを選択した場合にＢのコードを実行させたいと考えています。以下のコードを作成しましたが、うまくいきません。どこが間違っているのでしょうか。
ＡＣＣＥＳＳＶＢＡでフォームにラジオボタンを作成しました。ラジオボタンはＡとＢの２つを設定しました。Ａを選択した場合にはＡのコードを実行し、Ｂを選択した場合にはＢのコードを実行するようにしたいと考えています。しかし、以下のコードを作成してもうまくいきません。どこが間違っているのでしょうか。
ＡＣＣＥＳＳＶＢＡのフォームにラジオボタンを設置しました。ラジオボタンはＡとＢの２つを用意しました。Ａを選択した場合にはＡのコードを、Ｂを選択した場合にはＢのコードを実行させたいと思っています。以下のコードを作成しましたが、うまく動作しません。どこが問題なのでしょうか。

smorgas030
お礼率85% (231/269)

その他（プログラミング・開発）
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

fumufumu_2006
ベストアンサー率66% (163/245)

2007/12/06 04:18 回答No.1

>フォームにラジオボタンを作成し、それぞれ、Ａ・Ｂと設定しました。というのは、フォームに、オプショングループでフレーム（フレーム1）を作り、その中にオプションボタンを2個作り、Ａ・Ｂと設定した。と言うことだと思って話します。オプションボタンがオプショングループ内に配置されて、いわゆるラジオボタン（フレーム内で1つしか選べない）になった場合、オプションボタンの値ではなくオプショングループから情報を得ます。例えば、オプショングループの名前が「フレーム1」とします。最初にプロパティでオプションボタンAとBのオプション値を設定してください。 A=1、B=2　にします（通常、配置した順に1、2、3・・・と自動的に付きますが）オプショングループ（フレーム1）の既定値（DefaultValue）に、初期値の1または2を設定してください。後は、 Private Sub test_Click() ・・・ If フレーム1.Value = 1 Then '1（Aが選ばれている場合）の処理 ElseIf フレーム1.Value = 2 Then '2（Bが選ばれている場合）の処理 End If ・・・ End Sub で処理できます。尚、選択が変更した時点での処理も、ボタン毎にもできますが、フレームの更新前処理（BeforeUpdate）、更新後処理（AfterUpdate）でも処理できます。 Private Sub フレーム1_AfterUpdate() MsgBox フレーム1.Value End Sub

質問者