Sütun adlarını alın

Question

VBA veya Access SQL kullanarak bir tablonun tüm sütun adlarını almalı ve doğrulama için bunların üzerinden yinelemeliyim, bunun için bir çözüm var mı, Google'ı boşuna aradım.

Answer 1

Bu çalışacaktır

Set db = CurrentDb() 
Set rs1 = db.OpenRecordset("Table1") 
Dim fld As DAO.Field 
For Each fld In rs1.Fields 
    MsgBox (fld.Name) 
Next 
Set fld = Nothing 

Answer 2

Dim l As Integer 

For l = 0 To CurrentDb.TableDefs("tbl_Name").Fields.Count - 1 
    Debug.Print CurrentDb.TableDefs("tbl_Name").Fields(l).name 
Next l