VBAでテーブルのレコード総数を取得し、全レコードを読み取る

Access2013のVBAで、テーブルのレコード総数を取得し、全レコードを読み取ります。

下は読み取り元の顧客名簿テーブルです。

［開く］ボタンとレコードデータを表示するテキストボックスを配置した、下のフォームを作成しました。

VBAコードを入力します。

≪主なコードの説明≫

Dim rs As Recordset ： レコードセットを宣言します。
Set rs = CurrentDb.OpenRecordset("T_社員名簿") ： テーブルを開きます。
lrec = rs.RecordCount ： レコード総数を取得します。
Me!テキスト1 = Null ： テキストボックスを空白にします。
For i = 1 To lrec ： レコード数だけループします。
Me!テキスト1 = Me!テキスト1 & rs(1) & vbCrLf ： ｖｂCrLfで改行します。
rs.MoveNext ： 次のレコードへ移動します。
Set rs = Nothing ： レコードセットを開放します・

フィールド順に取り出すには、1番目が rs(0) のように0から始まります。

≪実行コード≫

Option Compare Database

Private Sub コマンド0_Click()
    Dim rs As Recordset
    Dim i As Long
    Dim lrec As Long

    Set rs = CurrentDb.OpenRecordset("T_社員名簿")
    lrec = rs.RecordCount
    Me!テキスト1 = Null

    For i = 1 To lrec
        Me!テキスト1 = Me!テキスト1 & rs(0) & " ： "
        Me!テキスト1 = Me!テキスト1 & rs(1) & vbCrLf
        rs.MoveNext
     Next
    Set rs = Nothing
End Sub

≪実行結果≫

実行結果のフォームです。
全レコードの［ID］と［社員名］のデータが表示できました。

≪他のデータベースファイルを開くには≫

下のコードのように、CurrentDbではなくDatabaseオブジェクトを宣言し、他のデータベースファイルを指定します。

Application.CurrentProject.Pathで自分自身が存在するフォルダを取得しています。

Private Sub コマンド0_Click()
    Dim db As Database
    Dim rs As Recordset
    Dim i As Long
    Dim lrec As Long
    Dim sPath As String
  
    sPath = Application.CurrentProject.Path
    If Right(sPath, 1) <> "\" Then
        sPath = sPath & "\"
    End If
    Set db = OpenDatabase(sPath & "商品管理.accdb")
    Set rs = db.OpenRecordset("T_商品マスター")
    lrec = rs.RecordCount
    Me!テキスト1 = Null
  
    For i = 1 To lrec
        Me!テキスト1 = Me!テキスト1 & rs(0) & " ： "
        Me!テキスト1 = Me!テキスト1 & rs(2) & vbCrLf
        rs.MoveNext
    Next
    Set rs = Nothing
End Sub

≪他のデータベースファイルから読み取った結果≫

全レコードの［商品ID］と［商品名］のデータが表示できました。

関連する記事
DAOで全レコードの全フィールドデータを動的配列に格納するVBA
DAOで全レコードのフィールドデータを動的に設定した二次元配列し格納するVBA