{"id":55000132,"date":"2013-12-01T00:00:00","date_gmt":"2020-01-24T15:58:14","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=132"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"DAO_Querydefs_und_Parameterabfragen_unter_VBA","status":"publish","type":"post","link":"https:\/\/access-basics.de\/index.php\/DAO_Querydefs_und_Parameterabfragen_unter_VBA.html","title":{"rendered":"DAO: Querydefs und Parameterabfragen unter VBA"},"content":{"rendered":"

Mit der QueryDefs-Auflistung greifen Sie per VBA auf die in einer Datenbank gespeicherten Abfragen zu, legen neue Abfragen an oder öffnen Abfragen mit Parametern per VBA. Sie können damit sogar temporäre Abfragen erstellen, die Sie nur einmal benötigen, und diese anschließend wieder löschen. Dieser Artikel zeigt alle Tricks rund um die Arbeit mit dem QueryDef-Objekt.<\/p>\n

Beispieldatenbank<\/h2>\n

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

Das QueryDef-Objekt<\/h2>\n

Ein QueryDef<\/b>-Objekt ist die Repräsentation einer Abfrage unter VBA beziehungsweise DAO. Sie können mit DAO beispielsweise die Namen aller in der Datenbank gespeicherten Abfragen ausgeben, deren SQL-Code ansehen, neue Abfragen anlegen oder bestehende Abfragen löschen.<\/p>\n

Wenn Sie beispielsweise alle Abfragen der Datenbank im Direktfenster auflisten möchten, erstellen Sie eine kleine VBA-Prozedur. Dazu benötigen Sie zunächst ein Standardmodul. öffnen Sie mit Strg + G <\/b>oder Alt + F11 <\/b>den VBA-Editor und wählen Sie den Menüeintrag Einfügen|Modul<\/b>. Speichern Sie das Modul mit Strg + S <\/b>unter dem Namen mdlQuerydefs<\/b>.<\/p>\n

Nun fügen Sie dem Modul die folgende Prozedur hinzu:<\/p>\n

Public Sub <\/span>AbfragenAuflisten()\r\n     Dim <\/span>db As <\/span>DAO.Database\r\n     Dim <\/span>qdf As <\/span>DAO.QueryDef\r\n     Set<\/span> db = CurrentDb\r\n     For Each qdf In db.QueryDefs\r\n         Debug.Print<\/span> qdf.Name\r\n     Next<\/span> qdf\r\n     Set<\/span> db = Nothing\r\nEnd Sub<\/span><\/pre>\n
Platzieren Sie die Einfügemarke innerhalb der Prozedur und betätigen Sie die Taste F5<\/b>, um die Prozedur auszuführen. Was geschieht Die Prozedur gibt alle in der Datenbank enthaltenen Abfragen im Direktfenster aus (siehe Bild 1).<\/p>\n
\"Ausgabe<\/a><\/p>\n
Bild 1: Ausgabe aller Abfragen der Datenbank<\/p>\n
Das Ergebnis ist interessant: Dort finden sich nämlich nicht nur die im Navigationsbereich beziehungsweise im Datenbankfenster sichtbaren Abfragen, die normalerweise mit dem Präfix qry <\/b>versehen werden, sondern auch noch Einträge, die mit dem Tilde-Zeichen beginnen (~<\/b>).<\/p>\n
Dabei handelt es sich um solche Abfragen, die als Datenherkunft etwa für Formular, Berichte oder Kombinationsfelder angelegt wurden.<\/p>\n
Wenn Sie beispielsweise ein Formular namens frmArtikel <\/b>anlegen und diesem eine Abfrage als Datenherkunft zuweisen, wird diese unter dem Namen ~sq_ffrmArtikel <\/b> ausgegeben. Wenn Sie ein Formular namens frmMitCboArtikel <\/b>und einem Kombinationsfeld namens cboArtikel <\/b>anlegen und dem Kombinationsfeld eine Abfrage als Datensatzherkunft zuweisen, finden Sie unter den Abfrage mit obiger Prozedur einen Eintrag namens ~sq_cfrmMitCboArtikel~sq_ccboArtikel<\/b> vor. Die Namen dieser versteckt gespeicherten Abfragen werden also aus dem Formularnamen und, wenn ein Kombinationsfeld oder ein Listenfeld im Spiel ist, auch noch aus dem Namen des Steuerelements gebildet – dieser Exkurs nur als Erläuterung diese kryptisch anmutenden Abfragenamen.<\/p>\n
Was genau erledigt nun die oben vorgestellte Prozedur Sie deklariert zunächst eine Objektvariable namens db<\/b>, welche einen Verweis auf das Database<\/b>-Objekt zur aktuellen Datenbank aufnimmt. Eine weitere Objektvariable soll später mit Verweisen auf die QueryDef<\/b>-Objekte der Datenbank gefüttert werden, was der gespeicherten Definition einer Abfrage entspricht. Und dies bezieht sich, wie oben angeführt, nicht nur auf die durch den Benutzer gespeicherten Abfragen, sondern auch auf die Datenherkünfte und datensatzherkünfte von Formularen, Berichten, Kombinationsfeldern und Listenfeldern.<\/p>\n
Die Variable db <\/b>wird nun mit einem Verweis auf das Database<\/b>-Objekt gefüllt. Die Variable qdf <\/b>wird in einer For Each<\/b>-Schleife nacheinander mit Verweisen auf alle in der QueryDefs<\/b>-Auflistung enthaltenen QueryDef<\/b>-Objekte versehen.<\/p>\n
Die einzige Anweisung innerhalb der For Each<\/b>-Schleife gibt den Namen des jeweiligen QueryDef<\/b>-Objekts im Direktfenster aus.<\/p>\n
Mit der QueryDefs<\/b>-Auflistung können Sie noch weitere Dinge tun – zum Beispiel die Anzahl der QueryDef<\/b>-Objekte der aktuellen Datenbank ermitteln. Das geht ganz schnell über das Direktfenster, wie Bild 2 zeigt. Die QueryDefs<\/b>-Auflistung können Sie dabei auch direkt als Elemente der CurrentDB<\/b>-Funktion verwenden, ein vorheriges Referenzieren mit einer Database<\/b>-Variablen wie etwa db <\/b>ist gar nicht nötig.<\/p>\n
\"Abfrage<\/a><\/p>\n
Bild 2: Abfrage der Anzahl der QueryDef-Objekte<\/p>\n
SQL-Ansicht anzeigen<\/h2>\n
Wenn Sie eine Abfrage bearbeiten, verwenden Sie dazu in der Regel die Entwurfsansicht (siehe Bild 3). Sie können dies allerdings auch in der SQL-Ansicht erledigen, die Sie ebenfalls in der Abbildung vorfinden. Den dort dargestellten SQL-Code liefert auch das QueryDef-Objekt.<\/p>\n
\"SQL-Ansicht<\/a><\/p>\n
Bild 3: SQL-Ansicht einer Abfrage<\/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