Office中国论坛/Access中国论坛

标题: 日期查询在ADP里怎么更改? [打印本页]

作者: ytf123 时间: 2007-5-24 18:26
标题: 日期查询在ADP里怎么更改?
刘小军的日期查询在ADP里面怎么改才有效`，或是有更好的日期段查询语句

谢谢

Dim strWhere As String

   strWhere = "" '

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

If Len(strWhere) > 0 Then

   strWhere = Left(strWhere, Len(strWhere) - 5)

End If

   Debug.Print strWhere

Me.存书查询子窗体.Form.Filter = strWhere

Me.存书查询子窗体.Form.FilterOn = True
[ 本帖最后由 ytf123 于 2007-8-31 14:30 编辑 ]

作者: Dragxixi 时间: 2007-6-6 23:57
偶也想知道,改来改去就是不行,高手快来看看呀!

不知道楼主对我的这个变通办法有没有兴趣?

用这个语句来实现你的功能:

例:SELECT ord_num,ord_date FROM sales WHERE (ord_date >= DATEADD(day,-10,GETDATE()))

上面语句实现的功能是:在sales表中查找在近10天内制作的表,当天的日期有GETDATE()函数返回.

作者: Dragxixi 时间: 2007-6-7 23:02
刚学了一招,不知楼主用不用,不用>= 和 <=

都用between,当进书日期开始为空,[进书日期] between '1970-01-01' and '" & me.进书日期截止 & "'

当进书漆器截止为空,[进书日期] bwtween '" & me.进书日期开始 & "' and '2050-12-31'

都为空就是 '1970-01-01' and '2050-12-31'

都不为空..................不说你也会!

作者: Dragxixi 时间: 2007-6-7 23:03
别用FORMAT,也不要用#

作者: ytf123 时间: 2007-6-8 17:05
非常感谢Dragxixi

作者: fisher1013 时间: 2007-6-27 00:31
我用来在ADP 做了个寄样管理的查询其中的日期部分没有问题

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

      strWhere = strWhere & "([SendDate] >= #" & Format(Me.寄样开始日期, "yyyy-mm-dd") & "#) AND "
End If
If Not IsNull(Me.寄样结束日期) Then

      strWhere = strWhere & "([SendDate] <= #" & Format(Me.寄样结束日期, "yyyy-mm-dd") & "#) AND "
End If

作者: fisher1013 时间: 2007-6-27 00:38
If Len(strWhere) > 0 Then

      strWhere = Left(strWhere, Len(strWhere) - 5)

End If

'在此处已经指定了LIKE的查询范围是:SampleSend_子窗体
  'Filter后面的条件可以跟LIKE语句

  Me.寄样总窗体.Form.Filter = strWhere
  Me.寄样总窗体.Form.FilterOn = 1


你的问题是在ADP 中 Filter中后面是跟1 或者0  而不能跟TRUE 或者FALSE

作者: ytf123 时间: 2007-6-27 22:49
谢谢fisher1013 ！！

作者: chenyingfengsx 时间: 2009-9-26 14:43
qidai

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)