Microsoft Access Programmierrezepte

R9.29 Keine leeren Berichte drucken

Aufgabe

Es soll verhindert werden, dass »leere« Berichte, d.h. solche ohne Detaildaten, gedruckt werden.

Lösung

Verwenden Sie das Report_NoData-Ereignis, um die Anzeige bzw. den Druck des Berichts zu verhindern.

Quelltext

Die MsgBox-Funktion ermöglicht uns eine kurze Abfrage:

Private Sub Report_NoData(Cancel As Integer)
   Cancel = MsgBox("Der Bericht ist leer! Trotzdem drucken ?", vbYesNo) = vbNo
End Sub

Hinweis

Mit dem Parameter Cancel bestimmen Sie, ob die Anzeige bzw. der Druck abgebrochen werden soll.