Control Filtro

Limpiar el filtro y filtrar un control filtro (cntFiltroUsuario).
ControlFiltro.fitrar
ControlFiltro.limpiafiltro

Ver código ejemplo

' Esta rutina añade dos condiciones a un filtro
Sub filtrar

     Dim lfil 'As AhoraOCX.cntFiltroUsuario

     Set lfil = gForm.Controls("filMtmto")(0)

     'Me.AgregaCondicion aCampo, aCond, aValor, [aConector]

     lfil.limpiafiltro

     lfil.AgregaCondicion "Descrip","LIKE ","%Ingl%","AND"

     lfil.AgregaCondicion "IdIdioma",">= ","1","AND"

     lfil.Filtra
End Sub

Autor: Daniel Ernesto Lutz Llano