Dim fld As Field
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("benimtablom")
For Each fld In rs.Fields
Debug.Print fld.Name
Next
rs.Close
Denemedim ama bazı arşivlerde bu kodun ; tablo alanlarını ekrana yazdığını söylüyor.
Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.