#728
データベース内のすべてのテーブル（システムテーブルや隠しテーブルは除く）に保存されているレコード数を一気にイミディエイトウィンドウに出力するサンプルプロシージャです。レコード数は「DCount」関数を使って取得しています。
アプリケーションの機能として使うことはないかもしれませんが、開発時に役立つことがあるかもしれません。下記のプロシージャをコピーして、適当な標準モジュールに貼り付けます。そして、そのいずれかの行にカーソルがある状態で[F5]キーを押すなどして実行します。
Sub TableRecCount()
Dim dbs As Database
Dim tdf As TableDef
Set dbs = CurrentDb
For Each tdf In dbs.TableDefs
With tdf
If ((.Attributes And dbSystemObject) Or _
(.Attributes And dbHiddenObject)) = 0 Then
Debug.Print .Name, DCount("*", .Name) & " 件"
End If
End With
Next tdf
End Sub
実行例：
参考：
DCount以外の方法の例
「Access Study データベース解析・収集サンプルコード集 − テーブル名とそのレコード数を収集する」
