Access - LOS MALDITOS ACENTOS

Public Function TextoSinAcentos(ByVal Texto As String) As String

 ' Esta función devuelve el texto sin acentos

' eduardo@olaz.net

Dim lngTexto As Long

Dim i As Long

Dim lngPos As Long

Dim strCaracter As String * 1

Dim strNormalizado As String

Dim strConAcentos As String

Dim strSinAcentos As String

lngTexto = Len(Texto)

If lngTexto = 0 Then

    TextoSinAcentos = ""

    Exit Function

End If

strConAcentos = "ÁÀÂÄÃáàâäãÉÈÊËéèêëÍÌÎÏíìîïÓÒÔÖÕóòôöõÚÙÛÜúùûüÝýÿ"

strSinAcentos = "AAAAAaaaaaEEEEeeeeIIIIiiiiOOOOOoooooUUUUuuuuYyy"

For i = 1 To lngTexto

       strCaracter = Mid(Texto, i, 1)        'comparamos el caracter con la cadena con acentos

       lngPos = InStr(1, strConAcentos, strCaracter, vbBinaryCompare)       'si se ha encontrado coincidencia

       If lngPos <> 0 Then            'sustituímos el caracter con el que tiene la misma

                                                     'posición en la cadena sin acentos (o sea la letra sin acentos)

            strCaracter = Mid(strSinAcentos, lngPos, 1)

       End If

     '... y si no, pues seguimos como si nada

    TextoSinAcentos = TextoSinAcentos & strCaracter

Next i

End Function