HOME > 即効テクニック > AccessVBA > データベース・データ保護 > テーブル内のレコード件数を取得する

即効テクニック

データベース・データ保護

テーブル内のレコード件数を取得する

(Access 2000/2002/2003)
●概要●
構文  expression.RecordCount		取得のみ

設定項目        内容
expression	TableDefオブジェクトを指定[省略不可]

TableDefオブジェクトのRecordCountプロパティを使用してテーブルに含まれるレコード件数を取得できます。ここでは、TabeDefオブジェクトに「社員テーブル」を指定し、TableDefオブジェクトのRecordCountプロパティの値をメッセージダイアログに表示します。

●設定●
動作確認をするためには、Visual Basic Editorのメニューから[ツール]→[参照設定]コマンドを選択し、[参照設定]ダイアログボックスで「Microsoft DAO 3.6 Object Library」にチェックを入れてください。

●サンプル●
Public Sub GetRecordCountSample()
    Dim myDB As Database
    Dim myTD As TableDef
    'カレントデータベースを変数に代入する
    Set myDB = CurrentDb
    'レコード件数を表示するテーブルを変数に代入する
    Set myTD = myDB.TableDefs!社員テーブル
    'テーブル内のレコード件数をRecordCountプロパティから取得
    MsgBox "社員テーブルのレコード件数は " & myTD.RecordCount & " 件です"
End Sub