Fjerne en del af en string

er det altid det samme ord som skal fjernes ?

Ja, opretter en dynamis sql sætning, og tilføjer derfor AND hver gang, men det skal jeg jo ikke ved det sidste argument..

Men ja, det sammer ord er AND
:-)

ok så er det bare :

slutStreng = Replace(Left(slutStreng,3),"")

Det skulle gerne virke

så fjerner den de sidste tre tegn fra strengen "slutStreng".

This is how you build a dynamic SQL, but I am not sure why you dont use AND in the last argument!

sSQL = "... WHERE 1 "
..
sSQL = sSQL & " AND ...."
..
sSQL = sSQL & " AND ...."

dont you mean the first? This is why you can use "WHERE 1"

so if there are no AND you will just have

SELECT ..... WHERE 1
which is the same as EVERYTHING!

For at isolere det sidste ord i en string kan du bruge denne kode:

Dim SearchChar As String
Dim SearchString As String
Dim Streng As String
SearchChar = " "
SearchString = felt1
Streng = felt1
felt2 = Right(String:=Streng, length:=(InStr(1, SearchString, SearchChar, 1) - 1))

SearchChar er det tegn der adskiller det sidste ord fra det foregående. Her et mellemrum.
SearchString er det felt der indeholder den streng der skal søges på.
felt2 tildeles det sidste ord i en streng.

Sql = Replace(Left(Sql, 3), "")

Den siger argument not optional.

Sql er en string, og fået alle mulighederne når jeg trykker parantes start, men kan ikke få den helt til at virke

funkytoget>WHY do you need to remove AND in the last loop?

SQLStr = Left(SQLStr, Len(SQLStr)-Len(" AND "))

I ovenstående tilfælde fjernes 5 tegn, da jeg også har regnet med, at der er mellemrum omkring 'AND'. Du kan selv ændre indholdet af den sidste Len(" AND "), hvis dette ikke er tilfældet.

/Thomas

Din termonologi:
SQL = Left(SQL, Len(SQL)-Len(" AND "))