selectionformula entre dos fecha
Publicado por denisin (6 intervenciones) el 27/09/2005 22:45:20
hola que tal
necesito una ayudita en lo siguiente
necesito hacer un reporte sobre las personas que deben presentarse a determinado lugar en un rango de fecha es decir por ejmplo del 1/09/2005 al 30/09/2005
para esto hice mi reporte en crystal report y hice una forma en vb donde coloque un txbox para la fecha inicial y un txtbox para la fecha final.
en el boton d ver repore puso el siguiente codigo
Private Sub Cmdvreporte_Click()
Dim fechainic As Date
Dim fechafinal As Date
fechainic = MaskEdBox1.Text
fechafinal = MaskEdBox2.Text
CrystalReport2.ReportFileName = App.Path & "\reporte2.rpt"
'CrystalReport2.DataFiles(0) = App.Path & "\CONTROL DE TARJETA CELESTE.mdb"
CrystalReport2.DiscardSavedData = True
CrystalReport2.SelectionFormula = "{T_Generales.FechaPresentacion}> date (" & Year(fechainic) & "," & Month(fechainic) & "," & Day(fechainic) & ") And {T_Generales.FechaPresentacion}< Date(" & Year(fechafinal) & "," & Month(fechafinal) & "," & Day(fechafinal) & ")"
CrystalReport2.Action = 1
End Sub
pero me mada un error en formula alguien podria decirme si esta bien escrita la formula y como deberia se si no est abien please gracias
necesito una ayudita en lo siguiente
necesito hacer un reporte sobre las personas que deben presentarse a determinado lugar en un rango de fecha es decir por ejmplo del 1/09/2005 al 30/09/2005
para esto hice mi reporte en crystal report y hice una forma en vb donde coloque un txbox para la fecha inicial y un txtbox para la fecha final.
en el boton d ver repore puso el siguiente codigo
Private Sub Cmdvreporte_Click()
Dim fechainic As Date
Dim fechafinal As Date
fechainic = MaskEdBox1.Text
fechafinal = MaskEdBox2.Text
CrystalReport2.ReportFileName = App.Path & "\reporte2.rpt"
'CrystalReport2.DataFiles(0) = App.Path & "\CONTROL DE TARJETA CELESTE.mdb"
CrystalReport2.DiscardSavedData = True
CrystalReport2.SelectionFormula = "{T_Generales.FechaPresentacion}> date (" & Year(fechainic) & "," & Month(fechainic) & "," & Day(fechainic) & ") And {T_Generales.FechaPresentacion}< Date(" & Year(fechafinal) & "," & Month(fechafinal) & "," & Day(fechafinal) & ")"
CrystalReport2.Action = 1
End Sub
pero me mada un error en formula alguien podria decirme si esta bien escrita la formula y como deberia se si no est abien please gracias
Valora esta pregunta


0