Access - Resta continua de cantidades de un recordset de un valor dado en un formulario

Buenas tardes Programadores

Tengo una base de datos en access, para la tabla tengo una serie de registros, cada uno de esos registros tiene un número que representa una cantidad de producto que se requiere; desde un formulario he creado un campo al cual le dígito una cantidad cualquiera y le coloque un botón para que al dar clic corra la siguiente rutina.

1. Tome el valor digitado en el campo del formulario y lo reste de la cantidad requerida del primer registro. luego
2. Tome ese nuevo saldo y lo reste de la cantidad requerida del segundo registro y así sucesivamente para los demás registros del recordset.

Lo único que he logrado es que haga la primera transacción, pero no logro que el bucle trabaje con los otros registros.

Los campos de la tabla son:

Proyecto - Código - Cant_RQ - Saldo
1341 1-ACERO 4
1342 1-ACERO 6
1343 1-ACERO 7
1344 1-ACERO 8

La rutina que he programado es la siguiente:

Private Sub Comando4_Click()

Dim db As Database
Dim rs As DAO.Recordset
Dim SUM As Integer
Dim J As Integer
Dim N As Integer
Dim I As Variant
Dim M As Integer
Dim SUMA As Integer


Set db = CurrentDb
Set rs = db.OpenRecordset("consulta1")

If rs.RecordCount <> 0 Then 'HAY REGISTROS
End If

SUM = 0
N = rs.RecordCount

rs.MoveLast
rs.MoveFirst
rs.Edit

For I = 1 To N
J = rs.Fields("CANT_RQ")
SUM = SUM + J
rs.Fields("SALDO") = SUM
rs.Fields("ESTADO") = 150
Next I
SUM = rs.Fields("SALDO")
rs.Update
rs.Close
Me.Refresh
Set rs = Nothing
End Sub

Agradezco si me pueden ayudar, pues no he logrado solucionar este problema.

Si requieren copia de la base de datos de prueba mi correo es [email protected]

Jimmy Alberto Pulido

Así, a bote pronto observo que te falta el "edit" para cada registro que lees.

asi mirandolo un poco por encima veo que te falta rs.movenext



For I = 1 To N
J = rs.Fields("CANT_RQ")
SUM = SUM + J
rs.Fields("SALDO") = SUM
rs.Fields("ESTADO") = 150

rs.movenext : rem esto te falta

Next I

y si quieres modificar todos los registros estos tiene que estar en el bucle


For I = 1 To N
J = rs.Fields("CANT_RQ")
SUM = SUM + J
rs.Fields("SALDO") = SUM
rs.Fields("ESTADO") = 150


SUM = rs.Fields("SALDO")
rs.Update

Next I



rs.movenext : rem esto te falta



rs.Close

Hola.

Aparte de lo que te dice 2pl veo que falta un rs.MoveNext en el bucle For...Next para que cambie de registro. Tampoco me convence mucho el bucle. También haces una comprobación que no entiendo: If rs.RecordCount <> 0 Then End If. Si hay registros no hace nada y si no los hay, tampoco.

Prueba con ésto a partir de la declaración de variables:



Un saludo.

Norberto

Muchas gracias por el código, hice las correcciones que me mencionó y funciona Perfecto. Gracias.

Jose y 2pl gracias por sus aportes.

Buenos días Programadores

Gracias a su colaboración he logrado que la rutina haga lo que esperaba, pero me surgieron unas inquietudes sobre la manera de optimizar las sentencias condicionales que planteo en la rutina; y la otra es sobre el formato de los datos ya que indico que las variables son de tipo integer pero cuando actualizo me redondea las cantidades que llevan decimales. el código es el siguiente:



Agradezco las sugerencias sobre el mismo. Gracias.

Hola de nuevo.

En cuanto a los condicionales no veo nada que pueda ser simplificado. Por lo que respecta a las conversiones es así. Al asignar a una variable entera un valor decimal se almacena redondeado, por defecto o por esceso, al entero más próximo. Si quieres que siempre se redondee a la baja usa Int(...) ¡OJO! al decir a la baja significa que los positivos van a menos positivos y los negativos a más negativos (3.5 -> 3 y -3.5 -> -4). Que yo recuerde no hay ninguna función que trunque los decimales (3.5 -> 3 y -3.5 -> -3).

Un saludo.

Norberto Gracias.