Omitir acentos y orden de las palabras en un motor de búsqueda en access
Publicado por Guillermo Delgado (5 intervenciones) el 01/04/2021 04:13:44
Hola amigos, tengo este motor de búsqueda en access, pero quisiera que omitiera los acentos y el orden de las palabras.
De antemano muchas gracias..!!
De antemano muchas gracias..!!
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub btnBuscar_Click()
Dim Consulta As String
Consulta = "SELECT Ficha, Clasificacion, Creador, Titulo, Todos "
Consulta = Consulta & "FROM Consulta "
Consulta = Consulta & "WHERE Ficha Like '*" & Me.txtBusqueda & "*' OR Clasificacion Like '*" & Me.txtBusqueda & "*' OR Creador Like '*" & Me.txtBusqueda & "*' OR Titulo Like '*" & Me.txtBusqueda & "*' OR Todos Like '*" & Me.txtBusqueda & "*'"
Me.Lista.RowSource = Consulta
End Sub
Private Sub btnLimpiar_Click()
Me.Lista.RowSource = "SELECT Ficha, Clasificacion, Creador, Titulo, Todos FROM Consulta"
End Sub
Valora esta pregunta
0
