Dim db As DAO.DataBase
Dim rs As DAO.RecordSet
Dim x As Integer
Dim y As String
Dim strField As String
Set db = CurrentDb
Set rs = db.OpenRecordset("qryResults")
With rs
.MoveFirst
Do Until .EOF
strField = ""
For x = 1 To len(rs!FieldName)
y = Mid(rs!FieldName,X,1)
If y = undesirable character Then
strField = strField & "e"
Else
strField = strField & y
End If
Next x
.Edit
rs!FieldName = strField
.Update
.MoveNext
Loop
End With
Set rs = Nothing
Set db = Nothing
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.