Want to get table record count

  • Thread starter Thread starter Tom
  • Start date Start date
T

Tom

I want to get the number of records in the table. Seems to me this worked
before, in another module. Does anyone know what I'm doing wrong?

Set DAOdbs = CurrentDb
'------------------------------------------------------------
'
' Open the 'Detail' table
'
Set DAOrs = DAOdbs.OpenRecordset(strDetailTableName)

intNmbrOfRecs = DAOdbs.TableDefs(strDetailTableName).RecordCount

DAOrs.Close
Set DAOrs = Nothing

DAOdbs.Close
Set DAOdbs = Nothing

Thanks in advance,

Tom
 
This will work:

dim howmanyrecords As Integer
howmanyrecords = DCount("*", "tablename")

msgbox howmanyrecords

Paul
 
David C. Holley said:
1. For the technique that you're using, you have to move to the last
record using .MoveLast method. In your code you would use
intNmbrOfRecs.MoveLast right before the .RecordCount statement.
Click to expand...

He wouldn't have to *if* the table is a local (unlinked) Jet table, so
that the recordset is a table-type recordset. In that specific case,
the RecordCount property is accurate when the recordset is first opened.
For that matter, in that case the record count can be gotten from the
TableDef without even opening a recordset on it. So if this line
intNmbrOfRecs = DAOdbs.TableDefs(strDetailTableName).RecordCount
Click to expand...

isn't working, the table is probably a linked table. If that's a case,
Tom does need to open a recordset, move to the end of it, and then get
the RecordCount property of the *recordset*, not the tabledef.
 
Back
Top