请教日期的查询代码

t小宝

多加两个y，后面的文本框的值也格式化，就保险了
str = str & " and Format([发件日期], 'yyyy-mm-dd') >= #" & Format(Me.txtstartime, "yyyy-mm-dd") & "#"

简

t小宝 发表于 2012-2-27 20:04
多加两个y，后面的文本框的值也格式化，就保险了
str = str & " and Format([发件日期], 'yyyy-mm-dd') >= ...

还是不行，晕啊~~~还是提示“2465”错误。

Henry D. Sy

传例子吧！

Henry D. Sy

把日期格式更改为常规格式

1. Private Sub chaxun()    '查询
   
2.     Dim str As String
   
3.     If IsNull(Me.txtstartime.Value) = False Then
   
4.         str = str & "Format([发件日期],'yyyy-mm-dd') >= #" & Format(Me.txtstartime, "yyyy-mm-dd") & "# And "
   
5.     End If
   
6.     If IsNull(Me.txtendtime.Value) = False Then
   
7.         str = str & "Format([发件日期],'yyyy-mm-dd') <= #" & Format(Me.txtendtime, "yyyy-mm-dd") & "#"
   
8.     End If
   
9.     Me.sub1.Form.Filter = str: Me.sub1.Form.FilterOn = True
   
10. End Sub
    

复制代码

简

Henry D. Sy 发表于 2012-2-28 09:46
把日期格式更改为常规格式

HD.Sy版主啊，无法查询啊，不然你在这个时间段11-08-01和11-08-30里查来看，真的筛查不出来。

Henry D. Sy

简 发表于 2012-2-28 13:07
HD.Sy版主啊，无法查询啊，不然你在这个时间段11-08-01和11-08-30里查来看，真的筛查不出来。

JosephTan

依赖性太强了，什么都要别人做好给他

Henry D. Sy

1. Private Sub chaxun()    '查询
   
2.     Dim str As String
   
3.     If Not IsNull(Me.txtstartime) Then
   
4.         str = str & "Format([发件日期],'yyyy-mm-dd') >= #" & _
   
5.               Format(Me.txtstartime, "yyyy-mm-dd") & "# And "
   
6.     End If
   
7.     If Not IsNull(Me.txtendtime) Then
   
8.         str = str & "Format([发件日期],'yyyy-mm-dd') <= #" & _
   
9.               Format(Me.txtendtime, "yyyy-mm-dd") & "# And "
   
10.     End If
    
11.     If Len(str) <> 0 Then
    
12.         str = Left(str, Len(str) - 5)
    
13.     End If
    
14.     Me.sub1.Form.Filter = str
    
15.     Me.sub1.Form.FilterOn = True
    
16. End Sub

复制代码

将代码改成这样避免空值错误

简

Henry D. Sy 发表于 2012-2-28 14:07
将代码改成这样避免空值错误

版主啊，我现在好像明白我的代码为什么筛选不出结果了。

原因是我的时间里用了小时分秒。

当我要查11-08-10这个指定日期，我把开始时间，结束时间都设为11-08-10，我以为就应该筛选得出来，结果是不行的。

简

我终于找到问题原因了，正确的代码其实应该如下：

        If IsNull(Me.txtstartime.Value) = False Then
            str = str & " and [发件日期]>= #" & Format(Me.txtstartime, "yyyy-mm-dd") & " 00:00:00 #"        End If
   
        If IsNull(Me.txtendtime.Value) = False Then
            str = str & " and [发件日期]<= #" & Format(Me.txtendtime, "yyyy-mm-dd") & " 23:59:59 #"        End If

要考虑到小时分秒，好像就只有写才合理了。