Aktionen, die Sie über die Oberfläche von Access durchführen, lassen sich fast alle auch über VBA anstoßen. Für die hinter Menüs, Kontextmenüs und Ribbon liegenden Befehle gibt es Pendants, welche sich in zahlreichen Methoden vor allem des DoCmd-Objekts und der RunCommand-Anweisung verstecken. über diese VBA-Funktionen lassen sich komplexe Aufgaben mit wenig Aufwand erledigen. Das ist Grund genug für eine ausführlichere übersicht.<\/p>\n
Die Beispiele dieses Artikels finden Sie in der Datenbank 1511_DocmdAnweisung.accdb<\/b><\/p>\nUnterschiede zwischen DoCmd und RunCommand<\/h2>\n
Zunächst handelt es sich bei RunCommand<\/b> um eine direkte Methode der Access.Application<\/b>-Instanz. DoCmd<\/b> hingegen ist ein Eigenschaftsobjekt von Application<\/b>, das generell verfügbar ist:<\/p>\n RunCommand<\/b> nimmt grundsätzlich nur einen einzigen Parameter entgegen, der aus der Enumeration acCommand<\/b> stammen muss. Das sind Konstanten, die bestimmten Aktionen entsprechen. Wollen Sie etwa ein Fenster, sei es ein Formular oder ein Bericht, maximieren, so lautet die entsprechende Konstante acCmdDocMaximize<\/b>:<\/p>\n Die Zahl dieser Konstanten in den aktuellen Access-Versionen liegt bei etwa 600. <\/p>\n Beim DoCmd<\/b>-Objekt sind es deutlich weniger Methoden, circa 70 nämlich, die dafür aber eine variable Zahl an Parametern aufweisen, mit denen die Aktionen gesteuert werden können. Ein Beispiel für eine Anweisung ohne Parameter wäre<\/p>\n Auch dieser Befehl maximiert ein Formular- oder Berichtsfenster, welches aktuell den Fokus besitzt. Eine Methode mit mehreren Parametern wäre<\/p>\n Dies schließt das Formular frmAdressen<\/b> und und speichert seinen Zustand, also vor allem seine Abmessungen, explizit. Auch ein im Entwurfsmodus befindliches Formular wird damit geschlossen und die änderungen abgespeichert. Ohne den optionalen Parameter acSaveYes<\/b> würden Sie mit dem Bestätigungsdialog zum Speichern konfrontiert.<\/p>\n Sowohl RunCommand<\/b>-, wie DoCmd<\/b>-Anweisungen spiegeln das wieder, was Sie auch über Schaltflächen der Oberfläche erreichen. Es handelt sich deshalb auch immer um Sub<\/b>-Prozeduren, die keinen Rückgabewert haben. Generell könnte man formulieren, dass RunCommand<\/b> Anweisungen entspricht, die keine weitere Interaktion erfordern, während die DoCmd<\/b>-Methoden eher mit den Access-Assistenten zu vergleichen wären, die über mehrere Schritte Angaben abfragen, bevor die eigentliche Aktion ausgeführt wird. Diese vom Assistenten gesammelten Informationen entsprechen dann den Parametern, die die DoCmd<\/b>-Methode erwartet. Ein Beispiel hierfür wäre der Text-Export-Assistent<\/b>, der sein Spiegelbild in der Anweisung DoCmd.TransferText <\/b>hat.<\/p>\n Während die DoCmd<\/b>-Anweisungen in der Hilfe von Access alle hinreichend dokumentiert sind, sind Sie bei den RunCommand<\/b>-Konstanten auf den sprechenden Namen oder Experimente angewiesen.<\/p>\n Microsoft selbst hat über alle Versionen von Access hinweg keine übersicht über die Bedeutung der Konstanten veröffentlicht. Im Zweifel finden Sie Im Internet auf Seiten Dritter weitere Erläuterungen.<\/p>\n Im Folgenden geht es in erster Linie um die Möglichkeiten, die DoCmd<\/b> eröffnet. Nicht alle Methoden sind aufgeführt, da viele nicht wirklich relevant sind oder nur im Umfeld von Access-Projekten (SQL-Server) Bedeutung haben. Die Methoden sind thematisch zusammengefasst.<\/p>\n Dass sich ein Formular über die DoCmd<\/b>-Anweisung OpenForm laden lässt, ist Ihnen sicher schon untergekommen. Aber für alle anderen Access-Objekte gibt es ebenfalls äquivalente Methoden, deren wesentliche Vertreter Sie in Listing 1 finden. Interessant sind dabei vor allem die Parameter, welche das Laden steuern.<\/p>\n Listing 1: Die relevanten öffnen-Methoden des DoCmd-Objekts<\/p>\n OpenModule<\/b> ist für den Laufzeitbetrieb einer Datenbank überflüssig. Die Anweisung öffnet ein VBA-Modul, das Sie namentlich angeben. Zusätzlich kann mit weiterem Parameter auch eine Prozedur des Moduls spezifiziert werden, auf die beim öffnen der Cursor positioniert wird. Die Beispieldatenbanken von Access Basics<\/b> verwenden den Befehl etwa hin und wieder im Intro-Formular, um beim Start sogleich ein Modul und damit den VBA-Editor zu öffnen, welches von besonderem Interesse sein kann.<\/p>\n OpenQuery<\/b> öffnet eine Abfrage. über den View-Parameter <\/b>steuern Sie dabei, in welcher Gestalt die Abfrage erscheinen soll. Möchten Sie die normale Datenblattansicht, so setzen Sie acViewNormal<\/b> ein. Für den Entwurfsmodus steht acViewDesign<\/b>. Weniger bekannt ist, dass acViewPreview<\/b> die Abfrage in die Seitenansicht für den Druck bringt, womit etwa kontrolliert werden kann, ob das Ergebnis auf eine Seite passt. Diese View<\/b>-Parameter teilt sich die Anweisung mit den anderen öffnungsmethoden. Nur sind bei Abfragen die Konstanten acViewReport<\/b> (Berichtsansicht) und acViewLayout<\/b> (Layout-Ansicht) nicht erlaubt und führen zum Fehler.<\/p>\n Handelt es sich bei der Abfrage um eine Aktionsabfrage, so hat der View-Parameter keinerlei Bedeutung, denn ein Fenster öffnet sich hier nicht.<\/p>\n Interessant ist der letzte optionale Parameter DataMode<\/b>, mit dem Sie bestimmen können, ob das Abfrageergebnis editierbar sein soll. acReadOnly<\/b> führt nämlich zu einer schreibgeschützten Ansicht, während ein acEdit<\/b> (Vorgabe) die Datensätze bearbeitbar macht, falls die Abfrage selbst das unterstützt.<\/p>\n Die gleichen Parameter, wie für OpenQuery<\/b>, finden Sie auch bei der Anweisung OpenTable<\/b>, mit der Sie eine Tabelle öffnen. Auch hier können Sie über DataMode<\/b> entscheiden, ob die Ansicht schreibgeschützt oder editierbar sein soll.<\/p>\n Umfangreich sind die Parameter, die die zum Laden eines Formulars dienende Anweisung OpenForm erwartet. Bis auf den Namen des Formulars sind diese allerdings alle optional und deshalb auch nicht so bekannt.<\/p>\n Die Ansichtsart steuern Sie wie bei OpenQuery<\/b> und OpenTable<\/b>, nur, dass nun auch acViewLayout<\/b> gestattet ist. Standardmäßig ist acViewNormal<\/b> voreingestellt. Als zweiten Parameter, im Listing nicht verwendet, können Sie den Namen einer Filterabfrage angeben, die die angezeigte Datensatzmenge einschränkt. Dieses Verfahren ist weitgehend obsolet. Verwenden Sie besser den dritten Parameter für die WhereCondition<\/b>. Hier können Sie einen SQL-Ausdruck einsetzen, der als Filter dient, etwa:<\/p>\n Das führte dazu, dass nur Datensätze im Formular erschienen, die im Nachnamenfeld mit H<\/b> beginnen. Die Verwendung dieses Parameters entspricht damit dem Setzen der Formulareigenschaft Filter<\/b> inklusive dem Aktivieren von FilterOn<\/b>.<\/p>\n Auch beim Formular kann das Editieren ausgeschaltet werden, indem Sie die Konstante acFormReadOnly<\/b> für DataMode<\/b> einsetzen. Und schließlich lässt sich über WindowMode<\/b> angeben, wie das Formular geladen wird. Der Standard ist acWindowNormal<\/b>. Nehmen Sie acIcon<\/b>, so öffnet es sich minimiert. Mit acHidden<\/b> bleibt es sogar unsichtbar. Schließen können Sie es dann nur noch über VBA. Am interessantesten aber ist der über acDialog<\/b> festgelegte Dialog-Modus. In diesem zeigt sich das Formular auf den ersten Blick in normalem Gewand. Tatsächlich aber ist es modal<\/b>, was bedeutet, dass der Rest der Access-Anwendung gesperrt ist. Nur das geöffnete Dialogformular lässt sich bearbeiten. Zudem stoppt auch VBA nach dem Ausführen der aufrufenden Code-Zeile. Erst nach dem Schließen fährt es mit den weiteren Zeilen der Prozedur fort. Man kann sich dies etwa zunutze machen, um Eingaben im Formular auszulesen. Denn auch dann, wenn das Formular über die Visible<\/b>-Eigenschaft im Formular-Code unsichtbar gemacht wird, übergibt VBA die Kontrolle an die aufrufende Prozedur. Nun könnte diese etwa Felder des Formulars auslesen, da es inzwischen zwar noch existiert, aber nicht mehr sichtbar ist. Das bedeutet allerdings auch, dass die Routine selbst das Formular über eine Close-Anweisung schließt, denn sonst irrt es auf Ewigkeiten im Speicher umher.<\/p>\n Als letzten Parameter finden Sie für OpenArgs<\/b> im Listing den String „TEST1“<\/b>. Hier können Sie beliebige Daten, also auch Zahlenvariablen oder Objekte einsetzen. Das hat auf die Gestalt des geladenen Formulars keinen Einfluss. über dessen Eigenschaft OpenArgs<\/b> kann aber an beliebiger Stelle im Formular-Code auf diese Angabe Bezug genommen werden. So etwa im Beim Laden<\/b>-Ereignis des Formulars:<\/p>\n Hier würde TEST1<\/b> in einem Meldungsfenster erscheinen, sobald das Formular gestartet wurde.<\/p>\n Die Parameter für die Anweisung OpenReport<\/b> zum Laden eines Berichts gleichen jenen von OpenForm<\/b>. Hier ist zusätzlich die Ansichtsart acViewReport<\/b> (Berichtsansicht) möglich. Ansonsten lassen sich hier ebenfalls Filter setzen, der WindowMode<\/b> einstellen und OpenArgs<\/b> übergeben. Es ist jedoch eine Besonderheit zu beachten: acViewNormal<\/b> öffnet den Bericht nicht etwa in der normalen Ansicht, sondern schickt ihn zum Drucker! Wenn Sie also bei OpenReport<\/b> lediglich den Namen des Berichts angeben und auf weitere Parameter verzichten, so wundern Sie sich nicht, dass scheinbar nichts passiert! Erst im Taskbar von Windows stellen Sie dann fest, dass ein Drucker in Aktion gesetzt wurde. Für die normale Ansicht unter Access setzten Sie daher acViewPreview<\/b> ein.<\/p>\n über VBA mit DoCmd<\/b> geöffnete Objekte schließen Sie mit einer weiteren DoCmd<\/b>-Anweisung:<\/p>\n Ist ein Formular erst über OpenForm<\/b> geöffnet, dann können Sie es über zahlreiche DoCmd<\/b>-Methoden steuern. Oder genauer gesagt: dessen Datensätze steuern.<\/p>\n Listing 2 zeigt eine gekürzte Version der Prozedur, welche Sie in der Beispieldatenbank finden. In der Originalversion ist nach jeder DoCmd<\/b>-Zeile eine Msgbox<\/b> eingebaut, die ausgibt, was gerade vonstattenging. Ohne diese Meldungsfenster würde der Code der Prozedur ja in Sekundenbruchteilen durchlaufen sein, ohne dass Sie die Auswirkungen der Anweisungen begutachten könnten.<\/p>\n Listing 2: DoCmd-Anweisungen für verschiedene datensatzbezogene Aktionen<\/p>\n SelectObject<\/b> setzte den Fokus auf ein Access-Objekt und\/oder markiert dieses. In unserem Fall handelt es sich um das Formular frmAdressen<\/b>. Sinn der Angelegenheit ist es, das entsprechende Objekt zu aktivieren. Denn die folgenden Anweisungen wirken immer auf das geöffnete aktive Objekt. Sind etwa mehrere Formulare gleichzeitig geöffnet, so steuern Sie mit diesem Befehl, welches den Fokus bekommen soll.<\/p>\n Nach dem Aktivieren kann per ApplyFilter<\/b> eine Filterbedingung auf die angezeigten Datensätze angewandt werden. Das entspricht dem Vorgang, wenn Sie manuell über das Menüband oder über einen Spaltenkopf in Datenblattansicht einen Filter bestimmen. Hier werden nur jene Datensätze angezeigt, die im Nachnamefeld mit Wag<\/b> beginnen. In der Navigationsleiste wird das deutlich, weil sich hier die Zahl der Datensätze verringert hat und vom Ausdruck (Gefiltert)<\/b> begleitet wird. Statt ApplyFilter<\/b> können Sie auch die Anweisung SetFilter<\/b> mit gleicher Syntax benutzen. Der Unterschied besteht darin, dass beim Schließen des Formulars und gleichzeitigem Speichern der Filterausdruck dann in der Eigenschaft Filter<\/b> verewigt bleibt.<\/p>\n Einen gesetzten Filter entfernen Sie einfach wieder mit einem Aufruf von DoCmd.ShowAllRecords<\/b>.<\/p>\n GotoRecord<\/b> erlaubt das Springen zu einem bestimmten Datensatz. Hier kann dezidiert angegeben werden, welches Formular zu steuern ist. Für den letzten Parameter gibt es verschiedene Steuerkonstanten. acLast<\/b> springt zum letzten Datensatz, acFirst<\/b> zum ersten, und so weiter. Interessanter ist da schon acGoto<\/b>. In diesem Fall muss noch ein weiterer Parameter angehängt werden, der den Offset zum aktuellen Datensatz angibt. Möchten Sie etwa zum genau fünften Datensatz des Formulars springen, so verwenden Sie zwei Zeilen:<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>Application.RunCommand acCmd-Konstante\r\nApplication.DoCmd.
RunCommand acCmdDocMaximize<\/pre>\n
DoCmd.Maximize<\/pre>\n
DoCmd.Close acForm, _\r\n \"frmAdressen\", acSaveYes<\/pre>\n
Objekte öffnen<\/h2>\n
Sub <\/span>TestOpenObjects()\r\n DoCmd.OpenModule \"mdlDoCommands\", \"TestOpenObjects\"\r\n Msg \"Modul und Prozedur geöffnet\"\r\n DoCmd.OpenQuery \"qryAdressenG\", acViewNormal, acReadOnly\r\n Msg \"Abfrage geöffnet\"\r\n DoCmd.OpenReport \"rptAdressen\", acViewPreview, \"Vorname Like 'B*'\", acDialog\r\n Msg \"Bericht geöffnet\"\r\n DoCmd.OpenForm \"frmAdressen\", , , , acFormReadOnly, acDialog, \"Test1\"\r\n Msg \"Formular war geöffnet\"\r\n DoCmd.OpenTable \"tblLaender\", acViewNormal, acReadOnly\r\n Msg \"Tabelle geöffnet\"\r\nEnd Sub<\/span><\/pre>\n..., \"Nachname LIKE 'H*''<\/pre>\n
Sub <\/span>Form_Load()\r\n Msgbox Me.OpenArgs\r\nEnd Sub<\/span><\/pre>\nDoCmd.Close acForm, \"frmAdressen\"\r\nDoCmd.Close acModule, \"mdlDoCommands\"\r\nDoCmd.Close acQuery, \"qryAdressenG\"<\/pre>\n
Formular- und<\/h2>\n
Datensatzsteuerung<\/h2>\n
Sub <\/span>TestFormObject()\r\n DoCmd.OpenForm \"frmAdressen\"\r\n DoEvents\r\n DoCmd.SelectObject acForm, \"frmAdressen\"\r\n DoCmd.ApplyFilter , \"Nachname LIKE 'Wag*'\"\r\n' DoCmd.SetFilter , \"Nachname LIKE 'Wag*'\",\"\r\n DoCmd.GoToRecord acDataForm, \"frmAdressen\", acLast\r\n DoCmd.FindRecord \"Gudrun\", acEntire, False, acSearchAll, False, acAll, True<\/span>\r\n DoCmd.SetOrderBy \"Vorname\", \"sfmKinder\"\r\n DoCmd.FindRecord \"Gisela\", acEntire, False, acSearchAll, False, acAll, True<\/span>\r\n DoCmd.FindNext<\/span>\r\n DoCmd.SetProperty \"txtNachname\", acPropertyForeColor, RGB<\/span>(64, 64, 255)\r\n DoCmd.Requery \"txtVorname\"\r\n DoCmd.ShowAllRecords\r\n DoCmd.Echo False<\/span>\r\n DoCmd.GoToRecord acDataForm, \"frmAdressen\", acLast\r\n DoCmd.GoToRecord acDataForm, \"frmAdressen\", acFirst\r\n DoCmd.Echo True<\/span>\r\n DoCmd.SearchForRecord acDataForm, \"frmAdressen\", acFirst, \"Nachname='Hückmann'\"\r\n If <\/span>MsgBox<\/span>(\"Formular schließen\", vbYesNo) = vbYes Then<\/span>\r\n DoCmd.Save acForm, \"frmAdressen\"\r\n DoCmd.Close acForm, \"frmAdressen\", acSaveYes\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nDoCmd.GoToRecord , , acFirst\r\nDoCmd.GoToRecord , , acGoto, 4<\/pre>\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