• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• Total Record Count In ADO Recordset

Total Record Count In ADO Recordset

This simple little function just returns the total number of records in a ADO recordset.

Inputs
A ADODB.Recordset structure

Returns
A Long integer with the total number of records

Side Effects
I believe it's not the fastest way of retrieving the information but at least it works. I'd like it if somebody can suggest a alt. way of getting to this info.

Rate Total Record Count In ADO Recordset

• 1
• 2
• 3
• 4
• 5

(39(39 Vote))

'Pass this function your ADO recordset
Function GetTotalRecords(ByRef aRS As ADODB.Recordset) As Long
On Error GoTo handelgettotalrec
 Dim adoBookM As Variant 'Declare a variable to keep the current location
 adoBookM = aRS.Bookmark 'Get the current location in the recordset
 aRS.MoveLast   'Move to the last record in the recordset
 GetTotalRecords = aRS.RecordCount 'Set the count value
 aRS.Bookmark = adoBookM 'Return to the origanal record
 Exit Function
handelgettotalrec:
 GetTotalRecords = 0  'If there's any errors return 0
 Exit Function
End Function