<\/p>\n
Der Access-Poweruser öffnet seine Berichte einfach durch einen Doppelklick auf den jeweiligen Eintrag im Navigationsbereich. Wenn er den Bericht nach bestimmten Daten filtern möchte, kann er dies durch das Definieren von Parametern in der Datensatzquelle des Berichts erledigen und die Parameter beim Öffnen eingeben. Einen Schritt weiter gehen wir, wenn wir die Kriterien für den Bericht per Formular festlegen und diese in der Abfrage des Berichts referenzieren. Das ist aber immer noch recht unflexibel. Wenn der Bericht nach beliebigen Kriterien gefiltert werden und dieser über eine Schaltfläche geöffnet werden soll, die der Benutzer über ein Formular definiert, können wir dazu VBA nutzen. Wie das gelingt, zeigen wir in den folgenden Abschnitten.<\/p>\n
Die Beispiele dieses Artikels findest Du in der Datenbank BerichteBasics_BerichtPerVBAOeffnen.accdb<\/b>. Als Datensatzquelle verwenden wir die Tabelle tblKunden <\/b>und darauf basierende Abfragen.<\/p>\n
Als Grundlage für die Berichte dient der im Artikel Berichte [basics]: Grundlagen <\/b>(www.access-basics.de\/526<\/b>) erstellte Bericht rptKunden<\/b> (siehe Bild 1).<\/p>\n
Bild 1: Bericht zur Anzeige von Adressen<\/p>\n Dieser verwendet in der aktuellen Fassung die Tabelle tblKunden <\/b>als Datensatzquelle.<\/p>\n Um diesen Bericht auf einfache Weise anzuzeigen, klicken wir doppelt auf den Namen des Berichts im Navigationsbereich von Access. Dies öffnet den Bericht allerdings in der Berichtsansicht. Das ist jedoch nicht die Ansicht, in der wir diesen ausdrucken oder als PDF veröffentlichen können. Um dies zu erreichen, benötigen wir bereits das Kontextmenü des Berichts im Navigationsbereich.<\/p>\n Aus diesem wählen wir den Eintrag Seitenansicht <\/b>aus (siehe Bild 2). Eine Möglichkeit zum Filtern erhalten wir so allerdings nicht – wenn wir also nur die Adressen von bestimmten Kunden ausgeben wollen, müssen wir eine alternative Möglichkeit zum Öffnen des Berichts nutzen. Diese schauen wir uns nun im Detail an.<\/p>\n Bild 2: Öffnen des Berichts in der Seitenansicht<\/p>\n Wir haben uns im Artikel Formulare [basics]: Forms öffnen mit DoCmd.OpenForm <\/b>(www.access-basics.de\/642<\/b>) bereits angesehen, wie wir Formulare per VBA öffnen können.<\/p>\n Dazu haben wir die OpenForm<\/b>-Methode der DoCmd<\/b>-Klasse genutzt. Analog zum Öffnen von Formularen mit OpenForm <\/b>gibt es für Berichte die Methode OpenReport<\/b>.<\/p>\n Um einen Bericht per VBA mit dieser Methode zu öffnen, nutzen wir zunächst den Direktbereich des VBA-Editors. Hier geben wir die folgende Anweisung ein:<\/p>\n Dies liefert uns per IntelliSense eine Übersicht der Parameter für diesen Befehl (siehe Bild 3).<\/p>\n Bild 3: Eingeben des Befehls DoCmd.OpenForm<\/p>\n Die einfachste Methode ist allein die Angabe des Namens des zu öffnenden Berichts:<\/p>\n Dies zeigt den Bericht allerdings nicht an, sondern schickt diesen direkt zum Standarddrucker. Wenn man den Bericht schnell drucken möchte, kann man diesen Befehl nutzen.<\/p>\n Aber meist will man diesen ja erst einmal zur Ansicht öffnen, um den Inhalt zu prüfen und diesen erst danach drucken oder als PDF speichern.<\/p>\n Schauen wir uns die Parameter an, sehen wir schnell, dass schon der zweite Parameter Abhilfe schafft. Er heißt View <\/b>und nimmt einen der folgenden Werte entgegen:<\/p>\n Für uns ist acViewPreview <\/b>die gesuchte Einstellung, wenn wir den Bericht in der Vorschau anzeigen wollen. Mit dem folgenden Befehl öffnen wir den Bericht in der Seitenansicht:<\/p>\n Den dritten Parameter Filtername <\/b>lassen wir erst einmal außen vor und schauen und direkt den vierten Parameter WhereCondition <\/b>an. Mit diesem können wir eine Bedingung für die anzuzeigenden Daten übergeben. Dazu fügen wir nach dem Komma hinter dem Parameter für die Ansicht einfach ein weiteres Komma ein, was bedeutet, dass wir den Parameter Filtername<\/b> nicht verwenden. Es gibt noch eine alternative Schreibweise, die wir uns später ansehen.<\/p>\n Dabei kann es sich um eine einzelne Bedingung für nur ein Feld handeln, wir können aber auch mehrere Bedingungen mit den Schlüsselwörtern OR <\/b>oder AND <\/b>übergeben und durch das Setzen von Klammerpaaren angeben, in welcher Reihenfolge diese Bedingungen ausgeführt werden sollen.<\/p>\n Wir probieren erstmal eine einfache Bedingung zum Filtern nach einem der Textfelder der Datensatzquelle des Berichts aus. Zum Beispiel wollen wir im Bericht nur diejenigen Kunden anzeigen, die aus der Schweiz kommen. Die entsprechend Bedingung lautet, wenn wir diesen in einer Abfrage eingeben, wie folgt:<\/p>\n Allerdings müssen wir die Bedingung, wenn wir sie als Parameter der DoCmd.OpenReport<\/b>-Anweisung übergeben, wiederum in Anführungszeichen einfassen. Damit VBA die Anführungszeichen innerhalb der Bedingung als solche erkennen kann, müssen wir diese besonders kennzeichnen, denn sonst würde VBA das nächste einzelne Anführungszeichen bereits als das Ende des Bedingungsausdrucks interpretieren. Der folgende Wert funktioniert also nicht als Parameter:<\/p>\n Im Gegenteil: Wir erhalten sogar eine Fehlermeldung, wie Bild 4 zeigt. Dazu gibt es verschiedene alternative Schreibweisen:<\/p>\n Bild 4: Fehler beim Setzen falscher Anführungszeichen<\/p>\n Die letzte Variante mit der Funktion Chr(34)<\/b> ist umständlich und wird daher kaum genutzt:<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>![\"Bericht](\"..\/tl_files\/images\/pic_695_001.png\")
<\/a><\/p>\nBericht über die Benutzeroberfläche öffnen<\/h2>\n
<\/a><\/p>\nÖffnen eines Berichts per VBA<\/h2>\n
DoCmd.OpenReport<\/pre>\n
<\/a><\/p>\nDoCmd.OpenReport \"rptKunden\"<\/pre>\n
Ansicht des Berichts beim Öffnen einstellen<\/h2>\n
\n
DoCmd.OpenReport \"rptKunden\", acViewPreview<\/pre>\n
Bericht direkt beim Öffnen filtern<\/h2>\n
Filtern nach Texten<\/h2>\n
Ort = \"Schweiz\"<\/pre>\n
DoCmd.OpenReport \"rptKunden\", acViewPreview, , \"Land = \"Schweiz\"\"<\/pre>\n
<\/a><\/p>\n\n
DoCmd.OpenReport \"rptKunden\", acViewPreview, , _\r\n \"Land = \" & Chr(34) & \"Schweiz\" & Chr(34)<\/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