Find whole word and replace with Acronyms

[Thompyt]

tblRoles:


Field1 = Roles


tbleAcronyms:
Field1 = Names
Field2 = Acros

What I want to do is search for Like items in tblRoles.Roles with Like "[Names]" and replace where true with tblAcronyms.Acros and update

tblRoles.Roles.

Its easy if I have to do manually, but I would like to automate so I don't have to find and replace 15 or so items after each time I import a new excel into a table.

Would it be something along the lines of:
Replace("Names", .....

[pbaldy]

I would try an update query that joins the two tables on that field.

[accesstos]

Maybe you need a code like bellow:

Option Compare Database
Option Explicit

Private Const cstrSQL As String = "UPDATE tblRoles SET  [Roles] = Replace([Roles],'$n$','$a$') WHERE (instr(1,[Roles],'$n$',1)>0);"

Sub ReplaceNamesWithAcronyms()
    Dim strSQL As String
    
    With CurrentDb.OpenRecordset("tbleAcronyms", dbOpenForwardOnly)
        While Not .EOF
            strSQL = Replace(cstrSQL, "$n$", ![Names])
            strSQL = Replace(strSQL, "$a$", ![Acros])
            .MoveNext
            CurrentDb.Execute strSQL, dbFailOnError
        Wend
        .Close
    End With
End Sub

Do Not Use It in your original database!!!
Give it a try in a copy of your project.

Happy new year! :-)