27/01/2006, 08:45
|
 | | | Fecha de Ingreso: abril-2003
Mensajes: 278
Antigüedad: 22 años Puntos: 1 | |
| A ver si te sirve esta función ...
Function sinAcentos(strsql)
Dim CurLtr
For x = 1 To Len(strsql)
CurLtr = Mid(strsql, x, 1)
Select Case CurLtr
Case "a", "à", "á"
sinAcentos = sinAcentos & "a"
Case "e", "é", "è"
sinAcentos = sinAcentos & "e"
Case "i", "ì", "í"
sinAcentos = sinAcentos & "i"
Case "o", "ò", "ó"
sinAcentos = sinAcentos & "o"
Case "u", "ù", "ú"
sinAcentos = sinAcentos & "u"
Case "n", "ñ", "Ñ"
sinAcentos = sinAcentos & "n"
Case Else
sinAcentos = sinAcentos & CurLtr
End Select
Next
End Function |