Access - Formato texto sin diéresis?

Que tal amigos,
Tengo un problema con un buscador que hice, el tema es que en un cuadro de texto coloco el apellido y el nombre de la persona que busco y mediante un botón de comando filtro una tabla y me trae a mi formulario la persona que indicada, hasta ahí perfecto.... el tema es cuando quiero encontrar a alguna persona que se llama AGUERO por ejemplo le coloca automáticamente la diéresis... es decir coloca AGÜERO y como en la tabla no existe no lo encuentra.... cómo puedo hacer para solucionar esto??

Gracias!!

En el evento del botón colocas una funcion que te sustituya los caracteres raros con los que itilizas en tu base de datos.

y luego invocas al filtro.

Saludos!

www.sgh.com.mx

Hola Mariel : Te dejo un enlace a la página del "Buho" que te lo explica.

http://www.mvp-access.com/buho/ficheros/quitaracentosponer.txt

Espero que te sea útil.

QUIQUE

Las soluciones aportadas por CHEA Y EDUARDO OLAZ y por JUAN M AFAN DE RIBERA en el
http://www.mvp-access.com/buho/ficheros/quitaracentosponer.txt son correctas

esta es una solución más :

BUSCA EN una cadena de texto si existe una letra y si existe la cambia, esto es lo que hace

Es un poco laboriosa si quieres controlar todos los caracteres, pero es efectiva

Transormas el dato que te viene de la tabla y lo pasas a la variable strText0 y despues lo comparas con la que buscas


If InStr(strText0, "á") > 0 Then strTexto = Replace(strTexto, "á", "a")
If InStr(strText0, "é") > 0 Then strTexto = Replace(strTexto, "é", "e")
If InStr(strText0, "í") > 0 Then strTexto = Replace(strTexto, "í", "i")
If InStr(strText0, "ó") > 0 Then strTexto = Replace(strTexto, "ó", "o")
If InStr(strText0, "ú") > 0 Then strTexto = Replace(strTexto, "ú", "u")
If InStr(strText0, "ü") > 0 Then strTexto = Replace(strTexto, "ü", "u")
If InStr(strText0, "Á") > 0 Then strTexto = Replace(strTexto, "Á", "A")
If InStr(strText0, "É") > 0 Then strTexto = Replace(strTexto, "É", "E")
etc ...

Gracias a todos!!!