Bericht mit vorgeschaltetem Formular; Me.Filter ?

pglw

Erfahrenes Mitglied
Tag zusammen,

was ich habe:
ein Formular auf dem ich mir durch zwei Listenfelder meine verfügbaren Datensätze einschränken kann.

was ich will:
einen Bericht auf Basis der in den Listenfeldern gewählten Kriterien erstellen.
Beispiel: Im ersten Listenfeld wähle ich den Monat, im zweiten das Jahr. Dann soll der Bericht nur die entsprechenden Datensätze beinhalten.

Durch ein schlaues Buch bin ich auf folgenden Code gekommen. Ich bräuchte aber Hilfe bei Me.Filter (unten rot markiert), denn da weiss ich nicht was ich einfügen soll:

Private Sub Report_Open(Cancel As Integer)
DoCmd.OpenForm "Berichtauswahl", WindowMode:=acDialog
Me.Filter = ""
If Forms![Berichtauswahl].[lstMonat] <> "" Then
Me.Filter = "[Kalenderwoche]=#" & Format(CDate(Forms![Berichtauswahl].[lstMonat]), "mm\/dd\/yyyy") & "#"

End If
If Forms!Berichtauswahl.lstMonat <> "*alle Jahre*" Then
If Me.Filter <> "" Then
Me.Filter = Me.Filter & " AND "
End If


Me.Filter = Me.Filter & " [Jahr]=""" & Forms!Berichtauswahl.lstJahr & """"
End If

If Me.Filter <> "" Then
Me.FilterOn = True
End If
End Sub

Das rot markierte ist noch wie in dem Buch (macht hier also keinen Sinn).
Beim ersten Filter hätte ich aber gern, daß er mir nach Monaten filtert, die ich im ersten Listenfeld wähle. Wie kann ich das machen?
Kann mir jemand sagen, was man allgemein nach Me.Filter = einfügt?

Wäre nett wenn die Anwort etwas ausführlicher ist, so daß ich sie als Anfänger nachvollziehen kann.

MfG

PGLW
 
Zurück