RE:fechas fechas fechas fechas fechas fechas fecha
' Necesitamos dos variables de tipo cadena, una para cada fecha: inicio y fin.
' Las llamamos:
' FECHA1, para la fecha de inicio.
' FECHA2, para la fecha final.
Dim fecha1 As String
Dim fecha2 As String
'Establecemos el contenido de las variables. Se usa DateValue(texto.text) para convertir
'el text de las cajas de texto en formato fecha.
fecha1 = DateValue(TextFecha1.Text)
fecha2 = DateValue(TextFecha2.Text)
sentencia = "SELECT * FROM chekes WHERE fecha BETWEEN "
sentencia = sentencia & "#" & fecha1 & "#"
sentencia = sentencia & "and"
sentencia = sentencia & "#" & fecha2 & "#"
sentencia = sentencia & "ORDER BY FECHA"
Data1.RecordSource = sentencia
Data1.Refresh