This Text file is old! In a 🏛️Museum, an unsorted archive of (user-)pages. (Saved from Geocities in Oct-2009. The archival story: oocities.org)
--------------------------------------- (To 🚫report any bad content: archivehelp @ gmail.com)

Tengo una peque�a aplicaci�n, uno de cuyos campos es un 
campo memo con cantidad de informaci�n. Me han pedido que 
cuando realicen una b�squeda que no distinga los acentos, 
es decir, por ejemplo, en una b�squeda de registros que 
contengan la palabra "calefacci�n" deber�a sacar tanto los 
que tienen la o acentuada como los que no la tienen.

�Hay alguna manera de conseguir esto?


RESPONDE EDUARDO OLAZ
=====================

Debes pasar tanto el campo del query como el par�metro a comparar por una
funci�n que quite acentos.

Aqu� te adjunto una que te podr�a servir:

Para que te distinga may�sculas y min�sculas debes quitar la l�nea
        [Option Compare Database]
que aparece al principio del m�dulo en el que escribas la funci�n

_______________________________________________

Public Function CadenaSinAcentos(ByVal Cadena As String) As String
    Dim strCaracter As String
    Dim i As Long
    For i = 1 To Len(Cadena)
        strCaracter = Mid(Cadena, i, 1)
        Select Case strCaracter
            Case "�", "�", "�", "�", "�", "�"
                strCaracter = "a"
            Case "�", "�", "�", "�"
                strCaracter = "e"
            Case "�", "�", "�", "�"
                strCaracter = "i"
            Case "�", "�", "�", "�", "�"
                strCaracter = "o"
            Case "�", "�", "�", "�"
                strCaracter = "u"
            Case "�", "�"
                strCaracter = "y"
            Case "�", "�", "�", "�", "�", "�"
                strCaracter = "A"
            Case "�", "�", "�", "�"
                strCaracter = "E"
            Case "�", "�", "�", "�"
                strCaracter = "I"
            Case "�", "�", "�", "�", "�"
                strCaracter = "O"
            Case "�", "�", "�", "�"
                strCaracter = "U"
            Case "Y", "�"
                strCaracter = "Y"
        End Select
        CadenaSinAcentos = CadenaSinAcentos & strCaracter
    Next i
End Function