日期查询在ADP里怎么更改?

ytf123

刘小军的日期查询在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

偶也想知道,改来改去就是不行,高手快来看看呀!

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

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

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

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

Dragxixi

刚学了一招,不知楼主用不用,不用>= 和 <=

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

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

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

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

Dragxixi

别用FORMAT,也不要用#

ytf123

非常感谢Dragxixi

fisher1013

我用来在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

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

谢谢fisher1013 ！！

chenyingfengsx

qidai