{"id":55000732,"date":"2010-08-01T00:00:00","date_gmt":"2020-05-22T22:06:33","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=732"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"DAO_Tabellen_Felder_und_Co_bearbeiten","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/DAO_Tabellen_Felder_und_Co_bearbeiten\/","title":{"rendered":"DAO: Tabellen, Felder und Co. bearbeiten"},"content":{"rendered":"

\"\"<\/p>\n

Tabellen, Felder und Beziehungen erstellt man normalerweise mit den Werkzeugen der Benutzeroberfläche von Microsoft Access. Es kann jedoch nie schaden, per VBA-Code sowohl auf die Definition der Elemente des Datenmodells zuzugreifen und diese auch erstellen oder ändern zu können. In diesem Beitrag zeigen wir, wie Sie die datenbezogenen Objekte Ihrer Datenbank mit den Eigenschaften und Methoden der DAO-Bibliothek im Griff behalten.<\/b><\/p>\n

Für den Zugriff auf die Tabellendefinitionen per DAO brauchen Sie natürlich zunächst einen Verweis auf die entsprechende Objektbibliothek. Dieser ist in den meisten Access-Versionen voreingestellt, zur Sicherheit sollten Sie jedoch den Verweise<\/b>-Dialog (VBA-Editor, Menüeintrag Extras|Verweise<\/b>) konsultieren, ob dieser einen Verweis namens Microsoft DAO 3.6 Object Library <\/b>(Access 2003 und älter) oder Microsoft Office x.0 Access Database Engine Object Library <\/b>(Access 2007 und jünger) enthält.<\/p>\n

Datenbank referenzieren<\/b><\/p>\n

Die aktuell geöffnete Datenbank referenzieren Sie am besten mit der CurrentDB<\/b>-Funktion. Diese liefert immer den Blick auf den aktuellen Zustand aller Datenbankobjekte. Den Verweis speichern Sie in jedem Fall in einer Variablen des Typs Database<\/b>. <\/p>\n

Nach Verwendung geben Sie den durch die Objektvariable belegten Platz wieder frei:<\/p>\n

Dim db As DAO.database\r\nSet db = CurrentDb\r\n''mit db arbeiten\r\nSet db = Nothing<\/pre>\n
Um eine andere Datenbank zu referenzieren, verwenden Sie statt CurrentDb <\/b>Folgendes:<\/p>\n
Set db = DBEngine.OpenDatabase("c:\\db.mdb")<\/pre>\n
Anschließend greifen Sie über die Objektvariable db <\/b>genau so auf die Elemente dieser Datenbank zu, wie Sie es bei Verwendung von CurrentDB <\/b>erledigen würden.<\/p>\n
Datenbank erstellen<\/b><\/p>\n
Eine Datenbank erstellen Sie mit der CreateDatabase<\/b>-Methode des DBEngine<\/b>-Objekts. Im folgenden Beispiel wird eine neue Datenbank erzeugt, ein Verweis darauf in der Database<\/b>-Variablen db <\/b>gespeichert, der Name der frisch erzeugten Datenbank im Direktfenster ausgegeben und die Datenbank wieder gelöscht:<\/p>\n
Dim db As DAO.database\r\nDim strDatabase As String\r\nstrDatabase = CurrentProject.Path & "\\Temp.mdb"\r\nSet db = DBEngine.CreateDatabase(strDatabase, dbLangGeneral)\r\nDebug.Print db.Name\r\nSet db = Nothing\r\nKill strDatabase<\/pre>\n
In den folgenden Beispielen lassen wir Deklaration, Zuweisung und Leerung der Objektvariablen db<\/b> aus Platzgründen weg.<\/p>\n
Tabelle erstellen<\/p>\n
Tabellen werden unter DAO durch das TableDef<\/b>-Objekt repräsentiert. Für das Erstellen einer Tabelle verwenden Sie die CreateTableDef<\/b>-Methode des Database<\/b>-Objekts. Dies reicht aber nicht aus: Das Objekt hängt im leeren Raum und muss noch an die TableDefs<\/b>-Auflistung der Datenbank angehängt werden. Und selbst dies führt noch zu einem Fehler, weil die Tabelle noch keine Felder enthält. Ein leeres Tabellengerüst lässt sich also weder in der Benutzeroberfläche noch per DAO erzeugen: Es muss immer mindestens ein Feld enthalten. Die folgenden Zeilen erzeugen eine neue Tabelle, fügen ein einfaches Textfeld hinzu und hängen die Tabelle dann an die TableDefs<\/b>-Auflistung an. Schließlich wird noch das Datenbankfenster aktualisiert, damit dieses die neue Tabelle gleich anzeigt:<\/p>\n
Dim tdf As DAO.TableDef\r\nDim fld As DAO.Field\r\nSet tdf = db.CreateTableDef("tblNeu")\r\nSet fld = tdf.CreateField("ID", dbLong)\r\ntdf.Fields.Append fld\r\ndb.TableDefs.Append tdf\r\nApplication.RefreshDatabaseWindow<\/pre>\n
Versteckte Tabellen und Systemtabellen<\/b><\/p>\n
Wenn Sie die richtigen Optionen einstellen, zeigt Access auch Systemtabellen und versteckte Tabellen im Datenbankfenster beziehungsweise im Navigationsbereich an. Eine Systemtabelle zeichnet sich durch eine spezielle Eigenschaft aus, genau wie eine versteckte Tabelle. Der Unterschied ist: Eine versteckte Tabelle können Sie über die Benutzeroberfläche als solche kennzeichnen (rechte Maustaste auf den Tabellennamen, Eintrag Tabelleneigenschaften<\/b>, Eigenschaft Ausblenden<\/b>), eine Systemtabelle nur per VBA. Die üblichen Deklarationen vorausgesetzt, können Sie mit diesen Anweisungen eine Tabelle ausblenden:<\/p>\n
Set db = CurrentDb\r\nSet tdf = db.TableDefs("tblKunden")\r\ntdf.Attributes = 1 ''dbHiddenObject<\/pre>\n
Wenn Sie eine Tabelle in eine Systemtabelle umwandeln möchten, stellen Sie die Attributes<\/b>-Eigenschaft auf den Wert dbSystemObject <\/b>(-2147483646<\/b>) ein. Wollen Sie der Eigenschaft Attributes <\/b>mehrere Attribute zuweisen, verknüpfen Sie die Zahlenwerte oder die Konstanten einfach mit dem Or<\/b>-Schlüsselwort. Folgendes würde eine versteckte Systemtabelle liefern (nicht, dass dies sinnvoll wäre …):<\/p>\n
tdf.Attributes = dbHiddenObject Or dbSystemObject<\/pre>\n
Access zeigt versteckte Tabellen und Systemtabellen nur an, wenn die Optionen Ausgeblendete Objekte anzeigen <\/b>und Systemobjekte anzeigen <\/b>aktiviert sind.<\/p>\n
Tabellenfeld anlegen<\/b><\/p>\n
Das erste Tabellenfeld haben Sie bereits angelegt, nun folgen die Erläuterungen hierzu. Genau wie beim Anlegen einer Tabelle brauchen Sie zunächst eine Objektvariable, in der Sie den Verweis auf das neue Feld speichern können:<\/p>\n
Dim fld As DAO.Field<\/pre>\n
Dann erstellt die CreateField<\/b>-Methode des TableDef<\/b>-Objekts der Tabelle, der das Feld hinzugefügt werden soll, das eigentliche Feld:<\/p>\n
Set fld = tdf.CreateField("ID", dbLong)<\/pre>\n
Als Parameter dienen der Feldname sowie eine Konstante für den Datentyp. Als Datentypen für die Verwendung von DAO 3.6 <\/b>kommen die folgenden Werte infrage (jüngere DAO-Versionen erlauben noch weitere Datentypen, auf die wir an dieser Stelle aber nicht eingehen):<\/p>\n