こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

アクセス コンボボックスの選択値による処理分岐

いつもお世話になっております。
コンボボックスを選択することで処理を分岐させたいのです。

「cmb_選択値」というコンボボックスがあり、
選択しない場合は「選択してください」というメッセージを表示させ、Exit sub
1と選択した場合は、1の処理(call1)
2を選択した場合は、2の処理(call2)
3・・・
というイメージで処理を分岐したいと考えています。

If文までは多少理解できているのですが、
Case文がよくわからない初心者なのでお手数おかけしますが、
ご教示いただけると幸いです。

よろしくお願い致します。

投稿日時 - 2018-04-04 10:20:55

QNo.9484920

困ってます

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

勘違いでなければ、たとえば、ボタンのクリック時のイベントで、

Private Sub コマンド1_Click()

  Select Case cmb_選択値
    Case 1
      Call 1
    Case 2
      Call 2
    Case Else
      MsgBox "何も選択されていません。"
    End Select

End Sub


このような感じです。

Case 1

のところで、「1」が文字列の場合、たとえば「東京」などの場合は、

Case "東京"

のように文字列を""で囲みます。数値の場合でも""で囲ってもエラーは
出ないと思います。

あとは、いろいろなケースによって、

  Select Case True

とか、

  Case Is 条件

などの使い方もあります、探せばいろいろありますが、わからなければ
質問してください。

投稿日時 - 2018-04-04 12:01:43

お礼

難しく考えすぎていたようで・・・
ご教示、ありがとうございました!

投稿日時 - 2018-04-04 12:41:32

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

No1です。

Select Case cmb_選択値

これでもエラーは出ないかもしれませんが、明確に

Select Case Me!cmb_選択値

のように、Me!をつけるようにします。
また、

MsgBox "何も選択されていません。"

はコンボボックスで何も選択されていない場合も含めて

MsgBox "処理範囲にありません"

のほうが妥当ですかね。
何かあれば補足してください。

投稿日時 - 2018-04-04 12:35:33

あなたにオススメの質問