Hi!
Über die Tabledefs- und Fields-Collection bekomme ich in VB bekanntlich Informationen zu den Tabellen einer Datenbank bzw. den Feldern einer Tabelle.
Gibt es eine Möglichkeit, bei einer Access-Datenbank auch die Feldbeschreibung in VB einzulesen? Unter den Eigenschaften des Field-Objektes finde ich aber nichts, was in Richtung „Beschreibung“ geht.
Grüße
Heinrich
Gibt es eine Möglichkeit, bei einer Access-Datenbank auch die
Feldbeschreibung in VB einzulesen? Unter den Eigenschaften des
Field-Objektes finde ich aber nichts, was in Richtung
„Beschreibung“ geht.
Hallo Heinrich,
folgender Prozedur sollte Dir die Feldbeschreibungen ausgeben:
Sub Feldbeschreibung()
On Error Resume Next
Dim db As Database
Dim intTables As Integer, strTablename As String
Dim intFields As Integer, strFieldname As String
Set db = CurrentDb()
'alle Tabellen durchlaufen
For intTables = 0 To db.TableDefs.Count - 1
'Interne Tabellen auslassen
If Left(db.TableDefs(intTables).Name, 4) "MSys" Then
Debug.Print "Tabelle: " & db.TableDefs(intTables).Name
'alle Felder durchlaufen
For intFields = 0 To db.TableDefs(intTables).Fields.Count - 1
Debug.Print "Feld: " & db.TableDefs(intTables).Fields(intFields).Name
Debug.Print " " & db.TableDefs(intTables).Fields(intFields).Properties("Description")
If Err.Number = 3270 Then
Debug.Print " keine Beschreibung"
Err = 0
End If
Next
End If
Debug.Print "--------"
Next
End Sub
Gruß Thomas