Field Names

[coyotem78]

Hi

In VBA, is there a way to get the field names from an existing table?

thanx

coyotem78

 

[dk]

Hi,

Here's one way. To get the code to work you need to set a reference to the Microsoft ADO Ext 2.n For DDL and Security by choosing Tools, References and then selecting it.

Sub GetFieldnames()

    Dim adoxCat As ADOX.Catalog, adoxTable As ADOX.Table, adoxColumn As ADOX.Column

    Set adoxCat = CreateObject("ADOX.Catalog")

    adoxCat.ActiveConnection = CurrentProject.Connection

    Set adoxTable = adoxCat.Tables("tblDepotData")

    For Each adoxColumn In adoxTable.Columns

        Debug.Print adoxColumn.Name

    Next adoxColumn


End Sub