Feldnamen von Tabellen auslesen (Access 97, 2000)

16.12.2003

So wird´s gemacht!

Manchmal ist es von Interesse die Feldnamen einer Tabelle auszulesen. Mit nachfolgender Funktion ist dies möglich; sie gibt als Ergebnis die Stelle des Feldes sowie den Feldnamen zurück.

Public Function OPTabFeldnamen(ByVal OPTable) As String

    Dim x
    Dim meldung As String

    For x = 0 To CurrentDb.TableDefs(OPTable).Fields.Count - 1

        MsgBox CurrentDb.TableDefs(OPTable).Fields(x).Name

        meldung = meldung & "Field Number: " & x & " Name: " & _
          CurrentDb.TableDefs(OPTable).Fields(x).Name & Chr(10) & Chr(13)

    Next

    MsgBox meldung

End Function

SYNTAX: OPTabFeldnamen("Tabellenname")

Dienstleistungen

Als starker Partner an Ihrer Seite unterstützen wir Sie in folgenden Breichen:

Access-Programmierung

Benötigen Sie Unterstützung bei der Programmierung von Access-Anwendungen? Wir bieten die gesamte Bandbreite von der Access-Programmierung auf Stundenbasis bis zur Durchführung eines Software-Projektes als Auftragsarbeit an. Kontaktieren Sie uns für ein kostenloses Erstgespräch.

Software-Beratung

Haben Sie ein Software-Projekt und Sie wissen nicht, ob Access die richtige Plattform ist? Wir haben über 20 Jahre Erfahrung beim Erstellen von Windows-, Web und mobilen Anwendungen. Kontaktieren Sie uns für eine kostenlose Erstberatung.