ＶＢＡの構文は合っているのでしょうか？。

質問

ＶＢＡの構文は合っているのでしょうか？。

変数２つの中身を判定して、フォーム上のリストボックスの規定値を自動で移動させようと
していますが、自動で移動してくれません。
お分かりになる方どなたかご教授下さい。

Select Case syuuki & hi_hantei
Case 1 & 1
Let Forms!Print![lotmark] = "Ａ"
Case 1 & 2
Let Forms!Print![lotmark] = "Ｂ"
Case 1 & 3
Let Forms!Print![lotmark] = "Ｃ"
：
：
：
Case 3 & 31
Let Forms!Print![lotmark] = "?"
End Select

回答No.2

ToOrisugaru · ベストアンサー

はじめまして、通りすがると申します。

Select Case syuuki & hi_hantei
Case 1 & 1
Let Forms!Print![lotmark] = "Ａ"
　　：
　　：

の　syuuki & hi_hantei　は、条件式でなくて変数を記述します。
なので、文法誤りだと思うのですが．．

書くとしたら、以下のような感じで．．
If syuuki = 1 And hi_hantei = 1 Then
Let Forms!Print![lotmark] = "Ａ"
ElseIf syuuki = 1 And hi_hantei = 2 Then
Let Forms!Print![lotmark] = "Ｂ"
ElseIf syuuki = 1 And hi_hantei = 3 Then
Let Forms!Print![lotmark] = "Ｃ"

　　　　　　　　　　　:
　　　　　　　　　　　:

ElseIf syuuki = 3 And hi_hantei = 31 Then
Let Forms!Print![lotmark] = "?"
End If

お礼

ありがとうございます。
ｉｆを使うしかないと言う事ですね。

回答No.3

chie65536（@chie65535）

＞ＶＢＡの構文は合っているのでしょうか？

構文エラーです。

以下のように書き直しましょう。

dim Dummy as integer
：
：
：
Dummy = syuuki & hi_hantei
Select Case Dummy
Case 1 & 1
Let Forms!Print![lotmark] = "Ａ"
Case 1 & 2
Let Forms!Print![lotmark] = "Ｂ"
Case 1 & 3
Let Forms!Print![lotmark] = "Ｃ"
：
：
：
Case 3 & 31
Let Forms!Print![lotmark] = "?"
End Select

お礼

ありがとうございます。
早速試してみます。
待ちきれずに申し訳ありません。

回答No.1

FEX2053

Select Case syuuki & hi_hantei
Case 1 & 1

これ、使えたっけ？　確か

Select Case 変数
Case 値１

と、値は一つか使えなかったかと。

お礼

ありがとうございます。
一つしか使えないと言う事ですね。