#728 すべてのテーブルのレコード数を列挙するには? VBA

データベース内のすべてのテーブル(システムテーブルや隠しテーブルは除く)に保存されているレコード数を一気にイミディエイトウィンドウに出力するサンプルプロシージャです。レコード数は「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 データベース解析・収集サンプルコード集 − テーブル名とそのレコード数を収集する」
| Index | Prev | Next |

この情報は参考になりましたか?、問題は解決しましたか?、もしまだなら......
T'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件〜でご支援します。
スタンドアロンからSQL Server対応まで、オーダーメイドのシステムを短納期・安価でお届けします


Copyright © T'sWare All rights reserved