Recordsetでレコード数を取得 ： Access

※.DAO（データアクセスオブジェクト）を使用しますので、「ツール」-「参照設定」で「Microsoft DAO3.* Object Library」を追加しておいてください。

Access VBAでレコード数を調べるにはRecordCountプロパティを使いますが、これだけでは正確なレコード数を取得できません。

正確なレコード数を取得するのは、事前にMoveLastメソッドで最後のレコード位置へ移動させておく必要があります。

■ Access実行画面

「レコード数の取得」ボタンをクリックすると、「M_製品マスター」のレコード数を表示します。

■ Access VBA 実行コード

Option Compare Database
Option Explicit

Private Function AcRecordCount() As Long
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("M_製品マスター")
    If rs.EOF Then
        AcRecordCount = 0
    Else
        rs.MoveLast
        AcRecordCount = rs.RecordCount
    End If
End Function

Private Sub コマンド0_Click()
    Dim ln As Long
    ln = AcRecordCount
    Me!テキスト3 = ln & " 件のレコードが見つかりました。"
End Sub