Sentencia SQL para lograr el Ranking de los 5 productos mas vendidos

[franko1809]

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

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

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