replace i Access 97

1 svar · 200 visningar · startad av clarkbones 8 jan. 2002

clarkbonesMedlem sedan feb. 20013 023 inlägg

Trådstart8 jan. 2002 11:51#1

Hej! stränghanteringsfunktionen Replace finns ej i Office 97 men dock i Office 2000. Är tvungen att köra på Office 97, men har ingen bra lösning på problemet.

Vad jag vill göra är att ersätta kommatecken med punkt eftersom i SQL så måste punkt användas som decimalavskiljare.

clarkbonesMedlem sedan feb. 20013 023 inlägg

8 jan. 2002 12:16#2

Försökte med detta men det funkar förstås inte eftersom det finns ganska många nödvändiga kommatecken!

Dim strsql, strPos
strsql = "Select * from A,A leif,"
strPos = 1

Do Until strPos = 0
strPos = InStr(strPos, strsql, ",")
If strPos > 0 Then
strsql = Left(strsql, strPos - 1) & "." & Right(strsql, Len(strsql) - strPos)
'MsgBox strsql
End If
Loop

MsgBox strsql