Ver Mensaje Individual
  #2 (permalink)  
Antiguo 24/07/2003, 10:41
Avatar de mveraa
mveraa
 
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