OpenReport handling error number?

If you set cancel = true then it should not be necessary

This is in the No Date event in the report!

Msgbox "No Data"
cancel = True

Hvorfor indtaster du ikke blot en handling i rapportens NoData:

DoCmd.CancelEvent f.eks

mugs there should be NO need to cancelevents, this event is there for this purpose!

I know terry. Indsat i NoData:

MsgBox Err.Description & Err.Number

Returns 0

Min Rapport åbnes med:
    Dim stDocName As String
    DoCmd.SetWarnings False
    stDocName = "r_allebarn_sidste_dogn"
    DoCmd.OpenReport stDocName, acPreview
    DoCmd.Maximize

På min NoData står der:
Private Sub Report_NoData(Cancel As Integer)
DoCmd.SetWarnings False
MsgBox "Der findes ingen notater fra denne periode", vbInformation, "Ingen notater, vælg en længere periode"
Cancel = True
End Sub

Så vidt jag kan se, kommer fejlmeddelelsen fra den formular som jeg åbner rapporten fra.

Ja - Men du skal også rette fejlen i formularen's kommandoknap.

Når jeg bruger terry's forslag får jeg en RunTime fejl 2501.

Hvis jeg fjerner knappens errorhandler, kommer der et debug vindue, som peger på:
DoCmd.OpenReport stDocName, acPreview

Not sure what the problem is but try

    Dim stDocName As String
    stDocName = "r_allebarn_sidste_dogn"
    DoCmd.OpenReport stDocName, acPreview
    DoCmd.Maximize

Private Sub Report_NoData(Cancel As Integer)
MsgBox "Der findes ingen notater fra denne periode", vbInformation, "Ingen notater, vælg en længere periode"
Cancel = True
End Sub

Denne er afprøvet og fungerer:

Private Sub Kommandoknap0_Click()
On Error GoTo Errorhandler
DoCmd.OpenReport "rap1", acViewPreview, "", "", acNormal
Errorhandler:
If Error = 2501 Then
DoCmd.CancelEvent
End If
End Sub

Jeg satte en Exit Sub ind i knappens Errorhandler, og det virker.

Tak for hjælpen.

>>Mugs
Jeg ser her du har afleveret 5 kommentare inden for 11 minnutter, så jeg forstår ikke din kritik af at jeg har 3 svar/kommentarer inden for 14 minutter.
:o(