Hi Raymond!

I don't know about a function, but maybe you can mae it with some functions. Something like this could work, bout maybe it's a little slow:

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
endscan

Hope can help you!