![\"Diese](\"..\/tl_files\/images\/pic_361_001.png\")
<\/a><\/p>\nBild 1: Diese Tabelle wollen wir mit VBA und SQL nachbauen.<\/p>\n
Die Beziehung soll anschließend die Eigenschaften wie in Bild 2 aufweisen.<\/p>\n
Bild 2: Beziehung zwischen den Tabellen tblKunden und tblAnreden<\/p>\n Die Primärschlüsselfelder der beiden Tabellen tblKunden <\/b>und tblAnreden <\/b>sollen außerdem als Autowert-Felder definiert werden.<\/p>\n Um einen DDL-Befehl auszuführen, benötigen Sie wenige Zeilen VBA-Code. Die einzige Methode, die wir anwenden, heißt Execute <\/b>und gehört zum Database<\/b>-Objekt der DAO-Bibliothek (Microsoft DAO 3.6 Object Library<\/b>, in neueren Access-Versionen ACE<\/b>, Microsoft Office x.0 Access database engine Object Library<\/b>). Für dieses deklarieren wir zuvor eine entsprechende Objektvariable:<\/p>\n Mit der folgenden Anweisung füllen wir die Objektvariable, wobei die Funktion CurrentDb <\/b>einen Verweis auf das aktuelle Database<\/b>-Objekt liefert:<\/p>\n Schließlich rufen wir die Methode Execute <\/b>dieses Objekts auf:<\/p>\n Wichtig ist hier, dass Sie neben der auszuführenden SQL-Anweisung als ersten Parameter noch einen zweiten Parameter übergeben, welcher die Konstante dbFailOnError <\/b>enthält. Nur so löst eine fehlerhafte SQL-Anweisung auch einen Laufzeitfehler aus.<\/p>\n Diese Anweisung definieren Sie beispielsweise in einem Standardmodul, das Sie im VBA-Editor (zu öffnen mit Alt + F11<\/b>) mit dem Menübefehl Einfügen|Modul <\/b>hinzufügen. Hier können Sie die nachfolgend vorgestellten Anweisungen in jeweils eigenen Prozeduren hinzufügen. Zum testweisen Ausführen positionieren Sie die Einfügemarke irgendwo innerhalb der auszuführenden Prozedur und betätigen die Taste F5<\/b>. Die Inhalte der Prozeduren können Sie natürlich auch etwa in die Prozeduren einfügen, die durch die Schaltflächen eines Formulars ausgelöst werden. Im Rahmen dieses Artikels wollen wir uns jedoch auf die Tests vom VBA-Editor aus beschränken.<\/p>\n Als Erstes legen wir die Tabelle tblAnreden <\/b>an. Diese Tabelle hat nur zwei Felder, nämlich AnredeID <\/b>und Anrede<\/b>. Schon der erste Versuch, die Tabelle einfach mit der Anweisung CREATE TABLE tblAnreden <\/b>anzulegen, führt zu einem Fehler. Aber nicht etwa, weil wir keine Felder angegeben haben, sondern weil die Tabelle schlicht und einfach bereits vorhanden ist – wir haben sie ja zum Veranschaulichen der üblicherweise verwendeten Vorgehensweise bereits über die Benutzeroberfläche angelegt (siehe Bild 3).<\/p>\n Bild 3: Fehler beim Versuch, eine bereits vorhandene Tabelle anzulegen<\/p>\n Wir kümmern uns also bereits vor dem ersten Anlegen einer Tabelle per DDL um das Löschen einer bereits vorhandenen Tabelle gleichen Namens. Das ist zugegebenermaßen auch viel leichter, als die Tabelle zu erstellen und sieht wie folgt aus:<\/p>\n Dummerweise führt dies gleich zum nächsten Fehler (siehe Bild 4). Wir müssen uns nun allerdings nicht um das Löschen der Beziehung kümmern, sondern wir entfernen gleich die komplette Tabelle tblKunden<\/b>, bevor wir tblAnreden <\/b>löschen:<\/p>\n Bild 4: Die Beziehung verhindert das Löschen der Tabelle tblAnreden.<\/p>\n Danach können wir dann die Tabelle tblAnreden <\/b>anlegen. Das klappt sogar ohne Angabe eines einzigen Feldes:<\/p>\n Die Abfrage erscheint dann auch im Navigationsbereich, allerdings führt der Versuch, die Tabelle zu öffnen, zu dem Fehler aus Bild 5. Wir behalten für die folgenden Beispiele, die wir in der Prozedur tblAnredenAnlegen <\/b>entwickeln, die beiden Anweisungen zum Löschen der Tabellen tblKunden <\/b>und tblAnreden <\/b>bei – so löschen wir gleich immer die zuvor angelegten Exemplare der beiden Tabellen.<\/p>\n Bild 5: Tabellen ohne Felder können nicht geöffnet werden.<\/p>\n Der nächste Versuch soll die beiden Felder AnredeID <\/b>und Anrede <\/b>mit den jeweiligen Datentypen zur Tabelle tblAnreden <\/b>hinzufügen. Dabei haben wir vor den beiden Anweisungen zum Löschen der Tabellen tblKunden <\/b>und tblAnreden<\/b> die Fehlerbehandlung deaktiviert, da diese beim Versuch, eine nicht vorhandene Tabelle zu löschen, einen Fehler auslösen würden:<\/p>\n Das Ergebnis sehen Sie in Bild 6. Die beiden Felder werden mit den gewünschten Datentypen angelegt, allerdings natürlich noch ohne Primärschlüsselfeld und Autowert-Eigenschaft. Dies können wir nun nachträglich erledigen oder aber durch erneutes Löschen und Anlegen der Tabelle. Zunächst werfen wir jedoch noch einen Blick auf die CREATE TABLE<\/b>-Anweisung:<\/p>\n Bild 6: Die Tabelle tblAnreden mit den beiden Feldern AnredeID und Anrede – allerdings noch ohne Primärschlüssel- und Autowert.<\/p>\n Hier wird der grundsätzliche Aufbau schnell deutlich: Nach dem Tabellennamen folgt in Klammern eine komma-separierte Liste der anzulegenden Felder, wobei nach dem Feldnamen jeweils der Datentyp angegeben wird. Wir wollen die gängigen Datentypen abbilden, also diejenigen, die im Tabellenentwurf zur Auswahl stehen (siehe Bild 7).<\/p>\n Bild 7: Datentypen für die Felder einer Access-Tabelle<\/p>\n Es kann sein, dass trotz des Löschens einer Tabelle eine Fehlermeldung beim erneuten Erstellen einer Tabelle erscheint (siehe Bild 8). Dies ist dann der Fall, wenn die Tabelle beim Versuch, diese zu löschen, geöffnet ist – egal, ob in der Datenblatt- oder Entwurfsansicht. Sie müssen die Tabelle dann zunächst schließen. Auch dies könnten Sie noch in Form einer VBA-Anweisung zur Prozedur hinzufügen:<\/p>\n Bild 8: Fehler bei bereits vorhandener Tabelle<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span><\/a><\/p>\nAusführen von DDL-Befehlen<\/h2>\n
Dim <\/span>db as DAO.Database<\/pre>\nSet<\/span> db = CurrentDb<\/pre>\ndb.Execute \"CREATE TABLE ...\", dbFailOnError<\/pre>\n
Anlegen der Tabelle tblAnreden<\/h2>\n
<\/a><\/p>\nTabelle löschen<\/h2>\n
db.Execute \"DROP TABLE tblAnreden\", dbFailOnError<\/pre>\n
<\/a><\/p>\ndb.Execute \"DROP TABLE tblKunden\", dbFailOnError\r\ndb.Execute \"DROP TABLE tblAnreden\", dbFailOnError<\/pre>\n
db.Execute \"CREATE TABLE tblAnreden\", dbFailOnError<\/pre>\n
<\/a><\/p>\nPublic Sub <\/span>tblAnredenAnlegen()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Set<\/span> db = CurrentDb\r\n On Error Resume Next<\/span>\r\n db.Execute \"DROP TABLE tblKunden\", dbFailOnError\r\n db.Execute \"DROP TABLE tblAnreden\", dbFailOnError\r\n On Error GoTo<\/span> 0\r\n db.Execute \"CREATE TABLE tblAnreden( AnredeID INTEGER, Anrede TEXT(50))\", dbFailOnError\r\nEnd Sub<\/span><\/pre>\n<\/a><\/p>\nCREATE TABLE tblAnreden(\r\n AnredeID INTEGER, \r\n Anrede TEXT(50)\r\n)<\/pre>\n
<\/a><\/p>\nTabelle trotz Löschen noch vorhanden<\/h2>\n
<\/a><\/p>\nDoCmd.Close acTable, \"tblAnreden\"<\/pre>\n
Datentypen unter Access-SQL<\/h2>\n
\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