Ereignis NoData und dann?
Paula
Gesendet: 26.02.24 20:54
Betreff: RE: Ereignis NoData und dann?


Member

Beiträge: 41
25
Karl Donaubauer - 26.02.24 10:59

Hallo, Paula!

Paula - 25.02.24
...
Wenn ich die Variante 2 richtig verstehe, trage ich vor dem Aufruf des Reports die on Error... Zeile ein und am Ende der Sub die Fehlerbehandlung.
Leider löst es das Problem nicht. Es wird nun das Formular aus dem ich die Reports - es werden 3 verschiedene in einer Select Case Routine aufgerufen - geschlossen. Dann hänge ich aber wieder.

Das klingt, als würde dein Code nicht stimmen. Vielleicht könnte man mehr dazu sagen, wenn du ihn herzeigtest.


Gerne: In einem Formular rufe ich die verschiedenen Berichte auf:

Private Sub cmbBerichtauswahl_Click()

Select Case cmbBerichtauswahl.ListIndex
Case 0
cmbMitarbeiter.Value = ""
cmbMitarbeiter.Visible = Not True
On Error GoTo ErrLeer
DoCmd.OpenReport "rptDienstplanabrechnungNachDatum", acViewReport
Case 1
cmbMitarbeiter.Visible = Not True
On Error GoTo ErrLeer
DoCmd.OpenReport "rptDienstplanabrechnungNachMA", acViewReport
Case 2
cmbMitarbeiter.Value = ""
cmbMitarbeiter.Visible = Not True
On Error GoTo ErrLeer
DoCmd.OpenReport "rptEinsatzdauerProTagUndBD", acViewReport
End Select

ErrorLeer:
If Err.Number = 2501 Then Resume Next
End Sub

Im Bericht habe ich folgendes Ereignis angelegt:

Private Sub Report_NoData(Cancel As Integer)
MsgBox "Du hast in dem angegebenen Zeitraum keine Fortbildungen gemacht!" & Chr(10) & _
"Versuchs mit einem anderen Zeitraum.", vbInformation + vbOKOnly, "Keine Daten gefunden"
Cancel = True
End Sub

LG
Paula
Top of the page Bottom of the page