Replace function

[Vijay]

I need the equivalent function for 'replace' in Access
query.

 

[Arvin Meyer]

I need the equivalent function for 'replace' in Access
query.

Here's the one I've been using in queries up until Access 2002 which has one
that works:

Function ChangeString(strIn As String, strToFind As String, strReplace As
String, _
Optional intCount As Variant) As String
On Error Resume Next

Dim intPlace As Integer
Dim intCounter As Integer
Dim intStart As Integer

If IsMissing(intCount) Then intCount = 32767
intStart = 1

For intCounter = 1 To intCount
intPlace = InStr(intStart, strIn, strToFind)
If intPlace > 0 Then
strIn = Left(strIn, intPlace - 1) & strReplace & Mid(strIn,
intPlace + Len(strToFind))
intStart = intPlace + Len(strReplace) + 1
Else
Exit For
End If
Next

ChangeString = strIn

End Function
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads:
http://www.datastrat.com
http://www.mvps.org/access