Actualizar e insertar registros
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 más ya no se como se hace.
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 más ya no se como se hace.
1 Respuesta
Respuesta de Angel Navales
1