DAO准确获取记录集Recordset的记录数Recordcount
在使用Access过程中，我们经常要使用Dao对数据进行相关处理，但我们发现，有时用记录集Recordset获取的记录数Recordcount并不准确，明明数据有很多，但得到的结果只有1，特别是在多用户使用环境，多个用户同时新增 修改 删除记录的时候，这种情况会更容易出现
那在Acccess中，如果更加准确地获取记录集Recordset的记录数Recordcount呢
下面就是一个简单的函数，可以准确获得dao的记录数
Function FindRecordCount(strSQL As String) As Long Dim dbsNorthwind As DAO.Database Dim rstRecords As DAO.Recordset On Error GoTo ErrorHandler Set dbsNorthwind = CurrentDb Set rstRecords = dbsNorthwind.OpenRecordset(strSQL) If rstRecords.EOF Then FindRecordCount = 0 Else rstRecords.MoveLast FindRecordCount = rstRecords.RecordCount End If rstRecords.Close dbsNorthwind.Close Set rstRecords = Nothing Set dbsNorthwind = Nothing Exit Function ErrorHandler: MsgBox "Error #: " & Err.Number & vbCrLf & vbCrLf & Err.Description End Function
