Easy way to get the record count in a database?

[Joacim Andersson]

Sure, here's an easy example using DAO:

Private Function GetRecordCount(sDatabase As String, sTableName As String) As Long
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(sDatabase)
Set rs = db.OpenRecordset(sTableName, dbOpenDynaset)
rs.MoveLast
GetRecordCount = rs.RecordCount
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
End Function

Good luck!

------------------
Joacim Andersson
[email protected]
[email protected]
www.YellowBlazer.com