Slight Change to the Code Above.
Public Function replace(theString As String, theOldValue As String, theNewValue As String)
replace = theString
If (InStr(1, theString, theOldValue, vbTextCompare) <> 0) Then
Dim theChar As Long
Dim newString As String
Do Until...
I was having a similar problem using Access 97. I wrote my own code for this function.
Public Function replace(theString As String, theOldValue As String, theNewValue As String)
replace = theString
If (InStr(1, theString, theOldValue, vbTextCompare) <> 0) Then
Dim theChar As...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.