Recordsetでフィールド名を取得するサンプル｜RecordsetClone：Access VBA入門

Recordsetでフィールド名を取得するVBA

下のようなフォームを作成しました。
［フィールド名取得］ボタンをクリックすると、テキストボックスに一覧を表示します。


クリックイベントで、フィールド名を取得するVBAです。


・ Fields.Countでフィールド数を取得し、その数だけFor Nextでループします。
・ Fields(i).Nameの配列でフィールド名を順に取得しています。

Private Sub コマンド0_Click()
    Dim db As Database
    Dim rs As Recordset
    Dim i As Long
    
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("T-顧客マスター", dbOpenTable)
    
    Me!テキスト1 = Null
    For i = 0 To rs.Fields.Count - 1
        Me!テキスト1 = Me!テキスト1 & rs.Fields(i).Name & vbCrLf
    Next
    
    Set rs = Nothing
    Set db = Nothing
End Sub

実行結果のフォームです。