I tried using a VB module to perform the replace action here' s the code
Option Compare Database
Option Explicit
Function chan()
DoCmd.OpenTable "Frthedp", acViewDesign, acEdit
Do While Not [Frthedp]![SCAC]
DoCmd.GoToRecord , , acNewRec
If (Right([Frthedp]![SCAC], 1) = "*") Then...