点击下载此附件

截   图:

源   码:

'复制窗体记录及返回其记录数
Sub 记录数()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Set db = CurrentDb()
    '打开窗体"F_员工工资"
    DoCmd.OpenForm "F_员工档案"
    '复制窗体的记录集
    Set rs = Forms!F_员工档案.RecordsetClone
    '输出窗体中的记录集的记录数
    MsgBox "F_员工档案中的记录数为：" & rs.RecordCount
End Sub