Bei Bericht ohne Daten

[uwe01]

Hallo,
ich habe in ein Bericht/Report ein Ereignis wenn keine Daten vorhanden sind. Da Öffnet sich eine MSG Box mit Meldung das keine Daten vorhanden sind. Was auch super klappt.

Code [Auswählen] Erweitern

Private Sub Report_NoData(Cancel As Integer)
Cancel = True
MsgBox "Keine Daten für diesen Zeitraum vorhanden" & Chr(13) & Chr(10) & "Bitte einen anderen Zeitraum auswählen"
End Sub
Jetzt möchte ich aber wenn man die OK Taste drückt es gleich ein Formular öffnet, wie bekomme ich hin.
Hat da jemand eine Idee
Danke

[DF6GL]

Hallo,

und Du hast keine Idee?

Code [Auswählen] Erweitern

Private Sub Report_NoData(Cancel As Integer)
Cancel = True
  If MsgBox ("Keine Daten für diesen Zeitraum vorhanden" & Chr(13) & Chr(10) & "Bitte einen anderen Zeitraum auswählen",vbOkCancel) = vbOk Then
    Docmd.Openform "frm_MeinFormular"
  End If
End Sub

[uwe01]

Hallo DF6GL,
nee leider nicht. Hast du vielleicht eine?

[DF6GL]

Hallo,

und was steht in meinem Post?

[uwe01]

Hallo DF6GL,
oh Sorry hatte ich übersehen. Werde das gleich mal Probieren.
Wünsche dann ein schönes Wochenende:-)

[uwe01]

Hallo DF6GL,

habe es endlich geschaft deine Antwort zu Testen, und schaue da es klapt.
DAnke dir für deine Hilfe