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
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
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