Imprimir Página - FILTRAR UN MSHFlexGrid

Buenas tardes con todos, una consulta, quisiera poder realizar un Filtro a mi MSHFlexGrid, y que solo muestre lo que estoy buscando. Estuve buscando y solo encontré dos maneras pero no me realiza ninguna búsqueda, por favor su apoyo.
adjunto códigos utilizados

por favor su apoyo

Código:

Private Sub Text1_Change()

On Error Resume Next
    Dim cBuscar As String
    If Text1.Text = "" Then Exit Sub
    cBuscar = "Tarjeta LIKE '%" & Text1.Text & "%'"
    rs.MoveFirst
    rs.Find (cBuscar)
'    End If

End Sub

Código:

Private Sub Filtrar_click()
 
    Dim sFiltro As String
    
    If Text1.Text <> 0 Then
       sFiltro = "tarjeta LIKE '%" & Text1.Text & "%'"
    If Len(Trim(sFiltro)) = 0 Then
        cnn.Filter = adFilterNone
    Else
        cnn.Filter = sFiltro
    End If
    cnn.Requery
    Set MSHFlexGrid.Recordset = cnn
    
End Sub

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: omarzinho86 en 22 Septiembre 2014, 19:39 pm