Función eliminar acentos
Josep Torrente Bruna
Me estreno en este foro...
Necesito generar unos informes de access ordenando alfab�ticamente una serie
de apellidos. Para hacerlo correctamente deber�a poder eliminar los acentos
de los apellidos evitando as� que los �LVAREZ me los situe despu�s de AZOR�N
(por ejemplo) cuando deberia ir antes.
Se me ocurre que lo mejor seria una funci�n texto que me devolviese el
apellido sin acentos cuando le d� el campo apellido --con acentos-- como
argumento .
Josep Torrente
Emilio
�Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvi� o no la respuesta dada. Muchas gracias
--------------------------------------------------------------------------
Hola!
trat�ndose de una ordenaci�n quiz�s debas a�adir un nuevo campo y en el, el
dato a ordenar tras hacer un replace de los caracteres acentuados por los
sin acentuar, ya hace mucho que prepar� esta funci�n que te puede valer para
ello
'*******************************************************************************
'* SinTildes
'* Devuelve sin tildes (acentos, dieresis) la palabra pasada como par�metro
'* Argumentos: strTexto => cadena de texto a convertir
'* uso: strTexto = SinTildes(strTexto)
'* ESH 10/11/05 18:22
'* Si utilizas este c�digo, respeta la autor�a y los cr�ditos
'*******************************************************************************
Function SinTildes(strTexto As String) As String
strTexto = Replace(strTexto, '�', 'a')
strTexto = Replace(strTexto, '�', 'e')
strTexto = Replace(strTexto, '�', 'i')
strTexto = Replace(strTexto, '�', 'o')
strTexto = Replace(strTexto, '�', 'u')
strTexto = Replace(strTexto, '�', 'u')
SinTildes = strTexto
End Function ' SinTildes
tambien es cierto que podr�as ordenar por un campo calculado en una consulta
y a ese campo quitarle las tildes con esa funci�n.
Saludos a tod@s
Emilio [MS-MVP Access 2006/9]
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio
"Josep Torrente Bruna" <jtorr...@bisbatsantfeliu.org> escribi� en el
mensaje news:ee$KVisXK...@TK2MSFTNGP05.phx.gbl...