Hola de nuevo y aqui otraves con molestias ojala me puedan ayudar, en mi programa en VB6 mando llamar los reportes hechos en data report y los filtro mediante un dato seleccionado en un combobox y las fechas en 2 datapiker, ok aqui todo muy bien.
En el combobox selecciona el Id de los usuarios para que me mande las ventas de ese usuario en un rango de fechas, mi problema es como le hago para que si no selecciono ningun Id me mande el reporte con las ventas de todos los usuarios.
Asi llamo el reporte:
Código:
Private Sub cmdaceptar_Click()
Dim dataventa As ADODB.Command
Dim Entorno As dataventa
usuario = cbxusuarios.Text
fechaini = dtpdel.Value
fechafin = dtpal.Value
Set Entorno = New dataventa
Entorno.dataventa.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=\\195.168.1.1\Estacionamiento\PV\venta1.mdb"
Set dataventa = Entorno.Commands("acmcortez_Grouping")
dataventa.CommandType = adCmdText
dataventa.CommandText = "SHAPE {SELECT CorteZ.Fecha_Corte, CorteZ.Cantidad_Folios, CorteZ.Folio_Cortez, CorteZ.Total_CorteZ, Usuarios.Nombre, Usuarios.Apellido_Paterno, CorteZ.Id_Usuario, Usuarios.Id_Usuario AS Expr1 FROM CorteZ, Usuarios WHERE CorteZ.Id_Usuario = Usuarios.Id_Usuario and CorteZ.Fecha_Corte between #" & Format(fechaini, "mm/dd/yyyy") & "# and #" & Format(fechafin, "mm/dd/yyyy") & "# and Usuarios.Id_Usuario = '" & usuario & "'} AS acmcortez COMPUTE acmcortez, SUM(acmcortez.'Total_CorteZ') AS SumaTotal BY 'Id_Usuario'"
Load rptvtaxusuario
rptvtaxusuario.Show 1, frmventausuario
Unload Me
End Sub
Private Sub cmdsalir_Click()
Unload Me
End Sub
Private Sub Form_Load()
Set rs = New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=\\195.168.1.1\Estacionamiento\PV\venta1.mdb"
rs.Source = "Venta"
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open "select Id_Usuario from Usuarios", cn
Do While Not rs.EOF
cbxusuarios.AddItem rs.Fields("Id_Usuario")
rs.MoveNext
Loop
rs.Close
cn.Close
dtpdel.Value = Now
dtpal.Value = Now
End Sub
Espero me puedan ayudar de antemano gracias