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

質問

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

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

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

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

回答No.1

piroin654 · ベストアンサー

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

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 条件

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

お礼

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

回答No.2

piroin654

No1です。

Select Case cmb_選択値

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

Select Case Me!cmb_選択値

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

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

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

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

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