There is a Microsoft article on that:
http://support.microsoft.com/?id=225956
It suggests writing a little wrapper function that you can use in a query.
If you can't get that going, and want to code your own:
Function ReplaceX(strExpr As String, strFind As String, strReplace As
String, Optional lngStart As Long = 1) As String
Dim strOut As String
Dim lngLenExpr As Long
Dim lngLenFind As Long
Dim lng As Long
lngLenExpr = Len(strExpr)
lngLenFind = Len(strFind)
If (lngLenExpr > 0) And (lngLenFind > 0) And (lngLenExpr >= lngStart)
Then
lng = lngStart
If lng > 1 Then
strOut = Left$(strExpr, lng - 1)
End If
Do While lng <= lngLenExpr
If Mid(strExpr, lng, lngLenFind) = strFind Then
strOut = strOut & strReplace
lng = lng + lngLenFind
Else
strOut = strOut & Mid(strExpr, lng, 1)
lng = lng + 1
End If
Loop
ReplaceX = strOut
End If
End Function
--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users -
http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.
"Paul" <pa**@tdsd.com> wrote in message
news:11*********************@g44g2000cwa.googlegro ups.com...
Replace Function doesn't work in a query in Access 2000!