tengo una formulario llamado facturas con un subformulario dentro llamado subform y dentro de este tengo registros de nombres y de cantidad y precio.
cree un botón con el siguiente código que actiliza la cantidad del nombre en otra tabla llamada tblproductos y también inserta nombre,cantiad y precio en otra tabla llamada
tblcompras
SQL = "UPDATE tblproductos SET tblproductos.existencia=tblproductos.existencia+" & Me.subform.form.cantidad.Value & " WHERE tblproductos.idproducto = " & Me.subform.Form.idproducto.Value & " "
DoCmd.RunSQL SQL, False
SQL1 = "INSERT INTO tblcompras(nombre,cantidad,precio) values (" & Me.subform.Form.idproducto.Value & "," & Me.subform.Form.cantidad.Value & "," & Me.subform.Form.precio.Value & ")"
DoCmd.RunSQL SQL1, False
End Sub
Mi problema es que solo el código funciona para un registro del formulario, para 2 o mas ya no se como se hace, agradecería mucho su ayuda
nunca lo e usado pero debe de ser igual a cualkier VB...
--------------------
Hola:
¿Lo quieres hacer por código?...
Necesitas en una variable tipo recordset, para mandar la consulta o la tabla... ahora hay que "refrescar", para saber cuantos registros hay se utiliza la propiedad recordcount de la variable... miramos un ejemplo sencillo...
********************
Dim MiReg as Dao.recordset
sql = "select * from MiTabla;"
Set Mireg = Currentdb.Openrecordset(sql)
if MiReg.RecordCount > 0 then
miReg.MoveLast
MiReg.MoveFirst
for i=1 to MiReg.RecordCount
'Codigo para procesar
MiReg.MoveNext
next i
end if
*************************
El anterior es un ejemplo sencillo... de llenado de recordset con una consulta sql, pero igualla puedeshacer con una tabla...
la variobale recordset se debe "setear". Aunque en realidad se llama poblar....
Set Mireg = Currentdb.Openrecordset(sql)
Debemos preguntar SI HAY REGISTROS, OSEA SI LACANTIDAD DE REGISTROS ES MAYOR A CERO..
if MiReg.RecordCount > 0 then
miReg.MoveLast
MiReg.MoveFirst
Se debe mover al ultimo (MoveLast) y luego alprimero (MoveFirst) para que el programa "sepa" cuantos registros hay en realidad, si NO SE HACE ESTE PASO.. lapropiedad recordcount devolverá siempre 1 así hayan 100...
Recorremos TODOS LOS REGISTROS CON UN FOR... así siempre "sabra" cual es el ultimo...
for i=1 to MiReg.RecordCount
'Código para procesar
MiReg.MoveNext
next i
end if
El movenext.. es para pasar al siguiente registro... sino puede recorrer los 10 o 100 registros que hayan pero siempre parado en elprimero, entonces hay que moverlos con movenext...
gracias, me sirvio muchisimo lo del codigo, solo tengo un problema: es que cuando cambio de registro principal el formulario donde esta el subformulario y escribo otra cosa en el subformulairo al momento de actualizar actualiza todo lo del formulario no solo lo del subformulario actual ¿podrias ayudarme?
seria mucho mejor que mostraras tu codigo... a primera vista parece que tu procedimiento actualizar esta mal
pero una cosa....
me dices que ejecutas el actualizar y que pasa!
1.se genera otro registro en tu base de datos del principal? (Si/No)
2.se eneran otros registros en tu base de datos del subform?(Si/No)
- Message postés
-
152
- Date d'inscription
- lunes, 6 de septiembre de 2010
- Estatus
- Miembro
- Última intervención
- martes, 3 de enero de 2012
95para eso se usa Internet para investigar...
supongo que debes de estar usando una grilla en formulario para mostrar los datos...
- Message postés
-
152
- Date d'inscription
- lunes, 6 de septiembre de 2010
- Estatus
- Miembro
- Última intervención
- martes, 3 de enero de 2012
95- Message postés
-
152
- Date d'inscription
- lunes, 6 de septiembre de 2010
- Estatus
- Miembro
- Última intervención
- martes, 3 de enero de 2012
95pero una cosa....
me dices que ejecutas el actualizar y que pasa!
1.se genera otro registro en tu base de datos del principal? (Si/No)
2.se eneran otros registros en tu base de datos del subform?(Si/No)