Busquedas ignorando los acentos??

[Homerorz]

como puedo extraer informacion de una base de datos en access, ignorando los acentos de las palabras en los registros , con el fin de facilitar la busqueda a los usuarios. osea que cuando los usuarios introduzcan el texto en el formulario no importe si lo hacen utilizando los acentos o no.

PD Como pueden ver los usuarios generalmente no usan los acentos , yo soy el vivo ejemplo.

[Fr@Nc3$c0]

Hace un tiempo expusieron una función que quita los acentos:

Function QuitarAcentos (Str)
For I=1 To Len(Str)
Aux = Mid (Str, I, 1)
Select Case Aux
Case "Á","À","Â","Ä"
QuitarAcentos = QuitarAcentos & "A"
Case "É","È","Ê","Ë"
QuitarAcentos = QuitarAcentos & "E"
Case "Í","Ì","Î","Ï"
QuitarAcentos = QuitarAcentos & "I"
Case "Ó","Ò","Ô","Ö"
QuitarAcentos = QuitarAcentos & "O"
Case "Ú","Ù","Û","Ü"
QuitarAcentos = QuitarAcentos & "U"
Case "Ý"
QuitarAcentos = QuitarAcentos & "Y"
Case "á","à","â","ä"
QuitarAcentos = QuitarAcentos & "a"
Case "é","è","ê","ë"
QuitarAcentos = QuitarAcentos & "e"
Case "í","ì","î","ï"
QuitarAcentos = QuitarAcentos & "i"
Case "ó","ò","ô","ö"
QuitarAcentos = QuitarAcentos & "o"
Case "ú","ù","û","ü"
QuitarAcentos = QuitarAcentos & "u"
Case "ý"
QuitarAcentos = QuitarAcentos & "y"
Case else
QuitarAcentos = QuitarAcentos & Aux
End Select
Next

Apartir de ahí, puedes realizar tu búsqueda

Saludos.

[Homerorz]

Muchas Gracias Fr@Nc3$c0 esa funcion me ha funcionado a la perfeccion..

[Fr@Nc3$c0]

De nada, para eso estamos porque a todos nos gustan las ayudas de evz en cuando

Por cierto, bienvenido a los foros.

Saludos y suerte