这个日期条件为什么找不到需要的结果？

半夜罗　发表于：2015-09-04 16:55:12 　

复制

请问各位老师！

这段代码为什么日期条件找不到需要的结果？姓名和性别都能很好地得出结果，加上日期条件后就什么也没有了

问题如代码的红色部分。谢谢！！

Dim strsql As String

strsql = "select * from 数据 where 1=1"

strsql = strsql & "and 日期 like '>= #" & Format(Me.截止日期, "yyyy-mm-dd") & "#)'"

End If

If Not IsNull(Me.截止日期) Then
'【截止日期】有输入

strsql = strsql & "and 日期 like '<= #" & Format(Me.截止日期, "yyyy-mm-dd") & "#)'"

End If

'**************执行查询

Me.子窗体.Form.RecordSource = strsql
Me.子窗体.Form.Refresh

Me.Refresh

这段代码个人认为很好理解，也很适用。我也用得较多（在没有加入日期条件前），所以我想加入日期条件，但失败了。

请老师能帮我将上面的红色部分修改正确，非常感谢！！！！点击下载此附件

Top

chinasa 发表于：2015-09-04 21:01:42

这样就可以了

Dim strsql As String
strsql = "select * from 数据 where 1=1 "

    '判断【文本框】条件是否有输入的值
    If Not IsNull(Me.性别) Then
        '有输入
        strsql = strsql & "and 性别 like '*" & Me.性别 & "*'"
    End If
    If Not IsNull(Me.姓名) Then
        '有输入
        strsql = strsql & "and 姓名 like '*" & Me.姓名 & "*'"
    End If
    '*****************************************
    '判断【日期】条件是否有输入的值
    If Not IsNull(Me.开始日期) Then
        '【开始日期】有输入
        strsql = strsql & " and 日期 >= #" & Format(Me.开始日期, "yyyy-mm-dd") & "#"
    End If
    If Not IsNull(Me.截止日期) Then
        '【截止日期】有输入
        strsql = strsql & " and 日期 <= #" & Format(Me.截止日期, "yyyy-mm-dd") & "#"
    End If
    MsgBox strsql
    '**************执行查询
    Me.子窗体.Form.RecordSource = strsql
    Me.子窗体.Form.Refresh
    Me.Refresh

Top

半夜罗发表于：2015-09-05 16:33:32

谢谢一楼老师！！！！！！！！！！

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

这个日期条件为什么找不到需要的结果？