请教高手这段日期段查询的SQL语句怎么写

Dragxixi

请教高手这段日期段查询的SQL语句该怎么改?

   If IsNull(Me.Input_date_min) And Not IsNull(Me.Input_date_max) Then
      STSQL = STSQL & " and [Input_date] <= '" & CDate(Me.Input_date_max.Text) & "'"

   ElseIf Not IsNull(Me.Input_date_min) And IsNull(Me.Input_date_max) Then
      STSQL = STSQL & " and [Input_date] >= '" & CDate(Me.Input_date_min.Text) & "'"

   ElseIf Not IsNull(Me.Input_date_min) And Not IsNull(Me.Input_date_max) Then
      STSQL = STSQL & " and [Input_date] between '" & CDate(Me.Input_date_min.Text) & "' and '" & CDate(Me.Input_date_max.Text) & "'"

      
   End If

   If IsNull(Me.Revise_date_min) And Not IsNull(Me.Revise_date_max) Then
      STSQL = STSQL & " and [Revise_date] <= '" & CDate(Me.Revise_date_max.Text) & "'"

   ElseIf Not IsNull(Me.Revise_date_min) And IsNull(Me.Revise_date_max) Then
      STSQL = STSQL & " and [Revise_date] >= '" & CDate(Me.Revise_date_min.Text) & "'"

   ElseIf Not IsNull(Me.Revise_date_min) And Not IsNull(Me.Revise_date_max) Then
      STSQL = STSQL & " and [Revise_date] between '" & CDate(Me.Revise_date_min.Text) & "' and '" & CDate(Me.Revise_date_max.Text) & "'"

   End If
                              
   Me.F_pur_data.Form.RecordSource = STSQL

运行时提示:除非控件获得焦点,否则您不能引用该控件的属性或者方法 (补充一点,这是在ADP下的)

我试过不要.text,但只有4个条件都输入时,才能出结果,否则就提示类型不匹配...

要是先输入4个条件,然后再删除掉其中1个或2个或3个,也可以出结果....

Dragxixi

在线等待方法,求高手指教!

谢健

我不是高手，我闪一边！

Dragxixi

....会的人不一定是高手,不会的人也不一定不是高手,但可以肯定的是:如果谁帮我搞定了,那我相信他肯定是个高手

tz-chf

我只用between and

不要用cdate，也不要用.text

如果只有Me.Input_date_max，那么就从1970-01-01到max

同理，只有Me.Input_date_min，那么就从min到2050-01-01，足够用了吧。

max和min都填，这个你自己会做。between min and max

Dragxixi

谢谢tz-chf

不过还有一问题,就是假如我设了一清除查询条件的按钮

在单击事件中写入:

me.Input_date_min=""

me.Input_date_max=""

me.Revise_date_min=""

me.Revise_date_max=""

再执行查询时就不行了,没有结果显示哦!

是不是不能用上面这种清除方法?

andymark

下面的也一起清空了吗

STSQL=""