Pregunta: | 66009 - BUSQUEDA CON Y SIN ACENTOS |
Autor: | rafa |
En mi formulario a partir de un cuadro combinado con nombre "cboCampo" selecciono un campo donde buscar y escribo en un textbox de nombre "txtBusca" un valor perteneciente a ese campo. Finalmente tengo un botón de nombre "cmdBusca" que al hacer clic me busca filtrado lo que he escrito en el texbox. El problema es que me gustaría que me buscara tanto los valores con acento como los que no lo llevan es decir que si escribo en el textbox "maria" al pulsar el botón "cmdbusca" me encontrara "maría" y "maria". Indico el código de búsqueda. Querría incorporar el codigo necesario para buscar con y sin acentos. Gracias por la ayuda Private Sub cmdBusca_Click() 'Definimos las variables Dim vCamp as String, vText as String Dim miFiltro as String 'Cogemos los valores seleccionados vCamp = Nz(Me.cboCampo.Value,"") vText = Nz(Me.txtBusca.Value,"") 'Si no hay valor en el combo o en el textbox sale del proceso If vCamp = "" Or vText = "" Then Exit Sub 'Creamos el filtro miFiltro = "[" & vCamp & "] LIKE '*" & vText & "*'" 'Aplicamos el filtro al formulario me.Filter = miFiltro 'Activamos el filtro me.FilterOn = True End Sub |