Thomas Jepsens dynamiske filter igen

isnt it just a case of entering a new field on the form and name it

søgPostnumre

and Postnumre must be the same name as the field in your database table.

You also need to set the fields TAG prperty to one of the following

Tekst
Fritekst
Tal
Dato

depending on the field type

Jo, jeg er med på at der skal være et felt mere, men vi skal jo have "between det ene og det andet postnummerfelt" med i sql-strengen, og det kan jeg ikke se hvordan skal gøres.

Du er SÅ tæt på...

SELECT xxx FROM xxx WHERE [Postnr] BETWEEN a AND b;

Ja, men hvordan får jeg det implementeret i den eksisterende sql-streng der bliver genereret af Thomas' case-sætning???

well thats where THomas's dynamic search routine has a flaw I think!

it doenst support >= or <= or Between!

Maybe you're right, Terry, but let's wait and see if Thomas has anything to add.

add these lines to the GetFilter function

Case "DatoG"
    If Ctrl <> "" Or Not IsNull(Ctrl) Then
      SQLStr = SQLStr & "[" & Mid(Ctrl.Name, 4) & "] >= #" & Format(Ctrl, "yyyy-mm-dd") & "# And "
    End If
Case "DatoL"
    If Ctrl <> "" Or Not IsNull(Ctrl) Then
      SQLStr = SQLStr & "[" & Mid(Ctrl.Name, 4) & "] =< #" & Format(Ctrl, "yyyy-mm-dd") & "# And "
    End If


Then you need to use

DatoG for the field where the date has to be >=
and
DatoL for the field where the date has to be <=

(in the Tag property)

NOTE: NOT TESTED :o)

If you use BETWEEN then BOTH date fields need to be enetered. Using >= and <= allows you to only enter one of the date fields.

What am I on about, its a postal code interval your are interested in :o)

Is the postal code numeric or text?

Postnummerfeltet er faktisk text, fordi jeg også har udenlandske postnumre med mellemrum og bogstaver, kan det så lade sig gøre? Ellers ser din løsning fin ud!

Case "TekstG"
    If Ctrl <> "" Or Not IsNull(Ctrl) Then
      SQLStr = SQLStr & "[" & Mid(Ctrl.Name, 4) & "] >= '" & Ctrl & "' And "    End If
Case "TekstL"
    If Ctrl <> "" Or Not IsNull(Ctrl) Then
      SQLStr = SQLStr & "[" & Mid(Ctrl.Name, 4) & "] <= '" & Ctrl & "' And "
    End If

and the same applies to the tag propery

AGAIN not tested

Hej Terry, det virker, bortset fra at jeg ikke kan have to felter med samme navn, så jeg har bare skrevet
"[Postnummer] >=

i stedet for
"[" & Mid(Ctrl.Name, 4) & "]>=

Tak for hjælpen!

Ah! didnt think of that :o)
two fields with these names
søgGPostnummer
søgLPostnummer

Then code

Case "TekstG"
    If Ctrl <> "" Or Not IsNull(Ctrl) Then
      SQLStr = SQLStr & "[" & Mid(Ctrl.Name, 5) & "] >= '" & Ctrl & "' And "    End If
Case "TekstL"
    If Ctrl <> "" Or Not IsNull(Ctrl) Then
      SQLStr = SQLStr & "[" & Mid(Ctrl.Name, 5) & "] <= '" & Ctrl & "' And "
    End If


og selv tak

just to keep it dynamic :o)

ja, du har ret, tak:-}

Terry, har du overvejet at blive supporter i www.makeiteasy.dk?
Det klarer du jo helt flot :o))

thanks Thomas. We cant keep the customer waiting because you are so busy can we? :o)