Dim rst As Recordset Set rst = Me.Recordset For Each fld In rst.Fields ' Print field names. MsgBox fld.Name Next
Lặp tất cả các cột của table access