Modul-kode i Access

jeg har selv lavet denne engang, da jeg skulle bruge den i Access 97. Måske kan du bruge eller tilpasse den:

Public Function Replace(Streng As String, Find As String, Erstat As String) As String
    On Error Resume Next
    Dim Pos As Integer, findpos As Integer
    Dim tmpStr As String
    Pos = 1
    If Len(Streng) = 0 Then
      Replace = Streng
      Exit Function
    End If
    tmpStr = Streng
    Do
        findpos = InStr(Pos, tmpStr, Find)
        If findpos <> 0 Then
            tmpStr = Left(tmpStr, findpos - 1) & Erstat & Mid(tmpStr, findpos + Len(Find))
            Pos = Pos
        Else
            Pos = Pos + 1
        End If
    Loop Until Pos = Len(Streng)
    If Err Then
      Replace = Streng
    Else
      Replace = tmpStr
  End If
End Function

Tak for det.