Datumsfilter mit Kombintionsfeld in eimem Formular

[mconfusion]

Ich benötige noch einmal Eure Hilfe.

In einem Formular möchte ich die Rechnungen nach Jahr anzeigen lassen.
Dafür habe ich in einem Kombinationsfeld im Formularkopf bereits die Jahreszahlen eingefügt.
So ähnlich Funktioniert der Datumsfilter mit der Rechten Maustaste.
Habt ihr einen Code für mich?
Siehe auch die Bilder.

Beste Grüße Matthias

[steffen0815]

Hallo,
hier hast du einen Code 

Code [Auswählen] Erweitern

Private Sub JahrSuche_AfterUpdate()
    Me.Filter = "year(preisstand)=" & Me.JahrSuche
    Me.FilterOn = True
End Sub


[PhilS]

Code [Auswählen] Erweitern

    Me.Filter = "year(preisstand)=" & Me.JahrSuche

Das funktioniert.
Aber im Sinne meiner gerade veröffentlichten Performance Tuning Tips würde ich das so schreiben:

Code [Auswählen] Erweitern

Me.Filter = "Preisstand >= DateSerial(" & Me.JahrSuche & ",1,1) & " AND Preisstand < DateSerial(" & Me.JahrSuche +1 & ",1,1) "

[mconfusion]

Vielen Dank für Eure Bemühungen.

Leider haben beide Versionen bei mit nicht Funktioniert.

[steffen0815]

Hallo,
dein Feldname ist (scheinbar) Preistand und nicht Preisstand.

[DF6GL]

Hallo,

welchen Datentyp(!)  hat das Tabellenfeld "Preistand"?


zudem sollte es (am Beispiel der "einfachen" Filterung ), so lauten:


Me.Filter = "year(preistand)=" & nz(Me!JahrSuche,Year(Date))

um Laufzeitfehler bei leeren JahrSuche-Feld zu vermeiden. (Das gilt auch für die anderen Kriterien-Vorschläge)

[mconfusion]

Hallo,
dein Feldname ist (scheinbar) Preistand und nicht Preisstand.

Du hattest Recht! Das war der Fehler. Vielen Dank!
Die Tabelle habe ich vor 15 Jahren erstellt. Das ist mir aus dem Gedächtnis gefallen.

[mconfusion]

Habt vielen Dank für Eure schnelle Hilfe. Es funktioniert jetzt!!!!
Liebe Grüße Matthias