源   码:

'复制窗体记录集，返回其记录数
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

附   件:

点击下载此附件

图   示: