Access-o-Mania

Hallo,
Ich verzweifle mal wieder an der Synatax .
Ich möchte per VBA ein Formular nach dem aktuellen Monat filtern.
Das Formular basiert auf einer Abfrage. Hier gibt es ein Feld mit der Bezeichnung beleg_datum. In diesem Feld sind Daten im Format tt.mm.jjjj abgelegt.
Ich kann zwar aus dem aktuellen Datum den Monat extrahieren durch
Abfrage_Monat=Format(Date,"MM") aber ich weiß nicht wie jetzt im Filter Bezug auf den Monat im beleg_datum nehmen soll.

Besten Dank
Wolfgang

Hallo,
probiere es mit Month(now) statt Format()

Gruß Andreas

Hallo,

vermutlich:

in einer Abfragespalte in "Feld":

M: Format(beleg_datum;"jjjjmm")

und im Kriteriumsfeld:

Format(Datum();"jjjjmm")


Alternativ:

Feld:   
M: Jahr(beleg_datum) & Monat(beleg_datum)

Kriterium:
Jahr(Datum()) & Monat(Datum())

ZitatIch möchte per VBA ein Formular nach dem aktuellen Monat filtern.

Me.Filter = "beleg_datum >= DateSerial(Year(Date()), Month(Date()), 1)" & _
      " And beleg_datum < DateSerial(Year(Date()), Month(Date()) + 1, 0)"
Me.FilterOn = True
Ein solcher Filter lässt auch die Nutzung eines möglicherweise vorhandenen Index zu und verschenkt damit nicht mögliche Performance.

Zitat von: ebs17 am Juni 08, 2014, 21:27:16

ZitatIch möchte per VBA ein Formular nach dem aktuellen Monat filtern.

Code [Auswählen] Erweitern

Me.Filter = "beleg_datum >= DateSerial(Year(Date()), Month(Date()), 1)" & _
      " And beleg_datum < DateSerial(Year(Date()), Month(Date()) + 1, 0)"
Me.FilterOn = True
Ein solcher Filter lässt auch die Nutzung eines möglicherweise vorhandenen Index zu und verschenkt damit nicht mögliche Performance.

Danke genau das habe ich gesucht