| |
文字列の日付を範囲指定することは出来たのですが
今度は並べ替えが上手く行かず、レポートに思うように表示されません。
フィールドの中身はこうです
Date
01-09-05
02-09-05
03-09-05
・
・
・
30-09-05
01-10-05
02-10-05
とこういうふうにdd-mm-yyでフィールドに格納されています。
結果としてほしいのは
01-09-05から01-10-05を範囲指定した場合に
レポートに表示される順番は
01-09-05
02-09-05
・
・
・
01-10-05
という順番で表示してほしいのですが、
現在
01-09-05の次には01-10-05が表示されてしまいます
コードはこう書いています。
Private Sub Report_Open(Cancel As Integer)
Dim strStart As String
Dim strEnd As String
Dim strsql As String
strStart = Forms!PrintOut!txtStart
strStart = Right(strStart, 2) & Mid(strStart, 4, 2) & Left(strStart, 2)
strEnd = Forms!PrintOut!txtEnd
strEnd = Right(strEnd, 2) & Mid(strEnd, 4, 2) & Left(strEnd, 2)
If (strStart <> "") And (strEnd <> "") Then
strsql = "SELECT Date, "
strsql = strsql & "TapeSet, "
strsql = strsql & "StatusT,ServerDowntimeT, "
strsql = strsql & "RemarksT,RemarksColumnT, "
strsql = strsql & "StatusN,ServerDowntimeN, "
strsql = strsql & "RemarksN,RemarksColumnN, "
strsql = strsql & "StatusJ,ServerDowntimeJ, "
strsql = strsql & "RemarksJ,RemarksColumnJ, "
strsql = strsql & "Memo FROM BackupLog "
strsql = strsql & "WHERE (((Right([Date],2) & Mid([Date],4,2) & Left([Date],2)) "
strsql = strsql & "Between '" & strStart & "' And '" & strEnd & "')) "
strsql = strsql & "ORDER BY Right([Date],2) & Mid([Date],4,2) & Left([Date],2);"
Me.RecordSource = strsql
End If
If (strStart = "") And (strEnd = "") Then
Me.RecordSource = "BackUpLog"
End If
End Sub
Order by句を使っているのですが、並べ替えが出来ません。
どなたかご教授いただければ大変嬉しく思います。
どうぞよろしくお願いいたします。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
