Actualizar tabla con datos de Formulario
Buenas tardes, muchas gracias por tus ayudas anteriores, ahora tengo dos dudas y espero que me puedas ayudar
1-Necesito cambiar el valor de la tabla "Insumos el campo "cantidad" por el valor que se encuentra en el campo "Total" del formulario, he utilizado el siguiente código pero falla
Set dbs = CurrentDb
str = "UPDATE Insumos SET Insumos.Cantidad = Forms!Insumos!Total"
str = str & " WHERE IdPedidoParte=" & Forms!Insumos!IdPedidoParte
dbs.Execute (str)
2-basado en el código anterior, Necesito cambiar el valor de la tabla Insumos el campo cantidad por la suma de los valores "Existencia" y "Reserva" del formulario,
Agradezco tu ayuda
1 respuesta
Prueba con un código como el de la consulta anterior: algo así
Dim dbs as Database
Dim rst as Recordset
Dim miPedido as string
Dim Crit as string
miPedido=Forms!Insumos!IdPedidoParte
set dbs=CurrentDB
set rst = dbs.OpenRecordset("Insumos",dbOpenDynaset)
Crit="[IDPedido]='" & miPedido & "'"
rst.FindFirst Crit
rst.edit
rst("Cantidad").Value=Forms!Insumos!Total
rst.Update
rst.Close
dbs.Close
set rst=Nothing
set dbs=Nothing
Tu código tiene un error de sintaxis:
Set dbs = CurrentDb
str = "UPDATE Insumos SET Insumos.Cantidad =" & Forms!Insumos!Total
str = str & " WHERE IdPedidoParte=" & Forms!Insumos!IdPedidoParte
Dbs. Execute (str)
Muchas gracias por tu ayuda y perdona la demora, he probado pero el código que tiene error de sintaxis (me parece mas fácil) pero me arroja un error y no deja continuar
¿Qué error te da?
