按日期查询问题

huang1314

我做一个按日查询，有一个问题请教

运行的时候，可以有得到想的效果，但每次都输入两个时期，很不方便

想换成在一个窗体先输入两个日期，然后传递过去，不用输入那么麻烦，如下

代码如何写

ycxchen

加入日期控件

盗梦

楼上说的没错

mclly2000

加入日期控件并用代码设置默认值比如date或者date-30

li_wanli

在"按日期查询"(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

竹笛

where ([日期] >= #" & Format(Me.开始日期, "yyyy-mm-dd") & "#) AND ([日期] <= #" & Format(Me.截止日期, "yyyy-mm-dd") & "#)

jimmylove

看看是这个情况

jimmylove

看看是什么