Find feltnavne i Access

Sub FindFeltnavn()

Dim strReturn as str
dim tdf as TableDef
dim fld as Field

    strReturn = ""
    Set tdf=CurrentDb().tabledefs("MinTabel")
    for each fld in tdf.fields
        if strReturn = "" then
            strReturn = fld.name
        else
            strReturn = strReturn & "," & fld.name
        end if
    next fld

    'strReturn indeholder nu feltnavnene sepereret med komma
end Sub

Fornemt - tak for hjælpen