{"id":55000134,"date":"2015-06-01T00:00:00","date_gmt":"2020-01-24T15:58:15","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=134"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Tabellen_bearbeiten_mit_dem_TableDefObjekt","status":"publish","type":"post","link":"https:\/\/access-basics.de\/index.php\/Tabellen_bearbeiten_mit_dem_TableDefObjekt.html","title":{"rendered":"Tabellen bearbeiten mit dem TableDef-Objekt"},"content":{"rendered":"

Wenn Sie über VBA auf die Objekte Ihrer Datenbank zugreifen, dann hat sicher der Datenzugriff über das Recordset-Objekt die größte Bedeutung. Seltener werden Sie die Definitionen der Tabellen auslesen, bearbeiten oder gar anlegen müssen. Wenn doch, so ist das TableDef-Objekt von DAO die zentrale Anlaufstelle. Sehen Sie selbst, wie der Umgang damit aussieht und was möglich ist.<\/p>\n

Beispieldatenbank<\/h2>\n

Die Beispiele dieses Artikels finden Sie in der Datenbank 1409_Tabledefs.mdb<\/b>.<\/p>\n

Die richtige Bibliothek<\/h2>\n

Die VBA-Zugriffsmethoden für die Datenbank sind nicht Teil von Access selbst, sondern in eine zusätzliche Daten-Engine ausgelagert. Das führt dazu, dass Sie in Ihrem VBA-Projekt einen zusätzlichen Verweis auf diese Engine benötigen. Wenn Sie eine neue Datenbank anlegen, so setzt Access diesen Verweis automatisch, doch leider war man sich bei Microsoft nicht einig, welche Bibliothek hierfür die geeignete ist.<\/p>\n

So war man einige Zeit der Meinung, dass ADODB<\/b> die bessere Zugriffsbibliothek darstellt, und folglich wurde beim Anlegen einer Datenbank darauf ein Verweis gesetzt. Erst ab Access 2007 schwenkte man wieder um und manifestierte DAO<\/b> als Standard.<\/p>\n

Sie können daher nicht sicher sein, dass in Ihrer oder einer fremden Datenbank bereits ein Verweis auf die Bibliothek DAO gesetzt ist, welche die Klasse TableDef<\/b> enthält, von der hier die Rede sein soll.<\/p>\n

Im Zweifel schauen Sie im VBA-Objektkatalog nach, ob dort der Eintrag DAO<\/b> vorhanden ist, oder rufen alternativ den Verweise-Dialog über das Menü Extras|Verweise…<\/b> auf. DAO hieß zwar früher schon DAO, der Beschreibungstext des Verweises änderte sich allerdings. So ist bis Access 2003 ein Verweis auf die Microsoft DAO 3.6 Objekt Library<\/b> zu setzen und für die Folgeversionen einer auf die Microsoft Office 12.0 Access database engine Object Library<\/b>.<\/p>\n

Machen Sie für Access 2010 aus der 12 eine 14 und für Access 2013 eine 15. In allen Fällen aber finden Sie anschließend im Objektkatalog den Eintrag DAO<\/b> in der linken oberen Combobox. Wird er ausgewählt, so erscheinen die Datenzugriffsklassen der Bibliothek auf der linken Seite, wie in Bild 1, wo auch schon die TableDef-Klasse<\/b> markiert wurde und rechts ihre Methoden wiedergibt.<\/p>\n

\"Die<\/a><\/p>\n

Bild 1: Die Klasse DAO.TableDef im VBA-Objektkatalog<\/p>\n

TableDefs-Auflistung<\/h2>\n

Alle Tabellen Ihrer Datenbank sind in einer Art Katalog über die TableDefs<\/b>-Klasse zu erhalten. Wie in allen Auflistungsklassen können deren TableDef<\/b>-Elemente in einer For..Each<\/b>-Schleife durchlaufen werden, die Zahl der Elemente über die Eigenschaft Count<\/b> ermittelt oder Elemente gezielt mit der (versteckten) Item<\/b>-Eigenschaft abgefragt werden. Woher jedoch weiß DAO, wenn es gar nicht Teil des Access-Objektmodells ist, welche Tabellen ihn der Access-Datenbank stecken Dazu muss über ein Database<\/b>-Objekt, welches selbst die TableDefs-Methode ausweist, eine Verbindung zu ihr geschaffen werden.<\/p>\n

Dieses Bindeglied gibt es in Access entweder über die Eigenschaft Application.CurrentDb <\/b>oder über die Eigenschaft Application.DBEngine<\/b>. Sobald eine Datenbank in Access geöffnet wird, tritt die Datenbank-Engine in Aktion und lädt in ihr Workspace<\/b> ein neues Database<\/b>-Objekt. Eine Kopie davon lässt sich dann über CurrentDb<\/b> erhalten. Im Prinzip sollte man über beide Ansätze zum gleichen Ergebnis kommen:<\/p>\n

1.\r\nDim <\/span>dbs As <\/span>DAO.Database\r\nSet<\/span> dbs = Application.CurrentDb\r\n2.\r\nDim <\/span>dbs As <\/span>DAO.Database\r\nDim <\/span>wrk As <\/span>DAO.Workspace\r\nSet<\/span> wrk = Application. _\r\n   DBEngine.Workspaces(0)\r\nSet<\/span> dbs = wrk.Databases(0)\r\nAbgekürzt:\r\nSet<\/span> dbs = DBEngine(0)(0)<\/pre>\n
Dass es leider nicht egal ist, für welche der beiden Methoden man sich entscheidet, werden wir noch sehen.<\/p>\n
Versuchen wir zunächst alle Tabellen der aktuellen Datenbank namentlich im VBA-Direktfenster auszugeben. Rufen Sie dazu die erste der drei Routinen in Listing 1 auf. ListTableDefs<\/b> definiert erst eine TableDef-Variable tdf<\/b> und füllt diese in der folgenden For..Each<\/b>-Schleife jeweils mit dem nächsten Element der TableDefs-Auflistung von CurrentDb<\/b>. Die Eigenschaft Name<\/b> des TableDef-Objekt wird ins Direktfenster geschrieben.<\/p>\n
Auf diese Weise entsteht eine Liste wirklich aller Tabellen der Datenbank, zu der auch die Systemtabellen gehören, welche allesamt das Präfix MSys<\/b> tragen. Wollten Sie sie ausfiltern, so könnten Sie dies über eine Textfunktion tun, die die ersten vier Zeichen des Namen auswertet.<\/p>\n
Da ein TableDef<\/b>-Objekt aber eine Methode besitzt, welche die Systemeigenschaft direkt anzeigen kann, ist der Gebrauch von Attributes<\/b> verlässlicher. Attributes<\/b> ist ein Long-Wert, der verschiedene Eigenschaften der Tabelle wiedergibt und als Zahlen binär addiert. Sie finden diese in den Enumerationskonstanten der Klasse TableDefAttributeEnum<\/b> von DAO im Objektkatalog. Dort gibt es etwa für Systemtabellen die Konstante dbSystemObject<\/b> oder für verknüpfte Tabellen das Attribut dbAttachedTable<\/b>.<\/p>\n
Um zu ermitteln, ob dbSystemObjekt <\/b>im Attributes<\/b>-Wert der Tabelle steckt, muss diese Eigenschaftszahl per booleschem AND <\/b>verglichen werden. Genau das geschieht auch in den beiden weiteren Routinen aus Listing 1. ListSysTableDefs<\/b> gibt alle Systemtabellen aus und ListNonSysTableDefs<\/b> die von Ihnen angelegten. Wobei hier zu erwähnen wäre, dass über die Attributes-Eigenschaft eine jede Tabelle auch auf den Status Systemobjekt eingestellt werden kann! Wollten Sie etwa der Tabelle tblStammdaten<\/b> der Beispieldatenbank den Systemstatus verleihen, so genügt dafür eine Zeile:<\/p>\n
Sub <\/span>ListTableDefs()\r\n     Dim <\/span>tdf As <\/span>TableDef\r\n     For Each tdf In CurrentDb.TableDefs\r\n         Debug.Print<\/span> tdf.Name\r\n     Next<\/span> tdf\r\nEnd Sub<\/span>\r\nSub <\/span>ListSysTableDefs()\r\n     Dim <\/span>tdf As <\/span>TableDef\r\n     For Each tdf In CurrentDb.TableDefs\r\n         If <\/span>(tdf.Attributes And dbSystemObject) <> 0 Then<\/span> Debug.Print<\/span> tdf.Name\r\n     Next<\/span> tdf\r\nEnd Sub<\/span>\r\nSub <\/span>ListNonSysTableDefs()\r\n     Dim <\/span>tdf As <\/span>TableDef\r\n     For Each tdf In CurrentDb.TableDefs\r\n         If <\/span>(tdf.Attributes And dbSystemObject) = 0 Then<\/span> Debug.Print<\/span> tdf.Name\r\n     Next<\/span> tdf\r\nEnd Sub<\/span><\/pre>\n
Listing 1: Ausgeben aller Tabellen der Datenbank über die TableDefs-Auflistung<\/p>\n
CurrentDB.TableDefs(\"tblStammdaten\").Attributes = dbSystemObject<\/pre>\n
Ebenso könnten Sie die Tabelle verstecken, indem sie dbHiddenObject<\/b> zuwiesen. In beiden Fällen würde die Tabelle im Datenbankfenster oder Navigationsbereich nicht mehr auftauchen, so Sie nicht in deren Optionen eingestellt hatten, dass auch versteckte und System-Objekte angezeigt werden sollen. <\/p>\n
Tabelleneigenschaften auslesen<\/h2>\n
Attributes<\/b> als Eigenschaftswert einer Tabelle wurde eben schon angeführt. Die weiteren Standardeigenschaften einer Tabelle entsprechend jenen, die rechts in Bild 1 zu sehen sind. Listing 2 zeigt beispielhaft, wie das geht.<\/p>\n
Sub <\/span>ReadTabledef(Optional<\/span> sTable As String<\/span> = \"tblStammdaten\")\r\n     Dim <\/span>dbs As <\/span>DAO.Database\r\n     Dim <\/span>tdf As <\/span>DAO.TableDef\r\n     \r\n'    Set<\/span> tdf = CurrentDb.TableDefs(sTable)\r\n'    Set<\/span> dbs = CurrentDb\r\n'    Set<\/span> tdf = dbs.TableDefs(sTable)\r\n     \r\n     With<\/span> DBEngine(0)(0)\r\n         .TableDefs.Refresh\r\n         Set<\/span> tdf = .TableDefs(sTable)\r\n     End With<\/span>\r\n     \r\n     With<\/span> tdf\r\n         Debug.Print<\/span> \"Name\", tdf.Name\r\n         Debug.Print<\/span> \"Connect\", .Connect\r\n         Debug.Print<\/span> \"DateCreated\", .DateCreated\r\n         Debug.Print<\/span> \"LastUpdated\", .LastUpdated\r\n         Debug.Print<\/span> \"SourceTableName\", .SourceTableName\r\n         Debug.Print<\/span> \"Updatable\", .Updatable\r\n         Debug.Print<\/span> \"ValidationRule\", .ValidationRule\r\n         Debug.Print<\/span> \"ValidationText\", .ValidationText\r\n         Debug.Print<\/span> \"Attribute Text:\", StrTableAttrib(.Attributes)\r\n         Debug.Print<\/span> \"ReplicaFilter\", .ReplicaFilter\r\n         Debug.Print<\/span> \"ConflictTable\", .ConflictTable\r\n         Debug.Print<\/span> \"RecordCount\", .RecordCount\r\n         Debug.Print<\/span> \"Fields.Count\", .Fields.Count\r\n         Debug.Print<\/span> \"Indexes.Count\", .Indexes.Count\r\n         Debug.Print<\/span> \"Properties.Count\", .Properties.Count\r\n     End With<\/span>\r\nEnd Sub<\/span><\/pre>\n
Listing 2: Eigenschaften eines TableDef-Objekts ausgeben<\/p>\n
Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t
\n\n\t\t\n\t\t