获取列名

Question

我需要使用VBA或Access SQL获取表的所有列名并遍历它们进行验证，是否有人有解决方案，我已经搜索到Google无济于事。

Answer 1

这将工作

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