即効テクニック |
●概要● 構文 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