リストボックスに値をセットする場合。

質問

リストボックスに値をセットする場合。

月のリストボックスと日のリストボックスとロットマークのリストボックスがあり、
月の選択から周期を決定し、日を選択すると、決定された周期と日をもとにして、
ロットマークが決定（値の代入）されるのですが、ＩＦ文で記述すると値の代入は、
上手くいくのですが、ＳＥＬＥＣＴ文で記述すると上手くいきません。
何が悪いのでしょうか？。
どなたかご教授下さい。

[IFの時]
Dim syuuki As Integer
If Forms!Print![tuki] = 1 Then
syuuki = 2
Else
If Forms!Print![tuki] = 2 Then
syuuki = 3
Else
If Forms!Print![tuki] = 3 Then
syuuki = 1
Else
:
:
:
If syuuki = 1 Then
If Forms!Print![hi] = 1 Then
Let Forms!Print![lotmark] = "Ａ"
Else
If Forms!Print![hi] = 2 Then
Let Forms!Print![lotmark] = "Ｂ"
:
:
:

[SELECTの時]
Dim syuuki As Integer
Dim tuki_hantei As Integer
Dim hi_hantei As Integer
Dim dummy As Integer
tuki_hantei = Forms!Print![tuki]
hi_hantei = Forms!Print![hi]
Select Case tuki_hantei
Case 3, 6, 9, 12
syuuki = (tuki_hantei Mod 3) + 1
Case 1, 4, 7, 10
syuuki = (tuki_hantei Mod 3) + 1
Case 2, 5, 8, 11
syuuki = (tuki_hantei Mod 3) + 1
End Select
dummy = syuuki & hi_hantei
Select Case dummy
Case 1 & 1
Let Forms!Print![lotmark] = "Ａ"
Case 1 & 2
Let Forms!Print![lotmark] = "Ｂ"
:
:
:

回答No.1

myRange · ベストアンサー

＞dummy = syuuki & hi_hantei
＞Select Case dummy
＞Case 1 & 1
＞Let Forms!Print![lotmark] = "Ａ"
＞Case 1 & 2
＞Let Forms!Print![lotmark] = "Ｂ"

●hi_hanteiの桁数が分からないので仮に、最大２桁（０～９９）として。

'---------------------------------------

dummy = syuuki * 100 + hi_hantei

Select Case dummy
　　Case 101
　　　　Let Forms!Print![lotmark] = "Ａ"
　　Case 102
　　　　Let Forms!Print![lotmark] = "Ｂ"

　　＝＝以下同様＝＝

'---------------------------------------

以上です。

お礼

ありがとうございます。
説明不足で申し訳ありません。

補足

説明不足で申し訳ありません。
まず、hi_hanteiですが、最大２桁です。
値をセットする場合の意味についてですが。
ＩＦの時のコードでフォーム上から日を選択すると、
同時にフォーム上のロットマークが自動で選択
（フォーム上で自動移動）されるのですが、
ＳＥＬＥＣＴのコードでフォーム上から日を選択すると、
ロットマークは手動でしか選択出来ません。
どちらの場合も、Private Sub hi_Click()内で処理しています。
つまり、日をクリックするとロットマークが自動選択出来ます。
これが、ＳＥＬＥＣＴだと出来ないと言う事です。