Here is a sub that should help
Code:
'---------------------------------------------------------------------------------------
' Procedure : GetRecordCounts
' Author : Jack
' Date : 11/04/2014
' Purpose : Subprocedure to Loop through all tables in this database and
' provide Table Name, RecordCount and Current Date to Immediate window.
' Does not review system tables (MSys) or deleted (~TMPC)
'---------------------------------------------------------------------------------------
'
Sub GetRecordCounts()
Dim db As DAO.Database
Dim tbl As DAO.TableDef
Dim SCNT As String
Dim tblCount As Long
10 On Error GoTo GetrecordCounts_Error
20 Set db = CurrentDb
30 For Each tbl In db.TableDefs
40 If (Left(tbl.name, 4) <> "MSys") And Not (tbl.name Like "~TMPC*") Then
50 SCNT = Format(CLng((tbl.RecordCount)), "0000")
60 Debug.Print tbl.name & Space(35 - Len(tbl.name)) & Space(10 - Len(SCNT)) & SCNT & Space(3) & Date
70 tblCount = tblCount + 1
80 End If
90 Next tbl
100 Debug.Print "Total tables (non system) count :" & tblCount
110 On Error GoTo 0
120 Exit Sub
GetrecordCounts_Error:
130 MsgBox "Error " & Err.number & " on line " & Erl & " (" & Err.Description & ") in procedure GetrecordCounts"
End Sub
Good luck