条件分岐

質問

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

ところが上２つの条件では正常にインポートされるのですが、３番目の条件でインポートを指示しても２番目の条件でインポートされてしまいます。順番を入れ替えても同じ結果になりました。
何がいけないのでしょうか。
よろしくお願いします。

回答No.1

noname#22222 · ベストアンサー

＊スーツのデザイナーでExcelも扱ったことがないので外していたらスミマセン！

多分ですが、単純な条件文のバグと思います。

If Me!月 = "02" Then
　　DoCmd.TransferSpreadsheet acImport, 8, "材料費", fname01, True, "材料!a2:c30"
ElseIf Me!月 = "04" Or Me!月 ="06" Or Me!月 ="09" Or Me!月 ="11" Then
　　DoCmd.TransferSpreadsheet acImport, 8, "材料費", fname01, True, "材料!a2:c32"
Else
　　DoCmd.TransferSpreadsheet acImport, 8, "材料費", fname01, True, "材料!a2:c33"
End If

ただし、次のように書いても良いと思います。

Private Sub CommandButton1_Click()
　　Dim strDatas As String

　　Select Case Me!月
　　　　Case "02"
　　　　　　strDatas = "材料!a2:c30"
　　　　Case "04", "06", "09", "11"
　　　　　　strDatas = "材料!a2:c32"
　　　　Case Else
　　　　　　strDatas = "材料!a2:c33"
　　End Select
　　DoCmd.TransferSpreadsheet acImport, 8, "材料費", fname01, True, strDatas
End Sub

※月が文字列？？？とは思いました。
※Me.月 => Me!月 も気になります。

お礼

ありがとうございます。
上のパターンでできました。

月がテキストになっているのは、年、月、日をそれぞれコンボボックスにしているからなのですが、おかしいでしょうか。
また、Me.月 と Me!月 の違いが分かっていません。どのように使い分けるのでしょうか。

回答No.2

noname#22222

s_husky です。

通常は、全て、＜Me.月＞という書き方がバグが少ないかと思います。
理由は、＜月＞が選択肢として表示されるからです。
Access2.0～97までは、＜Me!月＞という書き方が主流だったように記憶しています。Access2000以降は、＜Me.月＞になったように記憶しています。
ただ、なお、一部に、＜Me.月＞と＜Me!月＞との書き方で異なる表現をしなければならないこともあるようですので注意が必要です。

*年、月、日が文字列ですと SQL文で Like文が使えるなどの利点もあるので一概に言えないかと思います。

お礼

ありがとうございました。