Replace kode

replace findes allerede i Access 2000 eller senere.

Lav en forespørgsel med denne SQL:

update Dintabel Set Ditfelt = Replace(Ditfelt, "\", "/")

Det kan jeg ikke umiddelbart få til at virke, jeg kører det som kode fra VBA delen i access...

Min kode er således:

CurrentDb.Execute "DELETE * FROM [allpics]"
DoCmd.OpenQuery "Append new allpics from textfile"

og så skal jeg ha replacen ind herefter...

Og Thomasjepsen, jeg havde lige et sidespørgsmål i min anden tråd http://eksperten.dk/spm/627970 til dig :D

Faktisk vil jeg gerne ha replacen til at resultere i

/abc/web/pic1.jpg
/xyz/print/picture24.gif
/123/logopicture.tif

hvilket vil sige at jeg vil fjerne "\billede\" OG replace de andre "\" med "/", så det er vel lidt en 2 replaces i 1 funktion jeg søger...

Thomas Jepsen's kode burde fungere i en forespørgsel:

update Dintabel Set Ditfelt = Replace(Ditfelt, "\", "/")

Hvis du vil køre den fra VBA skal den se således ud:

docmd.runsql "update Dintabel Set Ditfelt = Replace(Ditfelt, "\", "/")"

Du kan uddrage et del af en tekst med denne:

Left(String:=felt1, length:=(InStr(1, felt1, "/", 1) - 1))

Dvs, at du kun ønsker selve stien (uden filnavn) og med  \ i stedet for /?

Så ville jeg lave det i 2 omgange:

Første erstatter du \ med /:
currentdb.execute "update Dintabel Set Ditfelt = Replace(Ditfelt, "\", "/")"

Derefter fjerner du filnavnet: Dette gøres ved at lægge nedenstående funktion i et modul:

Function Extractpath(path As String, Optional RemoveBackslash = False) As String
    Extractpath = Left(path, InStrRev(path, "\") + RemoveBackslash)
End Function


Herefter ser SQL'en således ud:
currentdb.execute "update Dintabel Set Ditfelt = Extractpath(Ditfelt, True)"

takker folkens

selv tak :)