Feldnamen von Access-Tabellen auslesen

Im Programmier-Alltag kann es ab und zu von Interesse sein die Feldnamen einer Tabelle zu ermitteln. Mit nachfolgender kleinen Funktion ist dies problemlos möglich.

Function getTabFieldnames(strTable As String) As String
     
     'Deklaration
     Dim i As Integer
     Dim strRetVal As String
     Dim dbsCur As DAO.Database
     Dim tdfCur As DAO.TableDef
     
     'Init
     strRetVal = ""
     Set dbsCur = CurrentDb
     Set tdfCur = dbsCur.TableDefs(strTable)
     
     'Felder auslesen
     For i = 0 To tdfCur.Fields.Count - 1
         strRetVal = strRetVal & tdfCur.Fields(i).Name & Chr(10) & Chr(13)
     Next i
     
     'Rückgabe
     getTabFielnames = strRetVal
 
End Function

Die Funktion kann wie folgt aufgerufen werden:

=getTabFieldnames([Tabellenname])

Argumente:
[Tabellenname] = Name der Access-Tabelle

Die Funktion gibt als Ergebnis eine Liste mit allen Feldnamen der Tabelle zurück.

Benötigen Sie Unterstützung oder weiterführende Informationen, gerne helfen wir Ihnen weiter, reden Sie doch einfach mit uns.

Die Informationen dieser Seite dürfen, gemäss unseren Nutzungsbestimmungen, kostenlos weiterverwendet werden.

Reto Maurer's Software-Chuchi
Seestrasse 26
CH-8802 Kilchberg-Zürich
Telefon: +41 79 635 47 31
E-Mail:info@software-chuchi.ch