Lặp tất cả các cột của table access

Lặp tất cả các cột của table access

Dim rst As Recordset
 Set rst = Me.Recordset


    For Each fld In rst.Fields
        ' Print field names.
        MsgBox fld.Name
    Next

Bài viết liên quan:

Lặp tất cả các cột của table access