查询指定日期范围内的数据记录

时　间:2017-07-18 12:09:37
作　者:杨雪   ID：42182  城市：南京
摘　要:逐条查询技巧：FindNext方法、Between 关键字
正　文:

 示例下载

如果需要查询某个范围内的数值型数据，可以使用Between关键字

     Between   [数值下界]  and [数值上界]

如果查询的为日期范围，还需要在日期的上下界俩端添加上标识日期的“#”符号。

示例：

可以筛选出4条记录，分别是：1.2.4.9

源码：

Private Sub cmd_查询_Click()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim sch As String
    Set db = CurrentDb()
    Set rs = Me.RecordsetClone
'将记录集的书签与当前窗体中的书签同步
    rs.Bookmark = Me.Bookmark
'查询指定日期范围内的记录
    sch = "[售出日期] Between #" & txt_起始日期 & "# AND #" & txt_结束日期 & "#"
    rs.FindNext sch
'对查询结果进行处理
    If rs.NoMatch Then
        MsgBox "指定日期范围内没有售出记录"
    Else
        Me.Bookmark = rs.Bookmark
    End If
    rs.Close: Set rs = Nothing
    db.Close: Set db = Nothing
End Sub