Nach Datum filtern

29/07/2008 - 16:45 von John Curio | Report spam
Hallo,

habe ein Formular in dem Personen nach Geb-Datum gefiltert werden sollen. Es
gibt ein Geb-Datum-Texfeld mit dem Namen "txt_GebSuche".
Hintergrund:
wenn man z.B. 2.2.80 eingibt, dann wird daraus nach Verlassen "2.2.1980".

Mein Code:
-
MsgBox ".Text: |" & txt_GebSuche.Text & "|" & vbCrLf & _
".Value: |" & txt_GebSuche.value & "|" & vbCrLf & _
"Format: |" & Format(Me!txt_GebSuche.value, "dd.mm.yyyy") & "|"

If Format(Me!txt_GebSuche.value, "dd.mm.yyyy") = txt_GebSuche.value Then

strSQL = "SELECT DISTINCT qry0400_tbl0400_LaufendeVorgaenge_Details.*, " &
_
"qry0400_tbl0400_LaufendeVorgaenge_Details.VersGeb AS SucheGeb "
& _
"FROM qry0400_tbl0400_LaufendeVorgaenge_Details " & _
"WHERE ((qry0400_tbl0400_LaufendeVorgaenge_Details.VersGeb)= " &
Format(Me!txt_GebSuche.value, "\#yyyy\-mm\-dd\#") & ")"
Me!frm0111.Form.RecordSource = strSQL
Me!frm0111.Form.Requery
End If
-


Problem:
Wenn ich 2.2.80 eingebe, dann zeigt er mir das im "txt_GebSuche.Text" an.
Value = |02.02.1980|
Format = |02.02.1980|

Aber er kommt nicht in die IF-Schleife und selektiert somit nicht! Warum das
nicht?

Danke!
Johannes
 

Lesen sie die antworten

#1 Thomas Winkler
29/07/2008 - 16:48 | Warnen spam
Hi,

If Format(Me!txt_GebSuche.value, "dd.mm.yyyy") = txt_GebSuche.value Then



Beschreib mal, was Du hiermit prüfen willst?

Thomas

"Access? Damit arbeite ich nicht. Das ist doch nur ein abgespecktes Excel."

Ähnliche fragen