Cita:
Tio volviendo al inicio del post, no entiendo tu codigo te voy a dar un ejemplo que utilizo para mostrar un reporte con el datareport utilizando un rango de fechas entre 2 DTPicker's solo cambiale la consulta SQL, si con esto no lo resuelves que dios te ayude jeje
Iniciado por gasafonso
Private Sub CmdRanking_Click()
If DsrListado.rscmdRanking.State = adStateOpen Then
DsrListado.rscmdRanking.Close
End If
DsrListado.CmdRanking Format(DTPicker1.Value, "mm/dd/yyyy"), Format(DTPicker2.Value, "mm/dd/yyyy") 'DsrListado.CmdRanking DTPicker1.Value, DTPicker2.Value ',txtarticulos,
Load DtRepRanking
DtRepRanking.Show................................. ...............
el problema es que si le pongo la misma fecha a los dtpicker me tira bien el informe pero si le pongo fechas distintas me pone cualquier cosa

Private Sub CmdRanking_Click()
If DsrListado.rscmdRanking.State = adStateOpen Then
DsrListado.rscmdRanking.Close
End If
DsrListado.CmdRanking Format(DTPicker1.Value, "mm/dd/yyyy"), Format(DTPicker2.Value, "mm/dd/yyyy") 'DsrListado.CmdRanking DTPicker1.Value, DTPicker2.Value ',txtarticulos,
Load DtRepRanking
DtRepRanking.Show................................. ...............
el problema es que si le pongo la misma fecha a los dtpicker me tira bien el informe pero si le pongo fechas distintas me pone cualquier cosa
Código:
Dim rsFactura As Recordset Private Sub cmdAceptar_Click() Dim Sql As String Set rsFactura = New Recordset Sql = "SELECT F.numfactura,F.fecha,F.codclie,F.total,F.igv,F.totalfinal FROM factura F WHERE F.fecha BETWEEN #" & Format(dtpDesde, "mm/dd/yyyy") & "# AND #" & Format(dtpHasta, "mm/dd/yyyy") & "#" rsFactura.Open Sql, dbConex, adOpenStatic, adLockOptimistic Set drVentas.DataSource = rsFactura End Sub