Case分の記述方法について

お知恵の拝借をお願いします。
フォームでボタンが２つあります。
Ａのボタンを押した時、kizyun ="1"
Ｂのボタンを押した時、kizyun ="2"
をセットするようにしています（下記の参考）

Ｃのボタンを押した時、kizyun ="1"だったら、クエリＡ
kizyun ="2"だったら、クエリＢを起動します。

過去の質問履歴を参考に、以下の記述しましたが、????????に何を入力すればよいか、
また、他の式はあっているのか教えて頂けませんでしょうか。
宜しくお願いします。


select case ????????

case　kizyun ="1"
docmd.openquery "クエリＡ"

case　kizyun ="2"
docmd.openquery "クエリＢ"

end Select



【参考】
Public Function Odbc_Yearly()
kizyun =1
End Function

Public Function Odbc_Monthly()
kizyun =2
End Function

No.1 ベストアンサー 回答者： GooUserラック 回答日時： 2017/02/23 11:55

その部分だけでしたら

Select Case kizyun
　Case "1"
　　docmd.openquery "クエリＡ"
　Case "2"
　　docmd.openquery "クエリＢ"
End Select

この回答へのお礼

できました。ラックさん、ありがとうございます♪

お礼日時：2017/02/23 14:56

No.2 回答者： Zincer 回答日時： 2017/02/23 12:48

その形式の方が好みでしたら、

Select Case True
Case (ここに条件を書く：例　kizyun =1)

Case (条件２)

・・・
（Case else:必要なら、）
上記の条件に対応しない場合
End Select

まあ、こちらの形式の方が複数の条件を設定できるメリットはあります。


ところで、他に気になる点が・・・
「kizyun」は文字列？数字？

・Public Function Odbc_Yearly()
・Public Function Odbc_Monthly()
は、「kizyun」の値を設定するためだけに、引数無しで使用しているようですが、問題ありませんか？

Ａのボタン_Clickのイベントで
Odbc_Yearly　としているのでしょうか？
もしこれだけであれば、直接
Ａのボタン_Clickのイベントに「kizyun ="1"」としてもいいように思います。
他の関連する変数を同時に設定したい場合はべつです。


「docmd.openquery "クエリＡ"」
クエリの起動のさせ方のようですが、正直わかりませんので、コメントできません。

この回答へのお礼

Zincerさん、ご回答ありがとうございます。

kizyunは文字列になります。　記載しませんでしたが、引数は定義しています。

せっかく、教えて頂いたのですが、ＮＯ１のラックさんのやり方で解決しました。

ありがとうございます。

お礼日時：2017/02/23 14:56