|
初めて質問します。
よろしくお願いいたします。
Dateというフィールドに
01-09-05(dd-mm-yy)という形で文字列で日付が入っています。
02-09-05
03-09-05
01-10-05
レポートを作成するときに、
フォームで01-09-05から、03-09-05までのデータをプリントアウトしたい
というTEXTBOXを作成しました。
(日付を指定してその間にあるデータをプリントアウトさせるというものです)
結果としては01-09-05、02-09-05、03-09-05のデータがプリントアウト
されたらOKなのですが、
実際はすべてされてしまいます。
コードの記述はこうです。
Private Sub Report_Open(Cancel As Integer)
Dim strStart As String
Dim strEnd As String
Dim strsql As String
strStart = Forms!PrintOut!txtStart ’範囲指定する画面からの値
strEnd = Forms!PrintOut!txtEnd
If (strStart <> "") And (strEnd <> "") Then
strsql = "Select * From BackupLog Where Date Between '" & strStart & "' And '" & strEnd & "'"
Me.RecordSource = strsql
End If
If (strStart = "") And (strEnd = "") Then
Me.RecordSource = "BackUpLog"
End If
あっさり動くと考えておりましたら、
01-10-05のデータまでプリントアウトされてしまいました。
01が先に来ているのが原因と思われます。
お知恵をお借りしたいのですが、
このように
dd-mm-yyで文字列としてフィールドに格納されている場合、
範囲指定をする方法をどなたかご教授ください。
|
|