条件分岐
Windows2000
access2000
毎月Excelで材料費を以下のように入力しています。
店番号、日付、金額
000001,2006/07/01,1000
000001,2006/07/02,1450
000001,2006/07/03,2000
このシートを翌月にaccessにインポートします。
インポートを指示するためのフォームを作成し、店、年、月を指定して実行ボタンでインポートを行うようにしました。
このとき月の日数にあわせてインポートするシートの範囲を指定するため以下のような条件分岐にしました。
If Me!月 = "02" Then
DoCmd.TransferSpreadsheet acImport, 8, "材料費", fname01, True, "材料!a2:c30"
ElseIf Me!月 = "04" Or "06" Or "09" Or "11" Then
DoCmd.TransferSpreadsheet acImport, 8, "材料費", fname01, True, "材料!a2:c32"
Else
DoCmd.TransferSpreadsheet acImport, 8, "材料費", fname01, True, "材料!a2:c33"
End If
ところが上2つの条件では正常にインポートされるのですが、3番目の条件でインポートを指示しても2番目の条件でインポートされてしまいます。順番を入れ替えても同じ結果になりました。
何がいけないのでしょうか。
よろしくお願いします。