![\"Beispieltabelle](\"..\/tl_files\/images\/pic_240_009.png\")
<\/a><\/p>\nBild 1: Beispieltabelle für Testzwecke<\/p>\n
Wenn Sie nun beispielsweise einen neuen Datensatz in der Tabelle anlegen möchten, benötigen Sie ein benanntes Makro für diese Tabelle. Dieses legen Sie bei in der Datenblattansicht geöffneter Tabelle über den Ribbonbefehl Ta-bel-le|Be-nannte Makros|Be-nanntes Ma-kro|Be-nanntes Makro erstellen<\/b> an.<\/p>\n
In diesem Makro fügen Sie nun zunächst den Befehl Datensatz erstellen in <\/b>ein und wählen die Tabelle tblKunden <\/b>als Ziel der Aktion aus.<\/p>\n
Dieser Aktion können Sie weitere Befehle unterordnen, und zwar Gruppieren<\/b>, Kommentar<\/b>, Wenn<\/b>, AbbrechenDatensatzänderung<\/b>, FestlegenFeld <\/b>und FestlegenLokaleVar<\/b>.<\/p>\n
In diesem Fall wollen wir die drei Felder AnredeID<\/b>, Vorname <\/b>und Nachname <\/b>mit den entsprechenden Werten füllen. Dies erledigen wir, indem wir drei Mal die Makroaktion FestlegenFeld <\/b>hinzufügen, unter Name <\/b>das Zielfeld auswählen und unter Wert <\/b>den einzutragenden Wert angeben (siehe Bild 2).<\/p>\n
Bild 2: Datenmakro zum Anlegen eines neuen Datensatzes in der Tabelle tblKunden<\/p>\n Dabei ist zu beachten, dass Sie Literale in Anführungszeichen einfassen. Anderenfalls sucht Access nach einem entsprechenden Ausdruck und löst einen Fehler aus.<\/p>\n Dieses Makro soll nun also einen Datensatz zur Tabelle tblKunden <\/b>hinzufügen. Aber wie rufen wir das Makro auf Dazu benötigen wir ein weiteres Makro, dem wir die Makroaktion AusführenDatenmakro <\/b>zuweisen. Diese erwartet als Parameter den Namen des aufzurufenden Datenmakros mit führendem Tabellennamen, also hier tblKunden.dmkKundeAnlegen <\/b>(siehe Bild 3). Ein erster Testaufruf des Makros makKundeAnlegen <\/b>bringt das gewünschte Ergebnis – der Datensatz wird angelegt.<\/p>\n Bild 3: Dieses Makro ruft das Datenmakro zum Anlegen eines Kundendatensatzes auf.<\/p>\n Als Nächstes wollen wir das doch recht statische Makro etwas dynamischer gestalten – und zwar, indem wir die in die Tabelle tblKunden <\/b>einzufügenden Werte per Parameter übergeben.<\/p>\n Dazu erstellen wir ein weiteres benanntes Makro für die Tabelle tblKunden<\/b>. Diesmal klicken wir jedoch zunächst drei Mal auf den Text Parameter erstellen <\/b>oben rechts im Makro-Entwurf und erzeugen so drei Zeilen zur Eingabe von Parametern. Diese nennen wir prmAnredeID<\/b>, prmVorname <\/b>und prmNachname<\/b>.<\/p>\n Nun fügen Sie wieder die Makroaktion Datensatz erstellen in <\/b>hinzu, legen die Tabelle tblKunden <\/b>als Ziel fest und tragen unterhalb dieser Makroaktion drei Mal den Befehl FestlegenFeld <\/b>ein. Die Feldnamen lauten wieder wie im vorherigen Beispiel. Allerdings geben wir diesmal nicht direkt die einzufügenden Werte an, sondern die Namen der weiter oben definierten Parameter – also etwa den Parameter prmAnredeID <\/b>für das Feld AnredeID<\/b>. Die Parameter lassen sich bequem per IntelliSense aus der Liste der verfügbaren Elemente auswählen (siehe Bild 4).<\/p>\n Bild 4: Benanntes Makro mit Parametern<\/p>\n Nun folgt der zweite Teil: die Definition des Makros, mit dem wir das Datenmakro aufrufen und diesem die Werte für die Parameter übergeben.<\/p>\n Dazu erstellen Sie ein neues Makro namens macKundeAnlegenMitParameter <\/b>und fügen diesem wieder die Makroaktion AusführenDatenmakro <\/b>hinzu (siehe Bild 5). Diesmal wählen Sie das Makro tblKunden.dmkKundeAnlegenMitParameter <\/b>für den Parameter Makroname <\/b>aus. Nach der Auswahl des auszuführenden Makros erscheinen gleich die drei für das benannte Makro definierten Parameter. Hier geben wir wieder die gewünschten Werte ein (Anführungszeichen bei Zeichenketten nicht vergessen) und führen das Makro dann aus. Es funktioniert – auch dies legt den Datensatz mit den angegebenen Daten an.<\/p>\n Bild 5: Aufruf eines benannten Makros mit Parametern<\/p>\n Nun möchten wir aber vielleicht das benannte Makro per VBA aufrufen. Wie übergeben wir die notwendigen Parameter mit der Methode RunDataMacro<\/b> Der Versuch, dieses einfach ohne Angabe von Parametern aufzurufen, führt direkt zu einem Laufzeitfehler (siehe Bild 6).<\/p>\n Bild 6: Aufruf eines Datenmakros ohne Angabe der Parameter<\/p>\n Die Antwort lautet: Wir übergeben die Parameter gar nicht mit dieser Methode. Stattdessen legen wir die Parameter vorher fest, und zwar mit einer eigenen DoCmd<\/b>-Methode. Das sieht dann für dieses Beispiel wie in Bild 7 aus. Wichtig ist an dieser Stelle, dass Sie Zeichenketten nicht nur in Anführungszeichen, sondern zusätzlich in Hochkommata einfassen (oder zusätzliche doppelte Anführungszeichen: „““Maria“““<\/b>).<\/p>\n Bild 7: Vorherige Angabe der Parameter<\/p>\n Nach dem Aufruf der drei DoCmd.SetParameter<\/b>-Anweisungen sowie der RunDataMacro<\/b>-Methode wird der neue Datensatz in der Tabelle tblKunden <\/b>angelegt. Anzumerken ist noch, dass die mit SetParameter <\/b>gesetzten Parameter mit dem Aufruf der RunDataMacro<\/b>-Methode geleert werden, sodass ein erneuter Aufruf des benannten Makros einen Fehler auslöst.<\/p>\n Nun erhöhen wir den Schwierigkeitsgrad: Ein neues benanntes Makro soll nur die Anrede, aber nicht den Primärschlüsselwert des entsprechenden Datensatzes in der Tabelle tblAnreden <\/b>als Parameter erhalten. Das heißt, dass das benannte Makro selbst die AnredeID <\/b>für die angegebene Anrede ermitteln muss.<\/p>\n Das ist eigentlich recht einfach – wenn man weiß, auf welche Kleinigkeiten man achten muss. In diesem Fall erstellen Sie wiederum ein neues benanntes Makro für die Tabelle tblKunden<\/b>. Diesmal geben Sie statt des Parameters prmAnredeID <\/b>den Parameter prmAnrede <\/b>an – es soll also nicht mehr direkt die AnredeID <\/b>übergeben werden, sondern die Bezeichnung der Anrede.<\/p>\n Um die AnredeID <\/b>aus der Tabelle tblAnreden <\/b>zu ermitteln, gehen wir wie folgt vor: Zunächst legen Sie im benannten Makro dmcKundeAnlegenMitAnrede <\/b>die Makroaktion Datensatz nachschlagen in <\/b>an. Dieser weisen Sie als Quelle die Tabelle tblAnreden <\/b>zu. Die erste Hürde, die den meisten etwas Kopfzerbrechen bereiten dürfte, ist die Formulierung der Bedingung, die genau den Datensatz mit der angegebenen Anrede liefert. Intuitiv würde man hier einen Ausdruck wie den folgenden unterbringen:<\/p>\n Dieser Versuch misslingt jedoch. An dieser Stelle ist dann guter Rat teuer. Wie soll ich ohne meine gewohnten VBA-Werkzeuge mal eben debuggen und beispielsweise herausfinden, welches Ergebnis mir der hier verwendete Ausdruck liefert Aber das ist kein Problem: Es gibt ja die Makroaktion ProtokollierenEreignis<\/b>, mit dem wir einen beliebigen Ausdruck in die Tabelle USysApplicationLog <\/b>eintragen können. Also verwenden wir diesen wie in Bild 8 und lassen uns das Ergebnis des ermittelten Ausdrucks in dieser Tabelle ausgeben.<\/p>\n Bild 8: Benanntes Makro inklusive Ermittlung von Lookup-Werten<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span><\/a><\/p>\n<\/a><\/p>\nDatenmakro mit Parametern<\/h2>\n
<\/a><\/p>\n<\/a><\/p>\nParameter per VBA übergeben<\/h2>\n
<\/a><\/p>\n<\/a><\/p>\nDLookup im Makro<\/h2>\n
=\"Anrede = '\" & prmAnrede & \"'\"<\/pre>\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