<\/p>\n
Neben den verschiedenen Bereichen und Steuerelementen liefern Berichte auch eine Reihe von Ereigniseigenschaften, für die Sie wie bei Formularen Ereignisprozeduren hinterlegen können. Ein interessantes Ereignis heißt „Bei ohne Daten“. Es wird ausgelöst, wenn die Datenherkunft des Berichts keinerlei Datensätze beinhaltet. Ist dies der Fall, wird üblicherweise der Bericht ohne Daten geöffnet. Das möchten Sie aber vielleicht verhindern – und zwar mit Hilfe der hier vorgestellten Ereignisprozedur.<\/b><\/p>\nBei Ohne Daten: öffnen leerer Berichte vermeiden<\/h2>\n
Das Ereignis Bei Ohne Daten <\/b>wird ausgelöst, wenn die Anzahl Datensätze in der Da-ten-satz-quelle des Berichts 0 <\/b>ist. Damit ist die entsprechende Ereignisprozedur prädes-tiniert, Auf-rufe der Seiten- und der Berichtsansicht zu unterbinden, wenn die Datenherkunft gar keine Daten bereitstellt.<\/p>\n
Die Benutzer werden es Ihnen danken, wenn nicht hin und wieder Aus-dru-cke von eigentlich leeren Berichten vorkommen. Zum Simulieren eines leeren Berichts setzen Sie einfach eine DoCmd.OpenReport<\/b>-An-wei-sung mit einem entsprechenden Kriterium ein:<\/p>\n Der Aufruf führt zur Anzeige eines bis auf die Bezeichnungsfelder leeren Berichts (s. Bild 1). Das ist noch zu verschmerzen. Unangenehmer wird es, wenn diese „Blanko“-Variante des Be-richts unnötig ausgedruckt wird.<\/p>\n Bild 1: Ein Bericht ohne Daten zeigt nur die Spaltenüberschriften an.<\/span><\/b><\/p>\n Den Druck eines leeren Berichts und die Anzeige einer leeren Vorschau können Sie abfangen, indem Sie eine Prozedur für das Bei Ohne Daten<\/b>-Ereignis des Berichts anlegen.<\/p>\n <\/p>\n Diese soll eine Meldung anzeigen und die Ausgabe abbrechen:<\/p>\n Der erste Teil des Plans funktioniert sogar – der Bericht wird gar nicht erst geöffnet, stattdessen erscheint die gewünschte Meldung (s. Bild 2).<\/p>\n Bild 2: Ist der Bericht leer, erscheint diese Meldung.<\/span><\/b><\/p>\n Leider liefert ein abgebrochener Aufruf der DoCmd.OpenReport<\/b>-Methode einen Lauf-zeit-feh-ler (s. Bild 3). Diesen müssen Sie auch noch behandeln, indem Sie den Aufruf in eine geeignete Feh-lerbehandlung einbetten.<\/p>\n Bild 3: Fehlermeldung beim Abbruch des öffnungsvorgangs eines Berichts<\/span><\/b><\/p>\n Dazu fügen Sie der Prozedur, die den Bericht aufruft, eine Fehlerbehandlung wie in Listing 1 hinzu. Die Fehlerbehandlung wird vor dem Aufruf der Methode DoCmd.OpenReport <\/b>deaktiviert. Dadurch wird kein Laufzeitfehler ausgelöst, wenn der Bericht wegen einer leeren Datenherkunft wieder geschlossen wird. Wir speichern die Fehlernummer in einer Long<\/b>-Variablen namens lngError <\/b>und analysieren diese anschließend. Im Falle der Werte 0 <\/b>(kein Fehler) oder 2501 <\/b>(öffnen des Berichts abgebrochen) geschieht nichts, anderenfalls soll die Fehlermeldung für den aufgetretenen Fehler angezeigt werden.<\/p>\nPrivate Sub <\/span>cmdBerichtOhneDatenOeffnen_Click()\r\n DoCmd.OpenReport \"rptBerichtOhneDaten\", _\r\n View:=acViewPreview, WhereCondition:=\"1=2\"\r\nEnd Sub<\/span><\/pre>\n![\"Ein](\"..\/fileadmin\/_temp_\/2016_03\/pic_1038_001.png\")
<\/p>\nLeeren Bericht verhindern<\/h2>\n
Private Sub <\/span>Report_NoData(Cancel As Integer<\/span>)\r\n MsgBox<\/span> \"Der Bericht enthält keine Daten\", _\r\n vbExclamation Or vbOKOnly, \"Keine Daten\"\r\n Cancel = True<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Ist](\"..\/fileadmin\/_temp_\/2016_03\/pic_1038_002.png\")
<\/p>\nUnterbinden der Ausgabe eines leeren Berichts<\/h2>\n
![\"Fehlermeldung](\"..\/fileadmin\/_temp_\/2016_03\/pic_1038_003.png\")
<\/p>\nPrivate Sub <\/span>cmdBerichtOhneDatenNichtOeffnen_Click()\r\n Dim <\/span>lngError As Long<\/span>\r\n On Error Resume Next<\/span>\r\n DoCmd.OpenReport \"rptBerichtNichtOhneDaten\", View:=acViewPreview, WhereCondition:=\"1=2\"\r\n lngError = Err.Number\r\n On Error GoTo<\/span> 0\r\n Select Case lngError\r\n Case <\/span>2501, 0\r\n Case Else<\/span>\r\n MsgBox<\/span> \"Fehler in ''cmdBerichtOhneDatenNichtOeffnen_Click'': \" & lngError\r\n End Select<\/span>\r\nEnd Sub<\/span><\/pre>\n