リストボックスに値をセットする場合。
リストボックスに値をセットする場合。
月のリストボックスと日のリストボックスとロットマークのリストボックスがあり、
月の選択から周期を決定し、日を選択すると、決定された周期と日をもとにして、
ロットマークが決定(値の代入)されるのですが、IF文で記述すると値の代入は、
上手くいくのですが、SELECT文で記述すると上手くいきません。
何が悪いのでしょうか?。
どなたかご教授下さい。
[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] = "A"
Else
If Forms!Print![hi] = 2 Then
Let Forms!Print![lotmark] = "B"
:
:
:
[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] = "A"
Case 1 & 2
Let Forms!Print![lotmark] = "B"
:
:
:
お礼
ありがとうございます。補足させて頂きました。
補足
Aのリストボックス内の値を選ぶと、判定でAに対応するBの値を自動でセットしに行きたいと考えています。