Crystal Report - Aclaracion

   
Vista:

Aclaracion

Publicado por miguele (3 intervenciones) el 17/04/2008 11:59:39
Asi he puesto la funcion y la formula pero sin embargo me da error en la formula y no se que puede ser

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Aclaracion

Publicado por Juan Pablo (5 intervenciones) el 18/04/2008 18:50:58
Proba poniendo unos numerales (#) a las fechas. Te quedaria asi:

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 & "3# and {existencias.Fecha} < #" & DTPicker2.Value & "#"
CrystalReport1.SelectionFormula = cadena
CrystalReport1.Action = 1
End Sub

Creo que alguna vez esto me soluciono el mismo problema.

Espero haber colaborado en algo.

Saludos, Juan Pablo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar