Filtrar con datos en un Combobox

[kikevar]

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

[culd]

Fijate si se entiende

Código:

Private Sub cmdaceptar_Click()

Dim dataventa As ADODB.Command
Dim Entorno As dataventa

usuario = cbxusuarios.List(cbxusuarios.ListIndex)   'Esto te lo modifique
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
'Aca te lo modifique tambien
If usuario <> "" Then   'Si selecciono algo, entonces usuario tiene un valor (quiere decir que hay que filtrar por usuario)
    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'"
Else
    'en este caso, como no selecciono nada, que no filtre por usuario
    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") & "#, SUM(acmcortez.'Total_CorteZ') AS SumaTotal BY 'Id_Usuario'"
End If
    Load rptvtaxusuario
    rptvtaxusuario.Show 1, frmventausuario
    
Unload Me

End Sub

[kikevar]

Muchas gracias Culd me funciono de maravilla, nada mas una pregunta, la modificacion que le hiciste en el conbobox

usuario = cbxusuarios.List(cbxusuarios.ListIndex) 'Esto te lo modifique

que significa?, para saber que es y no solo hacerlo asi por que me lo digiste

Gracias de nuevo

[culd]

Iniciado por kikevar

Muchas gracias Culd me funciono de maravilla, nada mas una pregunta, la modificacion que le hiciste en el conbobox

usuario = cbxusuarios.List(cbxusuarios.ListIndex) 'Esto te lo modifique

que significa?, para saber que es y no solo hacerlo asi por que me lo digiste

Gracias de nuevo

Vos estabas usando asi:

usuario = cbxusuarios.Text

Lo que hace es asignar el valor de texto que tiene el combo... Eso es un problema a la hora si el usuario escribe algo manualmente que no es lo que incluida el combo... o si por default vos por ejemplo pones "Seleccione una opcion" va a salir eso... En cambio de la forma que yo te puse si la persona escribio algo no sale nada... Es para evitar errores.

[kikevar]

Muchas gracias por tu ayuda y por aclararme la duda

Que tengas una tarde excelente