Funktion GetFields (ByVal TableName als Schnur) als Schnur
'Hinweise: Objekt-Bibliothek Microsoft Access-11.0, Objekt-Bibliothek Microsoft-DAO 3.6
'Hinweise, indem Sie Werkzeuge und dann, Hinweise anklicken im Code-Ansichtfenster einstellen
'Zurückbringt alle Feldnamen #=, die in der Tabelle TableName existieren.
'Annimmt t
'TableName: Name der Tabelle, in dem die Felder sind
'Zurückbringt alle Feldnamen, Null anders anders
'VERBRAUCH: GetFields „TABLENAME“
Auf Störung Goto- errhandler
Schwaches DB als DAO.Database
Schwaches tdf als DAO.TableDef
Schwaches fld als DAO.Field
Schwaches strField als Schnur
Einstellen DB = CurrentDb
Tdf = db.TableDefs (TableName) einstellen
'Durch alle Felder (Spalten) schlingen
Für jedes fld im tdf. Felder
strField = strField u. fld. Name u. „,“ 'Zupacken der Feldname
Zunächst
'Die Feldnamen zurückbringen
GetFields = strField
'Wenn keine Störungen
ExitHere:
Fld einstellen = nichts
Tdf einstellen = nichts
Einstellen DB = nichts
'Den Benutzer mitteilen, den der Prozess komplett ist.
' MsgBox „Aufzeichnungs-Druck komplett“
Funktion herausnehmen
errhandler:
'Es gibt eine Störungsrückkehr als Null
GetFields = „Störung“ u. Err.Number u. vbCrLf u. Err.Description
Mit irren
' MsgBox „Störung“ u. Zahl u. vbCrLf u. Beschreibung, _
' vbOKOnly oder vbCritical, „GetFields“
Ende mit
Zusammenfassung ExitHere
Enden-Funktion
|