R6.33 Beschreibung von Datenbankfeldern abrufen

Aufgabe

In Access haben Sie die Möglichkeit, jedem Tabellenfeld eine Beschreibung zuzuordnen. Wie aber kann diese per VBA-Code ausgelesen werden?

Lösung

Beim Column-Objekt finden Sie keine entsprechende Eigenschaft, da es sich um eine treiberspezifische Eigenschaft handelt. Sie müssen also die Properties-Collection bemühen.

Quelltext

Anzeige der Tabellenfeld-Beschreibung in einem Meldungsfenster:

Sub Beschreibung_Datenfeld_abrufen()
Dim catalog As New ADOX.catalog
Dim conn As New ADODB.Connection

  catalog.ActiveConnection = Application.CurrentProject.Connection
  MsgBox catalog.Tables("Tabelle1").Columns("Daten").Properties("Description").value
End Sub

Get Microsoft Access Programmierrezepte now with the O’Reilly learning platform.

O’Reilly members experience books, live events, courses curated by job role, and more from O’Reilly and nearly 200 top publishers.

Start your free trial