10/01/2005, 09:44
|
 | | | Fecha de Ingreso: mayo-2004 Ubicación: México
Mensajes: 2.702
Antigüedad: 20 años, 9 meses Puntos: 0 | |
| Primero te recomiendo cambiar el text por un DTPicker (Proyecto->componentes y selecionas Microsoft Common Controls XXXX) este es ocmo un combo pero solo admite fechas pone como un calendario.
En el load pones:
DTPicker1.Value = Day(Now) & "/" & Month(Now) & "/" & Year(Now)
Esto para actualizar la fecha a la actual
Ahora en que esta la BD por que algunos primero va dia/mes/año en otros mes/dia/año y si es an access va entre ##:
Por ejemplo tu select en access:
text2.text=tbl.openrecordset("select * from calendar where fecha=" & #" & DTPicker1.Month & "/" & DTPicker1.Day & "/" & DTPicker1.Year & "#)
Con tu text:
text2.text=tbl.openrecordset("select * from calendar where fecha='" & Text1.Text & "'") |