AC2000:Fehlermeldung im Bericht unterdrücken

Computer: Software & Programmierung Microsoft Access
#1

Hallo zusammen,

in meinen Berichten habe ich eine Prozedur eingefügt, um bei fehlenden Daten diesen Bericht nicht anzeigen zu lassen,
d.h. „Bei ohne Daten“ habe ich diesen Code eingefügt:

Private Sub Report\_NoData(Cancel As Integer)
 MsgBox "Es sind keine Daten zum Erstellen eines Berichts vorhanden.", vbExclamation, "Keine Datensätze"
 Cancel = True
End Sub

Leider erscheint trotzdem ein VB-Fehlerfenster mit der Meldung:

Laufzeitfehler '2501'

Die Aktion OpenReport wurde abgebrochen

 Beenden **Debuggen**

Kann mir jemand einen Tipp geben, wie ich diese Meldung unterdrücken kann?
Ich habe wenig Lust, immer auf den Beenden-Button zu klicken …

Vielen Dank und
Gruß

moritzbock

#2

Hallo,

also den Fehlercode 2501 musst du in der aufrufenden Prozedur abfangen.

z.b.

Private Sub btnStartReport_Click()
On Error Goto Err_btnStartReport_Click

DoCmd.OpenReport „irgendeinBericht“, acNormal

Exit_btnStartReport_Click:
Exit Sub

Err_btnStartReport_Click:
If Err.Number = 2501 Then Resume Exit_btnStartReport_Click

MsgBox Err.Description & " " & Err.Number
Resume Exit_btnStartReport_Click
End Sub

Tschau
Peter

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#3

Hallo Peter,
hat wunderbar geklappert … :wink:

Danke
moritzbock

Hallo,

also den Fehlercode 2501 musst du in der aufrufenden Prozedur
abfangen.

Tschau
Peter