Access　VBAについて教えてください。フォーム上にラジオボタンA、ラジオボタンB、ラジオボタンCがあります。各オプション値は1,2,3です。オプションボタンを選択して実行ボタンを押すと各処理が走るという仕組みにしたいです。そこで分岐処理を書きました。ちなみにオプションはグループ化されています。またオプショングループ１の中に実行ボタンが配置。オプショングループ１の中のオプショングループ2にラジオボタンを配置してます。

Question

akaired

186

163もっと見る

150pt

コンピュータ

Access　VBAについて教えてください。フォーム上にラジオボタンA、ラジオボタンB、ラジオボタンCがあります。各オプション値は1,2,3です。オプションボタンを選択して実行ボタンを押すと各処理が走るという仕組みにしたいです。そこで分岐処理を書きました。ちなみにオプションはグループ化されています。またオプショングループ１の中に実行ボタンが配置。オプショングループ１の中のオプショングループ2にラジオボタンを配置してます。

If optionvalue1.value=1 Then
処理
ElseIf optionvalue2.value=2 Then
処理
Else
処理
End If
という処理です。この式はあっているでしょうか？以前http://q.hatena.ne.jp/1234976417での回答では上手に分岐しませんでした。以前はオプションボタン2を選択しているとします。オプション値は2です。にもかかわらず、実行ボタンを押すと既定値1のオプションボタン1を方に分岐がいってしまいました。今回は”実行時エラー2427 指定した式には値がありません"というメッセージが表示されてしまい、動きません。オプション値は正しく設定されています。どこが間違っているでしょうか？

回答の条件

1人2回まで

登録：2009/02/25 11:43:41
終了：2009/03/03 20:22:38

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

コメントはまだありません

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

リクエスト送信済

回答リクエストを送信したユーザーはいません

SALINGER · Accepted Answer · 2009-02-25T13:09:38+09:00

ラジオボタンとフレームの関係なのですが、どのラジオボタンが選択されているかは１つ上のフレームのValueでわかります。

この場合、オプショングループ１がoptionvalue1で、オプショングループ２がoptionvalue2ならば、

optionvalue1は常にNullとなります。修正すると

If optionvalue2.value=1 Then
処理
ElseIf optionvalue2.value=2 Then
処理
Else
処理
End If

また、ラジオボタンがどれも押されていない状態だとNullを返すので、

Private Sub Form_Load()
    Me.optionvalue2.Value = 1
End Sub

などで、ロードと同時にデフォルトのラジオボタンが選択されているようにすればいいです。

ベストアンサー

SALINGER34549692009/02/25 13:09:38

コメント（0件)

この質問への反応（ブックマークコメント）