Filtro múltiple (like ‘%código%’ and like ‘%fuente%’)

Esta función les va a servir un montón cuando tengan que hacer filtros ya sea con la propiedad filter del RecordSet o haciéndolo en consulta

Solo tienen que pasarle como parámetros lo que va a buscar
Ejemplo:
FiltroMultiple “Juan Pérez”,”Nombre”
Y les va a crear el Filtro así:

Nombre like ‘%Juan%’ and Nombre like ‘%Perez%’

Private Function FiltroMultiple(strCadena As String,strCampo as String) As String
Dim strFiltro As String
Dim Posicion As Byte
While Len(strCadena) > 0

Posicion = InStr(2, Trim(strCadena), " ")
If Posicion = 0 Then

FiltroMultiple = strFiltro & strCampo & " like '%" & ReemplazaComilla(Trim(strCadena)) & "%'"
Exit Function
Else
strFiltro = strFiltro & StrCampo & " like '%" & ReemplazaComilla(Mid(Trim(strCadena), 1, Posicion - 1)) & "%' and "
strCadena = Mid(strCadena, Posicion + 1)
End If
Wend
End Function

Si desean con Or, o le agregan un parámetro mas o le cambian el and por el Or en la función


Posted

in

by

Comments

Una respuesta a “Filtro múltiple (like ‘%código%’ and like ‘%fuente%’)”

  1. Juana Avatar
    Juana

    Quiero saber el código de likee por que la aplicación no me lo envía

Agregue un comentario a Juana Cancelar respuesta

Su dirección de correo no se hará público. Los campos requeridos están marcados *