Determine number of records in table

[laavista]

I'd REALLY appreciate help. I need to determine how many records are in a
table. The table is called t_Credits. The code I tried to use returns "1"
as the number of records (and there are 5 records right now).

Dim db As Database
Dim rstTCredits As DAO.Recordset
Dim longNumRecords As Long

Public Sub AddToCreditsUsed()

Set db = CurrentDb
Set rstTCredits = db.OpenRecordset("t_Credits", dbOpenDynaset)

longNumRecords = rstTCredits.RecordCount

MsgBox longNumRecords & " records in table TCredits."

 

[Ken Sheridan]

If using a recordset force the complete set to load by calling the MoveLast
method of the recordset object before examining its RecordCount property.

A simpler alternative, however, would be:

longNumRecords = DCount("*", "t_Credits")

Ken Sheridan
Stafford, England

 

[laavista]

Ken, thank you so much for your quick response. I really appreciated it!!

 

[laavista]

Steve, THANK YOU. This has been very helpful!

 

[Bob Quintal]

There's a simpler way to get the number of records in a table:
DLookup("*","t_Credits")

You blew away what was otherwise a good response.
DCount("*","t_Credits") is what you should have written.