22/02/2006, 09:08
|
 | | | Fecha de Ingreso: junio-2005 Ubicación: Somewhere between Heaven and Hell
Mensajes: 415
Antigüedad: 19 años, 3 meses Puntos: 0 | |
Listo!
Les paso el codigo: Cita: Private Sub Text1_Change()
On Error Resume Next
With Form4
If Text1.Text = "" Then
.rsusuario.Filter = ""
.rsusuario.Update
Set MSHFlexGrid1.DataSource = .rsusuario
Else
.rsusuario.Filter = "usuario LIKE " & "'" & Text1.Text & "*'"
Set MSHFlexGrid1.DataSource = .rsusuario
End If
End With
End Sub Salu2!
__________________
diegoz.com.ar
Última edición por Frehley; 22/02/2006 a las 09:15 |