Ayuda con Crystal

Lito
16 de Julio del 2004
se como pasar parametros a crystal desde visual basic cuando se trata de un campo en especifico, por ej: rut, nombre o codigo
pero necesito realizar una busqueda por rango de fechas, como le hago en el crystal para que mediante dos parametros fecha1 y fecha2 me lance los datos de ese rango
si puedes ayudarme por favor, gracias

Estrambotica
16 de Julio del 2004
Debes insertar el objeto de crystalreport
ahora este el codigo
CrystalReport1.Reset
'selecciona ruta y nombre del reporte
CrystalReport1.ReportFileName = App.Path & "egresos.rpt"
If Me.Text1 <> "" And Me.Text2 <> "" Then
'seleccionas la tabla y el campo de la fecha q sea igual o mayor a la fecha inicial q le estas dando y menor igual a la mayor
sselection = "{egreso.fecha_ret} >=#" & Me.Text1.Text & "# and " & "{egreso.fecha_ret} <=#" & Me.Text2.Text & "#"
'un parametro para q salga el rango de la fecha impreso en el reporte
rango_fec = "Desde: " & Me.Text1.Text & " Hasta: " & Me.Text2.Text
CrystalReport1.Formulas(1) = "fecha=' " & rango_fec & "'"
'opcion si es por impresora o pantalla
If Optio6 = True Then CrystalReport1.Destination = 0
If Optio5 = True Then CrystalReport1.Destination = 1
CrystalReport1.ReplaceSelectionFormula (sselection)
CrystalReport1.PrintReport

listo... espero q te sirva :-) bye

Lito
16 de Julio del 2004
ahora me tira el error 20534
La dll de la BD ha detectado este error
ke puede ser
por favor y muchas gracias por tu ayuda

Estrambotica
16 de Julio del 2004
:-( nunca me ha dado!!! pero si me mandas la pantalla y la base de datos para ver a ver q esta pasando si te puedo ayudar!!! [email protected]

Estrambotica
16 de Julio del 2004
uhm... en el codigo q te mande falta un end if al final se lo colocastes???

Lito
16 de Julio del 2004
Estrambotica
sabes ya arregle el problema,
en el crystal le puse Cdate a las fechas ke mandaba como parametro y ya no salio el error de la dll
gracias por tu ayuda

ANDRES
16 de Julio del 2004
ASIGNAR A UN DTPICKER O COMBO BOX

agencia = codigo.Text
fecha1 = fechaini.Value
fecha2 = fechafin.Value



Set rs = db.OpenRecordset( _
"SELECT * FROM estado WHERE codigo= '" & _
agencia & "' and Day(fecha)>='" & Day(fecha1) & "' and Day (fecha)<= '" & Day(fecha2) & "'")