<\/p>\n
Autor: Manfred Hoffbauer, Düsseldorf<\/p>\n
<\/b><\/p>\n
Wer den Einstieg in die Programmierung mit VBA und das Objektmodell von Access erst mal geschafft hat, profitiert gleich mehrfach davon: Die grundsätzliche Vorgehensweise zur Programmierung von Tabellen, Abfragen, Formularen und Berichten ist fast immer die gleiche. Doch auch hier steckt der Teufel im Detail: Bei den verborgenen Feldeigenschaften gibt es die eine oder andere Ausnahme, die es zu kennen gilt.<\/b><\/p>\nHinweis<\/h3>\n
Die Beispiele in diesem Beitrag basieren auf der Verwendung der Data Access Objects (DAO). Um die Beispiele auch mit Microsoft Access 2000 nachvollziehen zu können, müssen Sie diesen Verweis aktivieren. öffnen Sie dazu irgendein Modul in der Entwurfsansicht, und wählen Sie den Befehl Extras ( Verweise. Kreuzen Sie dann den Eintrag Microsoft DAO 3.6 Object Library in der Liste an, und klicken Sie auf OK (siehe Bild 1). Wenn Sie die Beispieldatenbank zu diesem Beitrag öffnen, ist der Verweis automatisch markiert. <\/p>\n
<\/b><\/p>\n
![](\"..\/fileadmin\/_temp_\/{03CD8C72-47A4-466D-A121-3D0194CC8512}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Eine Tabelle hat bei Microsoft Access zwei Ansichten: <\/p>\n
In der Datenansicht können Sie Datensätze hinzufügen, löschen und bearbeiten. In der Entwurfsansicht definieren Sie die Felder, Datentypen und weitere Feldeigenschaften der Tabelle.<\/p>\n
Beide Ansichten stehen Ihnen auch in der Programmiersprache von Access zur Verfügung. Mit Recordsets greift ein Programm auf die Daten einer Tabelle zu, während die TableDef-Objekte die Entwurfseigenschaft einer Tabelle zugänglich machen.<\/p>\n
Die TableDef-Objekte enthalten sozusagen alle Eigenschaften, die Sie in der Entwurfsansicht einer Tabelle zuweisen können. Um beispielsweise die Eigenschaft Gültigkeitsregel zu verändern, gehen Sie wie folgt vor:<\/p>\n
![](\"..\/fileadmin\/_temp_\/{03CD8C72-47A4-466D-A121-3D0194CC8512}\/pic002.png\")
<\/p>\n
<\/b><\/p>\n
![](\"..\/fileadmin\/_temp_\/{03CD8C72-47A4-466D-A121-3D0194CC8512}\/pic003.png\")
<\/p>\n
<\/b><\/p>\n Access prüft nun beim Speichern eines Datensatzes automatisch, ob das Wiedervorlagedatum größer als das aktuelle Tagesdatum ist. Falls dies einmal nicht zutreffen sollte, kann der Datensatz nicht gespeichert werden.<\/p>\n Die gleiche Eigenschaft können Sie auch mit VBA abfragen. Durch das Betätigen der Tastenkombination Strg + G öffnen Sie den Direktbereich von Access (siehe Bild 3). Geben Sie nun die folgende Anweisung ein.<\/p>\n Mit dem Betätigen der Ein-gabetaste führt Access den Befehl aus und zeigt das folgende Ergebnis an:<\/p>\n Die eingegebene Zeile besteht aus dem Aufruf des -Befehls und einem Ausdruck. Der -Befehl veranlasst Access, den Wert des darauf folgenden Ausdrucks im Direktbereich (früher: Debug-Fenster) anzuzeigen.<\/p>\n Der Ausdruck besteht aus der Aneinanderreihung von zwei Objekten und einer Eigenschaft. Das erste Objekt CurrentDB stellt die aktuelle Datenbank dar. Das Objekt TableDefs(„tblAufgaben“) ist quasi die Entwurfsansicht der Tabelle tblAufgaben. Die Eigenschaft ValidationRule enthält die Gültigkeitsregel.<\/p>\n Mit der gleichen Technik können Sie die Gültigkeitsregel ändern:<\/p>\n Beachten Sie bitte, dass die per VBA durchgeführten änderungen am Tabellenentwurf erst nach dem Schließen und erneuten öffnen der Tabelle sichtbar werden. ( <\/p>\n Der größte Teil des Tabellenentwurfs ist für die Definition der Datenfelder und ihrer Eigenschaften bedingt. Hier legen Sie zunächst den Feldnamen, den Datentyp und eine Beschreibung fest. Im unteren Teil des Entwurfsfensters befindet sich außerdem ein Bereich, der die Eigenschaften des jeweils aktuellen Datenfeldes anzeigt. Hierzu zählen die Gültigkeitsregel, die Feldgröße und das Format.<\/p>\n <\/b><\/p>\n Um ohne Programmierung die Gültigkeitsregel eines Feldes zu verändern, gehen Sie wie folgt vor:<\/p>\n Nach dem Speichern der Tabelle akzeptiert Access nur noch solche Werte für das Feld Erledigt, die größer als das Tagesdatum oder gleich dem Tagesdatum sind. Um die gleiche Eigenschaft per VBA abzufragen, geben Sie folgende Anweisung in den Direktbereich ein:<\/p>\n <\/b><\/p>\n Mit dem Betätigen der Eingabetaste führt Access die Anweisung aus und zeigt als Ergebnis den Ausdruck >=Date() an.<\/p>\n Auch diese Anweisung fragt zunächst mit dem CurrentDB-Objekt die aktuelle Datenbank und mit TableDefs(„tblAufgaben“) die Tabelle tblAufgaben ab. Darauf folgt – wiederum durch einen Punkt aneinandergereiht – der Zugriff auf die Fields-Auflistung des TableDef-Objekts. Durch die Angabe des Feldnamens Erledigt wird wiederum ein bestimmtes Objekt der Fields-Auflistung spezifiziert. Mit ValidationRule geben Sie schließlich die abzufragende Eigenschaft an.<\/p>\n Durch die Angabe eines anderen Tabellen- oder Feldnamens können Sie jederzeit auch die ValidationRule-Eigenschaft anderer Objekte abfragen. Sie müssen allerdings darauf achten, dass Sie nur die Feldnamen verwenden, die in der jeweiligen Tabelle auch vorkommen. Andernfalls meldet Access einen Fehler bei der Ausführung des Befehls.<\/p>\n Mit der Eingabe des Punktes in den Direktbereich öffnet Access eine Liste der Eigenschaften und Methoden des jeweiligen Objektes. Wenn Sie also den Punkt hinter TableDefs(„tblAufgaben“) eingegeben haben, öffnet Access automatisch eine Liste der Eigenschaften und Methoden für TableDef-Objekte (siehe Bild 5).<\/p>\n <\/p>\n Bei der Eingabe des Punktes hinter Fields(„Erledigt“) öffnet Access automatisch eine Liste der Eigenschaften und Methoden von Fields-Objekten. Hier finden Sie beispielsweise die Name-, die ValidationRule- und die ValidationText-Eigenschaft.<\/p>\n Einige Eigenschaften aus dem Tabellenentwurf suchen Sie hier jedoch vergeblich. So fehlen beispielsweise die Feldbeschreibung, das Format und das Eingabeformat. Diese Eigenschaften können Sie nur über die Properties-Auflistung des Fields-Objektes abfragen.<\/p>\n Einige Feldeigenschaften können Sie über das Fields-Objekt leider nicht direkt abfragen. So führt die Anweisung<\/p>\n zu einer Fehlermeldung von Access. Die richtige Syntax zur Abfrage der Feldbeschreibung lautet wie folgt:<\/p>\n <\/b><\/p>\n Bild 6: Diesen Fehler meldet Access beim Zugriff auf Properties, die noch nicht angelegt wurden.<\/span><\/b><\/p>\n Aber Vorsicht! Auch diese Anweisung kann zu einer Fehlermeldung führen (siehe Bild 6). Die obige Anweisung greift auf das Feld Erledigt der Tabelle tblAufgaben zu. Access kann das Description-Property nur dann finden, wenn Sie im Tabellenentwurf eine Beschreibung für das Feld eingegeben haben.<\/p>\n über die Properties-Auflistung können Sie prinzipiell alle Eigenschaften eines Datenfeldes abfragen. Dazu gehören auch die integrierten Eigenschaften wie beispielsweise die ValidationRule. Statt direkt auf die gleichnamige Eigenschaft des Fields-Objektes zuzugreifen, können Sie alternativ auch die Properties-Auflistung verwenden:<\/p>\n Die Properties-Auflistung eines Feldes enthält die fest integrierten und von den Benutzereingaben abhängige Properties. Je nachdem, ob der Anwender eine Beschreibung eingegeben hat oder nicht, ist die Description-Property vorhanden. Die Abfrage aller Properties eines Datenfeldes erfolgt am besten in einer Schleife mit dem Aufbau wie in der Prozedur aus Quellcode 1.<\/p>\n Die Schleife durchläuft alle Properties des Feldes Erledigt in der Tabelle tblAufgaben. Mit der Debug.Print-Anweisung werden der aktuelle Zähler und der Name der aktuellen Eigenschaft des Fensters im Direktbereich von Access (früher Debug-Fenster) ausgegeben.<\/p>\n Neben den Namen sind die Werte der Property-Eigenschaften besonders interessant. Nach den unter Access üblichen Regeln für die Verwendung von Eigenschaften müssten sich die Feldwerte mit folgender Anweisung ausgeben lassen:<\/p>\n Wenn Sie den Ausdruck jedoch ohne zusätzliche Maßnahmen in der oben aufgeführten Debug.Print-Anweisung ergänzen, läuft Access bei einigen Eigenschaften auf einen Fehler. Die Ursache besteht darin, dass einige der Eigenschaften Datentypen haben, die Access nicht per Debug.Print anzeigen kann.<\/p>\n Insbesondere der Wert der ersten Eigenschaft Value kann über das TableDef-Objekt nicht abgefragt werden. Der Wert des Datenfeldes ist in der Entwurfsansicht nicht verfügbar. Aber auch das Property GUID hat einen Datentyp, den Debug.Print nicht anzeigen kann.<\/p>\n Mit dem Gebrauch der On-Error-Anweisung können Sie die lästigen Fehlermeldungen umgehen. Mit den folgenden Anweisungen können Sie alle Werte anzeigen lassen, die Debug.Print handhaben kann:<\/p>\n Eine Auflistung der häufig vorkommenden Properties und ihrer Datentypen finden Sie in Tabelle 1.<\/p>\n Wert<\/p>\n Bezeichnung<\/p>\n Datentyp<\/p>\n 0<\/p>\n Value<\/p>\n dbText<\/p>\n 1<\/p>\n Attributes<\/p>\n dbLong<\/p>\n 2<\/p>\n CollatingOrder<\/p>\n dbInteger<\/p>\n 3<\/p>\n Type<\/p>\n dbInteger<\/p>\n 4<\/p>\n Name<\/p>\n dbMemo<\/p>\n 5<\/p>\n OrdinalPosition<\/p>\n dbInteger<\/p>\n 6<\/p>\n Size<\/p>\n dbLong<\/p>\n 7<\/p>\n SourceField<\/p>\n dbMemo<\/p>\n 8<\/p>\n SourceTable <\/p>\n dbMemo<\/p>\n 9<\/p>\n ValidateOnSet <\/p>\n dbBoolean<\/p>\n 10<\/p>\n DataUpdatable <\/p>\n dbBoolean<\/p>\n 11<\/p>\n ForeignName <\/p>\n dbMemo<\/p>\n 12<\/p>\n DefaultValue<\/p>\n dbMemo<\/p>\n 13<\/p>\n ValidationRule<\/p>\n dbMemo<\/p>\n 14<\/p>\n ValidationText<\/p>\n dbMemo<\/p>\n 15<\/p>\n Required<\/p>\n dbBoolean<\/p>\n 16<\/p>\n AllowZeroLength<\/p>\n dbBoolean<\/p>\n 17<\/p>\n FieldSize<\/p>\n dbLong<\/p>\n 18<\/p>\n OriginalValue<\/p>\n dbText<\/p>\n 19<\/p>\n VisibleValue<\/p>\n dbText<\/p>\n 20<\/p>\n ColumnWidth<\/p>\n dbInteger<\/p>\n 21<\/p>\n ColumnOrder<\/p>\n dbInteger<\/p>\n 22<\/p>\n ColumnHidden<\/p>\n dbBoolean<\/p>\n 23<\/p>\n DisplayControl<\/p>\n dbInteger<\/p>\n 24<\/p>\n UnicodeCompression<\/p>\n dbBoolean<\/p>\n 25<\/p>\n GUID<\/p>\n dbBinary<\/p>\n Tab. 1: Auflistung der üblichen Properties und ihrer Werte<\/b><\/p>\n Um die Werte in Tabelle 1 zu erhalten, müssen Sie die Type-Eigenschaft jedes einzelnen Property-Elements auswerten. Die Funktion FieldType wandelt den als Integer-Wert übergebenen Feldtypen in eine Zeichenkette um, die für den Anwender leichter zu interpretieren ist:<\/p>\n Die beschriebene Funktion enthält nur einige der Feldtypen. In der Beispieldatenbank finden Sie die komplette Funktion mit allen Feldtypen. Im Folgenden finden Sie eine Liste der anderen Feldtypen, die nicht in der Funktion berücksichtigt sind:<\/p>\n dbByte, dbChar, dbInteger, dbLong, dbCurrency, dbFloat, dbLongBinary, dbDecimal, dbSingle, dbDouble, dbDate, dbText, dbLongBinary, dbMemo, dbGUID, dbNumeric, dbTime, dbVarBinary.<\/p>\n Mit der FieldType-Funktion verfügen Sie über eine gute Basis zur Analyse der Properties eines Datenfeldes. Um nun alle Properties aller Datenfelder der Tabelle tblAufgaben auszulesen, verwenden Sie die Prozedur aus Quellcode 2.<\/p>\n Die Anlage neuer Properties kann entweder über die Benutzeroberfläche oder VBA erfolgen. In der Benutzeroberfläche öffnen Sie einfach das Tabellenentwurfsfenster, und geben Sie den Wert für eine Eigenschaft ein. Weiter oben haben Sie bereits verschiedene Eigenschaften verändert und die Werte für die Fields- oder die Properties-Auflistung ausgelesen.<\/p>\n Die Anlage von Eigenschaften über VBA gliedert sich in zwei Schritte: Sie müssen zuerst überprüfen, ob die Eigenschaft bereits vorhanden ist. Falls ja, können Sie ihr einfach einen neuen Wert zuweisen.<\/p>\n Falls die Eigenschaft noch nicht vorhanden ist, müssen Sie sie zunächst mit CreateProperty anlegen. Die Zuweisung eines Werts kann dann implizit mit der CreateProperty-Methode oder explizit durch eine eigene Wertzuweisung erfolgen. Die Prozedur aus Quellcode 3 zeigt den Ablauf im Detail.<\/p>\n Die Prozedur ChangeDescription überprüft für jedes Feld der Tabelle tblAufgaben, ob die Eigenschaft Description bereits angelegt wurde. Dazu wird in der Funktion IsInPropertyList der Name jedes Elements der Properties-Auflistung mit dem Text Description verglichen. Falls ein solches Element gefunden wird, gibt die Funktion den Wert True zurück. <\/p>\n Falls die Prozedur ChangeDescription feststellt, dass die Eigenschaft Description vorhanden ist, kann sie ihr einfach einen neuen Wert zuweisen. Andernfalls muss die Eigenschaft zunächst mit der folgenden Anweisung angelegt werden:<\/p>\n Die CreateProperty-Methode des Field-Objektes erzeugt eine neue Eigenschaft. Als Name wird hier Description, als Datentyp dbText und als Wert die angegebene Zeichenkette verwendet. Das Hinzufügen der Eigenschaft zum aktuellen Field-Objekt erledigt die folgende Anweisung:<\/p>\n Mit den hier vorgestellten Funktionen und Prozeduren können Sie einen Blick hinter die Kulissen einer Tabelle werfen und die Eigenschaften der einzelnen Felder der Tabelle anzeigen. <\/p>\n Kombiniert mit wenigen Kenntnissen zum Thema Berichte können Sie leicht eine Funktion programmieren, mit der Sie alle Eigenschaften der Felder einer Tabelle ordentlich aufgelistet in einem Bericht ausgeben können.<\/p>\n Dazu sollten Sie allerdings die Prozeduren ein wenig ändern. Die beschriebenen Prozeduren dienen dazu, die Eigenschaften von festgelegten Feldern festgelegter Tabellen auszulesen.<\/p>\n Sie können die Prozeduren leicht flexibler machen, indem Sie die festen Werte durch Parameter ersetzen, die Sie der Prozedur beim Aufruf übergeben.<\/p>\n Bei der Prozedur ReadPropertiesFromAllFields (Quellcode 2) ersetzen Sie beispielsweise den Tabellennamen „tblAufgaben“ durch den Parameter Tabellenname und ändern den Aufruf der Prozedur folgendermaßen:<\/p>\n Mit dem Aufruf<\/p>\n zeigen Sie nun zwar ebenfalls alle Eigenschaften aller Felder der Tabelle tblAufgaben an. Allerdings können Sie auch jede beliebige anderen Tabelle angeben.<\/p>\n","protected":false},"excerpt":{"rendered":" Wer den Einstieg in die Programmierung mit VBA und das Objektmodell von Access erst mal geschafft hat, profitiert gleich mehrfach davon: Die grundsätzliche Vorgehensweise zur Programmierung von Tabellen, Abfragen, Formularen und Berichten ist fast immer die gleiche. Doch auch hier steckt der Teufel imDetail: Bei den verborgenen Feldeigenschaften gibt es die eine oder andere Ausnahme, die es zu kennen gilt.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[662001,66042001,44000025],"tags":[],"class_list":["post-55000025","post","type-post","status-publish","format-standard","hentry","category-662001","category-66042001","category-VBA_und_Programmiertechniken"],"yoast_head":"\n currentdb.TableDefs(\"tblAufgaben\").ValidationRule<\/pre>\n
[Wiedervorlage]>Date()<\/pre>\n
currentdb.TableDefs(\"tblAufgaben\").ValidationRule = \"[Wiedervorlage]>=Date()\"<\/pre>\n
Hinweis<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{03CD8C72-47A4-466D-A121-3D0194CC8512}\/pic004.png\")
<\/p>\n currentdb.TableDefs(\"tblAufgaben\").fields(\"Erledigt\").ValidationRule<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{03CD8C72-47A4-466D-A121-3D0194CC8512}\/pic005.png\")
<\/p>\nWeitere Eigenschaften<\/h2>\n
currentdb.TableDefs(\"tblAufgaben\").Fields(\"Erledigt\").Description<\/pre>\n
CurrentDB.TableDefs(\"tblAufgaben\").Fields(\"Erledigt\").Properties(\"Description\")<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{03CD8C72-47A4-466D-A121-3D0194CC8512}\/pic006.png\")
<\/p>\nAbfrage der ValidationRule alsProperty<\/h2>\n
currentdb.TableDefs(\"tblAufgaben\").fields(\"Erledigt\").Properties(\"ValidationRule\")<\/pre>\n
Public Sub ReadPropertiesFromOneField()\r\n Dim PropertyCounter As Integer\r\n Dim tdf As DAO.TableDef\r\n Dim fld As DAO.Field\r\n Dim dbs As Database\r\n '' Verweis auf aktuelle Datenbank\r\n Set dbs = CurrentDb\r\n '' tblAufgaben als tableDef-Objekt öffnen\r\n Set tdf = dbs.TableDefs(\"tblAufgaben\")\r\n For PropertyCounter = 0 To tdf.Fields(\"Erledigt\").Properties.Count - 1\r\n Debug.Print PropertyCounter, tdf.Fields(\"Erledigt\")._ Properties(PropertyCounter).Name\r\n Next PropertyCounter<\/pre>\n
Property-Werte anzeigen<\/h2>\n
Debug.Print tdf.Fields(\"Erledigt\").Properties(PropertyCounter).Value<\/pre>\n
On Error Resume Next\r\n Debug.Print , df.Fields(\"Erledigt\") .Properties(PropertyCounter) .Value\r\n On Error GoTo 0<\/pre>\n
Function FieldType _(intType As Integer) As String\r\n Select Case intType\r\n Case dbBigInt\r\n FieldType = \"dbBigInt\"\r\n Case dbBinary\r\n FieldType = \"dbBinary\"\r\n Case dbBoolean\r\n FieldType = \"dbBoolean\"\r\n Case Else\r\n FieldType = \"**\" & intType & \"**\"\r\n End Select\r\nEnd Function<\/pre>\n
Public Sub ReadPropertiesFromAllFields()\r\n Dim PropertyCounter As Integer\r\n Dim FieldCounter As Integer\r\n Dim tdf As DAO.TableDef\r\n Dim fld As DAO.Field\r\n Dim dbs As Database\r\n '' Verweis auf aktuelle Datenbank\r\n Set dbs = CurrentDb\r\n '' tblAufgaben als tableDef-Objekt öffnen\r\n Set tdf = dbs.TableDefs(\"tblAufgaben\")\r\n '' Schleife für alle Felder\r\n For FieldCounter = 0 To tdf.Fields.Count - 1\r\n '' Field-Objekt zuweisen\r\n Set fld = tdf.Fields(FieldCounter)\r\n '' Schleife für alle Properties\r\n For PropertyCounter = 0 To tdf.Fields(FieldCounter).Properties.Count - 1\r\n Debug.Print tdf.Fields(FieldCounter).Name, PropertyCounter, _\r\n tdf.Fields(FieldCounter).Properties(PropertyCounter).Name, _\r\n FieldType(tdf.Fields(FieldCounter).Properties(PropertyCounter).Type)\r\n Next PropertyCounter\r\n Next FieldCounter\r\n Set tdf = Nothing\r\n Set dbs = Nothing<\/pre>\n
Public Sub ChangeDescription()\r\n Dim dbs As DAO.Database\r\n Dim tdf As DAO.TableDef\r\n Dim fld As DAO.Field\r\n Dim prpNew As DAO.Property\r\n Dim sDescriptionAdd As String\r\n Dim sDescriptionOld As String\r\n Set dbs = CurrentDb\r\n Set tdf = dbs.TableDefs(\"tblAufgaben\")\r\n '' Schleife für alle Felder\r\n For Each fld In tdf.Fields\r\n sDescriptionAdd = \"Feld: \" & fld.Name\r\n If IsInPropertyList(fld, \"Description\") Then\r\n '' Falls sie noch nicht vorhanden ist, neue Beschreibung ergänzen\r\n sDescriptionOld = fld.Properties(\"Description\").Value\r\n If InStr(1, sDescriptionOld, sDescriptionAdd) = 0 Then\r\n fld.Properties(\"Description\").Value = sDescriptionAdd _ & \" \" & sDescriptionOld\r\n End If\r\n Else\r\n Set prpNew = fld.CreateProperty(\"Description\", dbText, \"Feld: \" _ & fld.Name)\r\n fld.Properties.Append prpNew\r\n End If\r\n Next fld\r\nEnd Sub\r\nQuellcode 3<\/pre>\n
Set prpNew = fld.CreateProperty (\"Description\", dbText, \"Feld: \" & fld.Name)<\/pre>\n
fld.Properties.Append prpNew\r\nPublic Function IsInPropertyList(fld As DAO.Field, sPropertyName As String) As Boolean\r\n Dim prpCounter As Integer\r\n prpCounter = 0\r\n IsInPropertyList = False\r\n While prpCounter < fld.Properties.Count And Not IsInPropertyList\r\n If fld.Properties(prpCounter).Name = sPropertyName Then\r\n IsInPropertyList = True\r\n End If\r\n prpCounter = prpCounter + 1\r\n Wend\r\nEnd Function<\/pre>\n
Public Sub RedPropertiesFormAllFields _(Tabellenname as String)<\/pre>\n
ReadPropertiesFromAllFields(\"tblAufgaben\")<\/pre>\n