|
David, gracias por tu intento. Me sigue dando error. Te paso el código. Cuando ejecuto haciendo click en OKboton, me da error en la fórmula como que la parte de fechas no pertenece a la fórmula. Por otra parte, el Crystal Report tiene definido el campo como fecha-hora. Lo necesito urgente. Muchas gracias.
Dim fecha1 As Date, fecha2 As Date
Option Explicit
Private Sub OKButton_Click()
NroEELC = Combo1.Text
'NumBomba = Combo2.Text
fecha1 = CDate(Text4.Text)
fecha2 = CDate(Text5.Text) + 1
MsgBox fecha1 & fecha2
Ati1 = Format(fecha1, "yyyy,mm,dd,hh,mm,ss")
Ati2 = Format(fecha2, "yyyy,mm,dd,hh,mm,ss")
MsgBox Ati1 & Ati2
CrystalReport1.SelectionFormula = "{Estados_Bombas.EELC}=" & NroEELC & ",{Estados_Bombas.Fecha_Hora}>=" & Ati1 & ",{Estados_Bombas.Fecha_Hora}<=" & Ati2
CrystalReport1.Action = 1
End Sub
|