Select 1 && The area of my table scan mystring = "" x = len(rtrim(mytable.mifield)) for mycicle = 1 to x a = substr(mytable.myfield,x,1) do case case a = "Accent" a = "Without accent" case a = "Accent" a = "Without accent" case a = "Accent" a = "Without accent" endcase mystring = mystring + a next mycicle replace mytable.myfield with mystring endscanHope can help you!