Access Filter fuer Report

Hallo Access-Gemeinde.
Ich benötige Hilfe. Leider eilt es.
Ich habe einen Report der mit Datum von / bis gefiltert werden soll.
Es klappt insoweit, das der Filter gefüllt wird. Beim Aufruf des Reports ist der Filter jedoch leer. Was mache ich falsch?

Im Formular Report1 wird das Datum vorgegeben und kann überschireben werden.
Der Report ist Auswertung Lager, Datenherkunft die Abfrage Auswertung Lager03
Nachstehend der Code:
Private Sub Auswertung_Lager_Click()
' Prüfung ob die Datenherkunft des Berichtes leer ist
If DCount("*", "Auswertung Lager03") > 0 Then
'Bericht aufrufen
DoCmd.OpenReport "Auswertung Lager", acViewPreview, "Auswertung Lager03 =" & Filter1
Else
MsgBox "Der Bericht enthält keine Daten.", vbInformation + vbOKOnly, "Keine Daten"
DoCmd.Close acForm, "Report1", acSaveNo
End If
End Sub
-------------------------------------------------------------------------------------------------
Private Sub Form_Load()
BDatum = Date - 365
EDatum = Date
Text1.Value = BDatum
Text2.Value = EDatum
Call setFilter1
End Sub
----------------------------------------------------------------------------------------------------
Private Sub setFilter1()
Dim BDat As String, EDat As String
BDat = Format$(BDatum, "\#dd/mm/yyyy\#")
EDat = Format$(EDatum, "\#dd/mm/yyyy\#")
Filter1 = "(gebuchtam >=" & BDat & ") and (gebuchtam <=" & EDat & ")"
End Sub
' Das Anfangstum wurde geändert
Private Sub Text1_KeyUp(KeyCode%, Shift%)
BDatum = CDate(Text1.Text)
Call setFilter1
End Sub
'Das Enddatum wurde geändert
Private Sub Text2_KeyUp(KeyCode%, Shift%)
EDatum = CDate(Text2.Text)
Call setFilter1
EndSub

Danke im Voraus

 

Hey Hascheff,

leider war der Schnellschuss nicht erfolgreich.
Muss weiter rätseln. Bin Deiner Meinung, es fehlt ein Komma oder irgendwas in der Art.

Trotzdem Danke

 

Hi,
ja Variablen sind sauber. Ich bin auch den Code Schritt für Schritt durchgegangen. Was ich nicht sehe ist der Wert des Feldes das in der Abfrage gefiltert werden soll. Wenn ich es aber über Kriterien anspreche
erhalte ich die richtige Lösung.
Habe in einer neuen Datenbank eine Tabelle angelegt und das gleiche Formular mit dem Code erstellt. Dazu einen Bericht und schon klappt alles.
Sieht so aus, als ob auf Abfragen der Filter über das Formular mit den Datumeingaben nicht funktioniert.
Habe nun mit der Abfrage eine neue Tabelle angelegt. Funktioniert aber auch nicht, da nun nicht mehr das Feld die Eigenschaft " Datum kurz" behält, sondern die Eigenschaft auf "Standarddatum" verändert wird.

Habe also erst mal die Lösung über Abfrage/Kriterien installiert. Würde aber die schönere Lösung vor.

LG Stippiderkoch