Office中国论坛/Access中国论坛

标题: 按日期查询问题 [打印本页]

作者: huang1314 时间: 2013-6-4 21:33
标题: 按日期查询问题
我做一个按日查询，有一个问题请教
[attach]51900[/attach]
运行的时候，可以有得到想的效果，但每次都输入两个时期，很不方便

想换成在一个窗体先输入两个日期，然后传递过去，不用输入那么麻烦，如下
[attach]51901[/attach]
代码如何写

作者: ycxchen 时间: 2013-6-5 08:32
加入日期控件

作者: 盗梦 时间: 2013-6-5 09:07
楼上说的没错

作者: mclly2000 时间: 2013-6-5 09:08
加入日期控件并用代码设置默认值比如date或者date-30

作者: li_wanli 时间: 2013-6-5 09:35
本帖最后由 li_wanli 于 2013-6-5 09:37 编辑

在"按日期查询"(query)添加单击事件
Private Sub query_Click()
On Error GoTo Err_query_Click
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
Me.Form.Filter = strWhere
Me.Form.FilterOn = True
Exit_query_Click:
Exit Sub
Err_query_Click:
MsgBox Err.Description
Resume Exit_query_Click
End Sub

作者: 竹笛 时间: 2013-6-5 12:57
where ([日期] >= #" & Format(Me.开始日期, "yyyy-mm-dd") & "#) AND ([日期] <= #" & Format(Me.截止日期, "yyyy-mm-dd") & "#)

作者: jimmylove 时间: 2017-5-20 01:46
看看是这个情况

作者: jimmylove 时间: 2017-5-20 01:46
看看是什么

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