Corte Z en PV con VB6

[kikevar]

Hola buenas tardes

Creo que no supe como plantear mi pregunta anteriormente, lo que necesito es sumar un rango de registros en el campo total de mi base de datos para sacar el total de la venta por turno, si m pudieran ayudar se los agradesere mucho, me supongo que lo puedo filtrar por la fecha que tambien la guardo en la base de datos.

Gracuas de antemano

[franko1809]

yo lo hago de la siguiente manera aunque espero distingas el nombre del campo y la variable que tienen el mismo nombre "subtotal"

Código:

Sub Calculos()
    If rsTemporal.RecordCount > 0 Then
        Dim SubTotal As Double
        rsTemporal.MoveFirst
        Do
            SubTotal = SubTotal + rsTemporal.Fields("SubTotal")
            rsTemporal.MoveNext
        Loop While Not rsTemporal.EOF
        TxtTotal = SubTotal
    End If
End Sub

saludos

[Avellaneda]

Iniciado por kikevar

Hola buenas tardes

Creo que no supe como plantear mi pregunta anteriormente, lo que necesito es sumar un rango de registros en el campo total de mi base de datos para sacar el total de la venta por turno, si m pudieran ayudar se los agradesere mucho, me supongo que lo puedo filtrar por la fecha que tambien la guardo en la base de datos.

Gracuas de antemano

Para sumar las ventas del día de hoy (en una BD Access):

sql = "SELECT Sum(CampoVenta) AS TotalDia FROM LaTabla WHERE CampoFecha = #" & Format(Date, "mm/dd/yyyy") & "#"

Aplica esta consulta a un recordset y el total = recordset!TotalDia

[kikevar]

Mucahas Gracias a los dos me funcione mejor el de Avellaneda, ahora nada mas una consulta mas como puedo filtrar con dos datos, por ejemplo fecha y estatus.

Gracias de nuevo

[David]

Solo tienes que usas los operadores lógicos AND (para comprobar ambas coincidencias) u OR (para comprobar si alguno de los dos coincide, o sea:

Código sql:

SELECT * FROM Tabla WHERE Fecha=11/07/2008 AND STATUS=1