Office: (Office 2003) Abfangen von Laufzeitfehler 2501

Hallo in die Runde,

im Ereignis Bei Ohne Daten eines Berichts lasse ich eine Meldung ausgeben, wenn der Bericht leer ist.

Den Bericht rufe ich über eine Schaltfläche auf und habe dort - analog zu DonKarl's FAQ 5.8 - eine Fehlerbehandlung eingefügt.

Wenn der Bericht ohne Daten geöffnet wird, bekomme ich nun die Messagebox (gewollt) und danach trotzdem den Laufzeitfehler 2501. Habe ich hier noch etwas im VBA-Code vergessen?

Code:

:)

 

Nutze doch das Berichtsereignis "Bei ohne Daten"
Code:

 

Probier's mal so:
Code:

Eidit: Oder so wie Elmar vorschlägt :-)
maike

 

Moin Maike, hallo Elmar,

vielen Dank für die Tipps. So wie Elmar es vorschlug, hatte ich es ja bereits im Berichtsereignis eingegeben.

Daraufhin bekommt der Benutzer ein kleines Meldungsfenster, wenn der Bericht keine Daten hat. Wird die Meldung mit Klick auf den OK-Button quittiert, erhalte ich gleich danach den Laufzeitfehler 2501 (Die Aktion OpenReport wurde abgebrochen).

Wenn ich auf den Debuggen-Button klicke, präsentiert mir Access das folgende Bild (siehe Attachment)...

@Maike: Mit deinem Vorschlag bekomme ich auch den Fehler 2501.

Wenn ich den datenlosen Bericht allein öffne und die Meldung mit OK quittiere, produziert Access keinen Laufzeitfehler 2501.

Gruß, Rookie

 

Hallo zusammen,

ich habe das Problem mit DCount umgangen:

Code:

... klappt prima *Smilie

Einen schönen Tag wünscht

RookieOne

 

Hi,

naja, das ist ja eine andere Lösung. Das OhneDaten-Eriegnis tritt so erst gar nicht ein. *Smilie

Du könntest das Docmd.OpenReport einbetten in einen Fehlerblock:

Code:

Dann kannst du das NoData-Ereignis nutzen (so ist es ja gedacht). Das Cancel = True "bricht den Bericht ab", was dem Docmd.OpenReport einen Fehlschalg meldet. Der ist aber durch das On Error resnue next "egal" und wird separat abgetestet.

Aber wenns läuft... Dlookup ist halt langsam. Und außerdem ist das ja quasi doppelt gemoppelt.

Gruß

 

\@RookieOne
Du musst meinen Code aber auch schon richtig abschreiben *wink.gif*
(bei deiner Version fehlt die Sprungmarke für Exit Sub und dein Befehl lautet weiterhin Resume Next ...)
maike

 

*redface ups, ja - mein Fehler. Aber auch korrigiert gibt's den gleichen Fehler...

Code:

Aber auch mit dem Beispiel von Atrus erhalte ich den Laufzeitfehler 2501. Langsam überlege ich, ob Access da einfach die Fehlerbehandlung bei Öffnen des Berichts ignoriert. Ich hab' da jetzt schon einiges probiert - vom simplen On Error Resume Next bis hin zu euren Beispielen.

Markiert wird beim Debuggen ständig die Zeile

Code:

Gruß, Rookie

 

Hi,

in meiner Version: die war aus dem Kopf. Setz mal einen haltepunkt auf das Openreport ,und dann mach mal mit F8 zeilenweite weiter, und schaue dir die Err.Number an. Villeicht ist es eine andere.

 

Hallo Atrus,

dann springt er zum NoData-Ereignis des Berichts

Code:

Wobei im VBA-Editor die Zeile Private Sub Report_NoData(Cancel As Integer) gelb markiert wird.

Nochmal F8 gedrückt, wird die Zeile MsgBox "Der Bericht enthält keine Daten.", vbExclamation Or vbOKOnly, "Keine Daten" markiert.

Ein weiteres Mal F8: Die Messagebox vom Bericht wird angezeigt

Weiter mit OK: Gelbmarkierung von Cancel = True und End Sub.

Schlussendlich Markierung des Haltepunktes bei DoCmd.OpenReport...

*entsetzt Es hat den Anschein, als ob da eine Schleife abläuft.

 

Code:

das würde ich auch anmeckern *wink.gif* . Laut meiner Kenntnis müsste hier die Syntax lauten:
DoCmd.OpenReport Berichtsname[, Ansicht][, Filtername][, Bedingung]
In deimen Fall also:
Code:

maike

 

Hallo Maike,

nein, daran scheint es nicht zu liegen.... gleiches Phänomen *frown.gif*

 

Der Code aus #8 ist korrekt und es besteht kein Anlass für den Verdacht auf eine Schleife.

Wie geht es denn nach dem Öffnen weiter? Dann müsste doch der Zeiger auf Code:

stehen.

 

Hi,

ich habe das mal nachgebaut. Hier gibts keine Schleife. Was machst du anders?

Start über das Formular.

 

Hallo Anne,

meinst du: Nach Öffnen des Berichts? Dann soll er mit DoCmd.Close acForm, "frmAuswahl_VE_LHO" das Auswahlformular schließen...