Access获取窗体或者报表记录集的记录数

在access程序中，自动创建的窗体上会默认设置“导航按钮”属性为“是”

这个功能就是能在左下角显示出记录数和选中第几条记录。

通过下面的代码可以引用窗体或者报表的记录集记录数

Sub 记录数()

    Dim db As DAO.Database

    Dim rs As DAO.Recordset

    Set db = CurrentDb()

    DoCmd.OpenForm "员工信息"   

    Set rs = Forms!员工信息.RecordsetClone   '复制窗体的记录集

    MsgBox "员工信息中的记录数为：" & rs.RecordCount

End Sub