How to get the total row number of a table?

[softlover]

Any one help me to count the total row number of a table?

 

[oharab]

Try this function:

Function CountRows(strTableName As String) As Integer
Dim db As DAO.Database
Dim rst As DAO.Recordset

On Error Resume Next

Set db = CurrentDb
Set rst = db.OpenRecordset(strTableName)

rst.MoveLast
CountRows = rst.RecordCount

rst.Close
db.Close

Set rst = Nothing
Set db = Nothing

End Function

HTH

Ben ----------------------------------
Ben O'Hara
bo104@westyorkshire.police.uk
----------------------------------

 

[scking]

Yes but an alternative is simpler, depending on what you need it for. The following samples were run in the immediate window and pasted here.

?DCount("*", "tblComponent&quot
17744

If you use the field name of the primary key in DCount it will also return the count.

?DCount("[CP/N]", "tblComponent&quot
17744

Steve King

Growth follows a healthy professional curiosity

 

[oharab]

oh yeah! didn't think of that one!
Funny how using one thing all day blinkers you.

B ----------------------------------
Ben O'Hara
bo104@westyorkshire.police.uk
----------------------------------

 

[scking]

Ben,

Your solution was the one I use 95% of the time but I always look for the easiest way to do things. Does that make me lazy?

Steve Growth follows a healthy professional curiosity