有一个【tbl员工明细】表，当我们采用ADO访问时，利用RecordCount来获得记录数，下面的代码不能成功。

    '需要在VBA引用中引用 Microsoft ActiveX Data Objects 2.8，这里的2.8是版本号，大家可引用你有的版本号
    Dim rst As ADODB.Recordset
    Set rst = New ADODB.Recordset
    rst.ActiveConnection = CurrentProject.Connection
    rst.Open "select * from tbl员工明细"
    Me.txt记录数 = rst.RecordCount
    rst.Close
    Set rst = Nothing

对代码作一下改动，就可以支持RecordCount属性了，示例代码如下：

    '需要在VBA引用中引用 Microsoft ActiveX Data Objects 2.8，这里的2.8是版本号，大家可引用你有的版本号
    Dim rst As ADODB.Recordset
    Set rst = New ADODB.Recordset
    rst.ActiveConnection = CurrentProject.Connection
    rst.CursorType = adOpenStatic 'CursorType 设置为 adOpenStatic，由于静态游标支持RecordCount，所以可以得到记录数
    rst.Open "select * from tbl员工明细"
    Me.txt记录数2 = rst.RecordCount
    rst.Close
    Set rst = Nothing

点击下载此附件