Re: VBA/Access Global Search&Replace from LUT

This requires a table called tblReplace with two text fields, old and
new.

Code:
On Error Resume Next

Dim db As DAO.Database
Dim td As DAO.TableDef
Dim f As DAO.Field
Set db = CurrentDb
For Each td In db.TableDefs
    If td.Name <> "tblReplace" And Left(td.Name, 4) <> "msys" Then
        For Each f In td.Fields
            SQL = "UPDATE [" & td.Name & "] INNER JOIN tblReplace ON
[" & _
                td.Name & "].[" & f.Name & "] = tblReplace.old SET ["
& _
                td.Name & "].[" & f.Name & "] = [tblReplace]![new];"
            db.Execute SQL
            Select Case Err.Number
            Case 0
            Case 3615: Err.Clear
            Case Else
                MsgBox Err.Number & vbCrLf & Err.Description
                Exit Sub
            End Select
        Next
    End If
Next


Anyone disagree?