• Lunes 18 de Noviembre de 2024, 01:41

Autor Tema:  Informe Filtrado Entre 2 Fechas  (Leído 1126 veces)

miguele_lopez

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Informe Filtrado Entre 2 Fechas
« en: Jueves 17 de Abril de 2008, 12:07 »
0
He leido que habia problemas con las fechas y cristal report. utilizo la 4.6. Quiero filtrar un informe entre 2 Fechas que indroduzco en un formulario con un DataPicker.
al Lanzar el informe me da error en la formula. quisiera saber si hay que hacer algo diferente si se trata de fechas. Aqui dejo el codigo muxas gracias.




Private Sub cmdImprimir_Click()
Dim cadena As String

If DateValue(DTPicker1.Value) > DateValue(DTPicker2.Value) Then
    MsgBox "La Fecha de Inicio no puede ser Mayor a la Fecha Final"
    Exit Sub
End If
CrystalReport1.Destination = 0
CrystalReport1.ReportFileName = App.Path & "\existencias2.rpt"
cadena = "{existencias.Fecha} >= " & DTPicker1.Value & " and {existencias.Fecha} < " & DTPicker2.Value
CrystalReport1.SelectionFormula = cadena
CrystalReport1.Action = 1
End Sub