27/07/2006, 17:02
|
| | | Fecha de Ingreso: febrero-2004
Mensajes: 138
Antigüedad: 21 años, 2 meses Puntos: 2 | |
| Intenta sacandolo del textbox e incluirlo en el codigo, o sea que quede asi:
Private Sub TxTfeCHa_Change()
If TxTfeCHa <> "" Then
Dataconsul.rsTturnoS.Filter = "fecha LIKE #" + TxTfeCHa + "#"
Else
Dataconsul.rsTturnoS.Filter = ""
DataGrid1.Refresh
End If
End Sub
Espero que te sirva :)
__________________
De mucho estudiar nadie se murió, pero mas vale no arriesgarse |