Datum filtern per VBA

[Andreas Zwillsperger]

Hallo NG,

ich möchte gerne auf Grundlage des Datumsfeld "Datum" aus dem Formular
"frm_protokoll", das Formular "frm_protokoll_uebersicht"
filtern. Bisher habe ich das immer mit einem Recordset gemacht, oder
einfach in einer Abfrage eingebaut.
Jetzt möchte ich aber weder eine Abfrage noch die Filtereigenschaft des
Formulars oder ein Recordset verwenden.
Wer kann mir dabei helfen, das Ganze mit einem OpenForm statement zu
bewerkstelligen?
Leider weiß ich nicht wie das geht, meine Vorstellung im Beispiel unten,
funktioniert nicht wie gewünscht!
(in der Tabelle hat das Feld den Datentyp "Datum")


Dim strDatum As String
strDatum = Format(Datum, "\#yyyy\-mm\-dd\#")

Dim stDocName As String
Dim stLinkCriteria As String
MsgBox strDatum
stDocName = "frm_protokoll_uebersicht"
stLinkCriteria = "strDatum =" & " '" & Me.Datum & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Maximize

Grüße Andreas

[Mark Doerbandt]

Hallo, Andreas,

Post by Andreas Zwillsperger
stLinkCriteria = "strDatum =" & " '" & Me.Datum & "'"

warum bereitest Du strDatum vor, wenn Du es nicht benutzt?

Gruss - Mark

[Mark Doerbandt]

Hallo,

Post by Mark Doerbandt

Post by Andreas Zwillsperger
stLinkCriteria = "strDatum =" & " '" & Me.Datum & "'"

warum bereitest Du strDatum vor, wenn Du es nicht benutzt?

um etwas praeziser zu sein: Du schreibst es in "", da ist es aber eine
Zeichenkette. Wenn das feld tatsaechlich Datum heisst (so sollte es
nicht heissen, da das ein reserviertes Wort ist), dann probiere:

stLinkCriteria = "[Datum]=" & strDatum

Gruss - Mark

[Andreas Zwillsperger]

Hallo Mark,

Post by Mark Doerbandt
stLinkCriteria = "[Datum]=" & strDatum

Vielen Dank für deine Hilfe, das Feld heißt eigentlich "dat_datum"
Der Filter funktioniert jetzt prima!


Grüße


Andreas

[Andreas Zwillsperger]

Hallo Mark,

Post by Mark Doerbandt

Post by Andreas Zwillsperger
stLinkCriteria = "strDatum =" & " '" & Me.Datum & "'"

warum bereitest Du strDatum vor, wenn Du es nicht benutzt?

....ja, das stimmt schon was du schreibst.
Ich habe da wenig oder besser gesagt keine Erfahrung wie ich
den Filter mit Datumswerten benutzen kann, deswegen bin ich so vorgegangen,
wie ich Textfelder filtere:
stLinkCriteria = "[dat_textA] =" & "'" & Me![dat_textB] & "'"

Grüße

Andreas