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