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

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