フォームのレコードソースの件数を取得するには、RecordCountプロパティを使います。
RecordCountプロパティは、Recordsetオブジェクトでアクセスされたレコード数、またはテーブルタイプのRecordsetオブジェクトかTableDefオブジェクトのレコード総数を返します。
サンプルプロシージャは、フォームが開くときに、最初のレコードが表示される前に発生するイベント「Open」で、レコードソースの総件数を取得してラベルの「標題」プロパティに設定しています。
Private Sub Form_Open(Cancel As Integer)
Dim rs As Recordset
Set rs = Me.RecordsetClone
Me!ラベルレコード数.Caption = rs.RecordCount
End Sub
RecordsetCloneプロパティは、フォームの「レコードソース」プロパティに設定されているテーブルまたはクエリのRecordsetオブジェクトを参照します。
DAOを使用するには、[ツール(T)]メニューの[参照設定(R)]をクリックすると表示される[参照設定]ダイアログボックスで、「Microsoft DAO 3.6 Object Library」をチェックします。
