DCrake
Remembered
- Local time
- Today, 11:42
- Joined
- Jun 8, 2005
- Messages
- 8,626
As this is only a one off exercise I would move from trying to update your list in one fail swoop, I would run the update/replace for each replacement required. Using this method at least you can check that each replacement has worked.
If you want to do this code you will need the following
Then in your immediate window type in
Repeat for all variations until you have cleaned up your database
David
If you want to do this code you will need the following
Code:
Public Function Revisions(StrFind As String, StrReplace As String)
Dim Rs As DAO.Recordset
Set Rs = CurrentDb.OpenRecordset("[COLOR="YellowGreen"]YourTableNameHere[/COLOR]")
Do Until Rs.EOF
Rs.Edit
Rs("[COLOR="yellowgreen"]YourFieldNameHere[/COLOR]") = Replace(Rs("[COLOR="yellowgreen"]YourFieldNameHere[/COLOR]"),StrFind,StrReplace)
Rs.Update
Rs.MoveNext
Loop
Rs.Close
Set Rs = Nothing
Debug.Print "Done"
End Function
Then in your immediate window type in
Code:
?Revisions("Shirker","Worker")
Repeat for all variations until you have cleaned up your database
David