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)) & "%'"…