查询指定日期的数据记录

时　间:2017-04-26 10:08:33
作　者:杨雪   ID：42182  城市：南京
摘　要:逐条查询技巧：FindFirst方法、NoMatch属性、BookMark属性
正　文:

附件下载

在DAO中，可以使用FindFirst 方法查询记录。当没有找到符合条件的记录时，NoMatch属性变为 True.

如果需要将查询出的记录显示到窗体中，可以通过将DAO 的记录集中的BookMarch属性设置为当前窗体的BookMark属性中去。

如果查询的数据为日期类型的数据，需要在查询数据的两端添加上“#”以表明查询的数据为日期型。

代码：

'查询指定售出日期的记录
Private Sub cmd_查询_Click()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("T_销售记录", dbOpenDynaset)
    '查询指定日期
    rs.FindFirst "[售出日期]=#" & txt_日期 & "#"
    '查询结果处理
    If rs.NoMatch = True Then
        MsgBox "指定日期没有售出记录"
    Else
        Me.Bookmark = rs.Bookmark
    End If
    rs.Close: Set rs = Nothing
    db.Close: Set db = Nothing
End Sub