[5分]如何按按时间段查找记录

终于找到答案了：

On Error GoTo Err_cmd查询_Click
    Dim strWhere As String  '定义条件字符串
    Dim i As Integer
   
    strWhere = "true" '设定初始值
    
    If Not IsNull(Me.采购日期开始) Then strWhere = strWhere & " AND [采购时间] >= #" & Format(Me.采购日期开始, "yyyy-mm-dd") & "#"
    If Not IsNull(Me.采购日期截止) Then strWhere = strWhere & " AND [采购时间] <= #" & Format(Me.采购日期截止, "yyyy-mm-dd") & "#"
       
    With Me.查询子窗体
        .Form.Filter = strWhere
        .Form.FilterOn = True
    End With
   
Exit_cmd查询_Click:
    Exit Sub

Err_cmd查询_Click:
    MsgBox Err.Description
    Resume Exit_cmd查询_Click