Feldbeschreibung von Tabellenfeldern auslesen (Access 97)
Veröffentlicht am 09.02.2004
Frage:
Wir suchen nach der Eigenschaft, die Feldbeschreibungen (Deskription) von Access-Tabellenfeldern per Programm auslesen kann. Feldnamen, Typen oder Längen können problemlos ausgelesen werden.
TabName.Fields(i).Description
funktioniert nicht.
Antwort:
Die Description-Eigenschaft lässt sich nur über die Property-Auflistung eines Feldes ermitteln. Der folgende VBA-Code enthält ein einfaches Beispiel, das Sie aus dem Debug-Fenster von Access starten können:
Public Sub test1()
Dim PropertyCounter As Integer
Dim FieldCounter As Integer
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Dim dbs As Database
Set dbs = CurrentDb
Set tdf = dbs.TableDefs("tblTabellenname")
For FieldCounter = 0 To tdf.Fields.Count - 1
Set fld = tdf.Fields(FieldCounter)
For PropertyCounter = 0 To tdf.Fields(FieldCounter).Properties.Count - 1
If tdf.Fields(FieldCounter).Properties(PropertyCounter).Name="Description" Then
Debug.Print "Description: ", PropertyCounter, _
tdf.Fields(FieldCounter).Properties(PropertyCounter).Name, _
tdf.Fields(FieldCounter).Properties(PropertyCounter).Value
End If
Next PropertyCounter
Next FieldCounter
End Sub