Listing Record Count Each Database Table

[Henry Stockbridge]

Hi,

I am doing database documentation and run the procedure below to list
the record count for each table in the database. The results in the
immediate window only a partial listing of tables. It appears the
ones missing are linked (ODBC) tables.

Any help you can lend would be appreciated.

- Henry

+++++++++++++++ +++++++++++++++ +++++++++++++++ ++++++++++++++

Sub RecordCounts()

''''''''''''''' ''''''''''''''' ''''''
' Purpose: Count total records in each database table
''''''''''''''' ''''''''''''''' ''''''

Dim db As DATABASE
Dim tdf As TableDef

Set db = CurrentDb

For Each tdf In db.TableDefs
Debug.Print tdf.Name & "/" & tdf.recordcount
Next

Set db = Nothing

End Sub

[Bruno Campanini]

"Henry Stockbridge" <hs***********@ hotmail.com> wrote in message
news:29******** *************** ***@posting.goo gle.com...

I am doing database documentation and run the procedure below to list
the record count for each table in the database. The results in the
immediate window only a partial listing of tables. It appears the
ones missing are linked (ODBC) tables.

Any help you can lend would be appreciated.

- Henry

Try this:
Private Sub Command14_Click ()
Dim db As Database, RS As Recordset
Dim tdf As TableDef
Set db = CurrentDb
For Each tdf In db.TableDefs
Set RS = db.OpenRecordse t(tdf.Name, dbOpenDynaset)
On Error Resume Next
RS.MoveLast
Debug.Print tdf.Name, RS.RecordCount
On Error GoTo 0
Next
End Sub

For linked tables you must reach the last record
to have .RecordCount reading correctly records
number.
For this you use RS.MoveLast but must
trap error raised when a table doesn't
contain records.

Ciao
Bruno