Bericht anzeigen ohne Fehlermeldung

[lissi1991]

Hallo community,

ich versuche gerade einen Bericht zu erstellen von meiner Abfrage. In dem Bericht wird ein Balkendiagramm dargestellt.
Der Bericht wird durch eine mit dem Assistenten erstellten Bedienschaltfläche aufgerufen.
Dabei wurde automatisch ein Code erstellt.
Leider kommt der Bericht erst nach der Meldung:

Die Aktion /die Methode ist ungültig, da das Formular bzw. der Bericht nicht an eine Tabelle oder Abfrage gebunden ist.
Wie kann ich diese Meldung unterbinden?

Der Code wurde automatisch erstellt:

Private Sub cmdAnzeigen_Click()
On Error GoTo Err_cmdAnzeigen_Click

    Dim stDocName As String

    stDocName = "rptgemittelterAbsatz"
    DoCmd.OpenReport stDocName, acViewReport
    DoCmd.OpenReport "rptgemittelterAbsatz", acViewPreview, , "month(created_at = " & Me.cboMonat
Exit_cmdAnzeigen_Click:
    Exit Sub

Err_cmdAnzeigen_Click:
    MsgBox Err.Description
    Resume Exit_cmdAnzeigen_Click
   
End Sub

Vielen Dank für eure Hilfe
Liebe Grüße Lisa

P.S. Wie kann ich die Beschriftung im Diagramm händlich ändern? Geht das überhaupt, da das ja auch über einen Assistenten erstellt worden ist.

[Lachtaube]

Reduziere den Code auf

Code: [Auswählen]

Private Sub cmdAnzeigen_Click()
   On Error GoTo Err_cmdAnzeigen_Click

   DoCmd.OpenReport "rptgemittelterAbsatz", acViewPreview
Exit_cmdAnzeigen_Click:
   Exit Sub

   MsgBox Err.Description
   Resume Exit_cmdAnzeigen_Click
End Sub

[lissi1991]

@Lachtaube

Danke funktioniert jetzt mit dem

Code:

Private Sub cmdAnzeigen_Click()
   On Error GoTo Err_cmdAnzeigen_Click

   DoCmd.OpenReport "rptgemittelterAbsatz", acViewPreview
Exit_cmdAnzeigen_Click:
   Exit Sub
Err_cmdAnzeigen_Click:
   MsgBox Err.Description
   Resume Exit_cmdAnzeigen_Click
End Sub

[Lachtaube]

Sorry, da habe ich geschludert.
Füge im Code hinter Exit Sub in einer neuen Zeile Err_cmdAnzeigen_Click: ein.

[lissi1991]

Ja hab es selbst noch rausgefunden

[Beaker s.a.]

Hallo,
Was mich ja wundert ist warum hier

DoCmd.OpenReport "rptgemittelterAbsatz", acViewPreview, , "month(created_at) = " & Me.cboMonat

nicht schon der Compiler eine gelbe Flagge geworfen hat,
und wo dieser Filter am Ende geblieben ist, - vermutlich schon in der
Abfrage.
gruss ekkehard