![\"Entwurfsansicht](\"..\/tl_files\/images\/pic_58_524.png\")
<\/a><\/p>\nBild 1: Entwurfsansicht einer Abfrage zum Löschen des Artikels mit dem Wert 1 im Feld ArtikelID.<\/p>\n
Die Abfrage löscht genau einen Datensatz, und zwar den mit dem Wert 1 <\/b>im Feld ArtikelID<\/b>. Das gilt natürlich nur, wenn ein solcher Datensatz überhaupt vorhanden ist. Sonst bewirkt der Aufruf dieser Abfrage gar nichts.<\/p>\nDie Execute-Methode<\/h2>\n
Nun folgt der interessante Teil: Access bietet eine ganze Reihe von VBA-Objekten an, die wiederum praktische Methoden etwa für den Zugriff auf Daten offerieren. In unserem Fall geht es um das Objekt, dass die aktuelle Datenbank repräsentiert.<\/p>\n
Es hat den Datentyp Database <\/b>und wird als Objektvariable deklariert. Das alles ist für Einsteiger vielleicht noch etwas unverständlich – das ist aber kein Problem. Manche Dinge kann man zu Beginn einfach als gegeben hinnehmen. In diesem Fall geht es um die folgenden Codezeilen:<\/p>\n Die erste Zeile deklariert db <\/b>als Objektvariable des Typs Database<\/b>, die zweite füllt diese Variable mit dem Wert der Funktion CurrentDb<\/b>. CurrentDb <\/b>wiederum liefert einen Verweis auf die aktuelle Datenbank.<\/p>\n Dank dieser beiden Zeilen können Sie nachfolgend über die Variable db <\/b>bestimmte Aktionen mit der Datenbank durchführen.<\/p>\n In unserem Fall soll eine Aktionsabfrage durchgeführt werden, genau genommen eine Löschabfrage.<\/p>\n Der dazu benötigte Befehl des mit db <\/b>referenzierten Objekts heißt Execute<\/b>. Execute <\/b>erwartet als Parameter zumindest eine Variable oder Zeichenkette, die folgendes enthält:<\/p>\n Am einfachsten ist es natürlich, wenn Sie eine DELETE<\/b>-Abfrage per Abfrageentwurf zusammenstellen und diese direkt per VBA aufrufen möchten. Die nötigen Anweisungen sehen dann so aus:<\/p>\n Wenn Sie das Beispiel nachvollziehen möchten, legen Sie ein neues Standardmodul an und fügen Sie den obigen Code dort ein (?[basics] VBA-Modul anlegen). <\/p>\n Wenn Sie als Parameter der Execute<\/b>-Methode einfach nur den Namen einer Aktionsabfrage angeben, wird diese einfach aufgerufen. Allerdings müssen bereits alle Einstellungen in der Abfrage selbst vorgenommen werden – zum Beispiel, ob alle Datensätze der Tabelle gelöscht werden sollen oder nur einer. Im obigen Beispiel wird die Abfrage qryArtikelLoeschen <\/b>ausgelöst, was den Artikel mit dem Wert 1 <\/b>im Feld ArtikelID <\/b>löscht.<\/p>\n Die Abfrage führen Sie beispielsweise aus, indem Sie die Einfügemarke irgendwo innerhalb der Prozedur platzieren und dann die Taste F5 <\/b>betätigen oder den Menübefehl Ausführen|Sub\/Userform ausführen <\/b>aufrufen.<\/p>\n Für den Anfang prüfen Sie nun per Sichtkontrolle, ob der Datensatz tatsächlich gelöscht wurde – und zwar, indem Sie die Tabelle tblArtikel <\/b>öffnen und schauen, ob der Datensatz noch vorhanden ist.<\/p>\n Die Execute<\/b>-Anweisung führt die angegebene Aktionsabfrage ohne Rückfrage aus. Wenn Sie also etwa einen Artikel erst löschen möchten, wenn der Benutzer dem explizit zugestimmt hat, müssen Sie die Execute<\/b>-Anweisung noch in eine If…Then<\/b>-Bedingung einfassen, die das Ergebnis einer MsgBox<\/b>-Funktion prüft. Dies kann etwas allgemein formuliert etwa so aussehen:<\/p>\n Manchmal kann es hilfreich sein, die Aktionsabfrage nicht als Abfrage zu speichern, sondern direkt auszuführen. Das bedeutet, dass Sie der Execute<\/b>-Anweisung nicht den Namen der gespeicherten Abfrage, sondern einen entsprechenden SQL-Ausdruck angeben.<\/p>\n Fehlende SQL-Kenntnisse sind hier kein Problem: Access bietet die Möglichkeit, Abfragen in der SQL-Ansicht anzuzeigen. Und aus dieser können Sie den gewünschten SQL-Ausdruck einfach herauskopieren und in den VBA-Code einfügen.<\/p>\n Im Falle der Aktionsabfrage unseres Beispiels sieht das so aus:<\/p>\n Bild 2: SQL-Ansicht einer Abfrage aktivieren<\/p>\n<\/ul>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>Dim <\/span>db As <\/span>Database\r\nSet<\/span> db = CurrentDb<\/pre>\n\n
Private Sub <\/span>EinfacherAufruf()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Set<\/span> db = CurrentDb\r\n db.Execute \"qryArtikelLoeschen\"\r\n Set<\/span> db = Nothing\r\nEnd Sub<\/span><\/pre>\nAchtung: Keine Rückfrage!<\/h2>\n
If <\/span>MsgBox<\/span>(\"Datensatz löschen\", vbYesNo) = vbYes Then<\/span>\r\n Set<\/span> db = CurrentDb\r\n db.Execute \"qryArtikelLoeschen\"\r\nEnd If<\/span><\/pre>\nAktionsabfrage als SQL-Ausdruck angeben<\/h2>\n
\n
<\/a><\/p>\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