
24/07/2003, 10:41
|
 | | | Fecha de Ingreso: diciembre-2002 Ubicación: santiago-chilito
Mensajes: 1.931
Antigüedad: 22 años, 2 meses 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 |