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.
Bei Ohne Daten: öffnen leerer Berichte vermeiden
Das Ereignis Bei Ohne Daten wird ausgelöst, wenn die Anzahl Datensätze in der Da-ten-satz-quelle des Berichts 0 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.
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-An-wei-sung mit einem entsprechenden Kriterium ein:
Private Sub cmdBerichtOhneDatenOeffnen_Click() DoCmd.OpenReport "rptBerichtOhneDaten", _ View:=acViewPreview, WhereCondition:="1=2" End Sub
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.
Bild 1: Ein Bericht ohne Daten zeigt nur die Spaltenüberschriften an.
Leeren Bericht verhindern
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-Ereignis des Berichts anlegen.
Diese soll eine Meldung anzeigen und die Ausgabe abbrechen:
Private Sub Report_NoData(Cancel As Integer) MsgBox "Der Bericht enthält keine Daten", _ vbExclamation Or vbOKOnly, "Keine Daten" Cancel = True End Sub
Der erste Teil des Plans funktioniert sogar – der Bericht wird gar nicht erst geöffnet, stattdessen erscheint die gewünschte Meldung (s. Bild 2).
Bild 2: Ist der Bericht leer, erscheint diese Meldung.
Nur für Abonnenten
Ab hier wird’s wirklich spannend – der Rest ist exklusiv für Abonnenten.
Mit dem Abo von Access im Unternehmen bekommst du den kompletten Artikel – inklusive vollständigem Code, Beispieldatenbank und Schritt-für-Schritt-Erklärung.
So sparst du dir stundenlanges Herumprobieren, vermeidest teure Fehler in deiner Access-Anwendung und kannst Lösungen direkt in deinem Unternehmen einsetzen, statt nur darüber zu lesen.
Teste Access im Unternehmen jetzt 4 Wochen lang kostenlos: Voller Zugriff auf alle Artikel, Downloads und Beispieldatenbanken. Kein Risiko – wenn es für dich nicht passt, kündigst du einfach innerhalb der ersten vier Wochen.
Bereits Abonnent? Hier einloggen
Kostenlos & unverbindlich
Oder hast Du eine konkrete Frage zu Deiner eigenen Access-Anwendung?
Vielleicht stellt Deine Anwendung Dich vor eine Herausforderung, zu der Du bisher keine Lösung findest. Schlechte Performance, kein ausreichender Zugriffsschutz, Du bist unsicher über Dein Datenmodell oder Dein Code liefert unerklärliche Fehler?
In unserem kostenlosen Access-Audit schaut sich André Minhorst persönlich gemeinsam mit Dir Deine Lösung per Zoom an – und zeigt Dir, wo Datenmodell, VBA-Code, Ergonomie und Sicherheit Optimierungspotenzial bieten.
Jetzt kostenloses Access-Audit anfordern →