[求助]关于日期查询代码

hanbenben

Private Sub 查询_Click()


    If Not IsNull(Me.开始日期) Then


        strWhere = strWhere & "([送检日期] >= #" & Format(Me.开始日期, "yyyy-mm-dd") & "#) AND "


    End If


    If Not IsNull(Me.结束日期) Then


        strWhere = strWhere & "([送检日期] <= #" & Format(Me.结束日期, "yyyy-mm-dd") & "#) AND "


    End If





    Me.产品查询子窗体.Form.Filter = strWhere


    Me.产品查询子窗体.Form.FilterOn = True





    Set rs = Me.Recordset.Clone
    rs.FindFirst "[供应商] = '" & Me![供应商列表] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark





End If


End Sub





但是“Me.产品查询子窗体.Form.Filter = strWhere


    Me.产品查询子窗体.Form.FilterOn = True”


总是出错，请问是什么问题？

[此贴子已经被作者于2006-3-6 9:28:01编辑过]

wangf

我也有同样的问题怎样解决的呀！有人知道吗？

wangf

1

wangf

1

eyewitnes

debug.print strWhere  看看吧

hanbenben

    Me.products query subform.Form.Filter = strWhere
    Me.products query subform.Form.FilterOn = True

还是一样出错，说是语法错误

nagee

      If Not IsNull(Me.开始日期) Then



        strWhere = strWhere & "([送检日期] >= # " & Me.开始日期 & "# ） AND "



    End If



    If Not IsNull(Me.结束日期) Then



        strWhere = strWhere & "([送检日期] <= # " & Me.结束日期 & "#) AND "



    End If

[此贴子已经被作者于2006-3-6 10:35:15编辑过]

hanbenben

可是我输入正确的日期格式，仍然会出错

fan0217

strWhere 的值不符合SQL的Where子句的要求。