![Antiguo](http://static.forosdelweb.com/fdwtheme/images/statusicon/post_old.gif)
24/07/2003, 10:41
|
![Avatar de mveraa](http://static.forosdelweb.com/customavatars/avatar29282_1.gif) | | | Fecha de Ingreso: diciembre-2002 Ubicación: santiago-chilito
Mensajes: 1.931
Antigüedad: 22 años, 1 mes Puntos: 2 | |
gracias de todas maneras ya encontre la solucion es asi:
Private Sub Text15_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 And Text15.Text <> "" Then
If Text15 <> "" Then
datos.Recordset.Filter = " marca like '*" + Text15 + "*'"
Text15.Text = ""
Else
Text15.Text = ""
datos.Recordset.Filter = ""
datos.Refresh
End If |