Actualización tabla con datos de otra tabla con SQL

Suponiendo que esa instrucción la hagas desde el formulario PedidosRec, sería

Docmd.runsql"Update [listado almacen] set cantidad =cantidad +" & me.cantidad & " where descripción='" & me.descripción & "'"

¡Gracias Icue!

Mañana haré unas pruebas y te contesto dicendote como me ha ido.

Hola Icue,

Al ir a probar la explicación que me habías dado, me he fijado que no me he explicado bien en la pregunta.

Esta respuesta me vale para una actualización si los datos del articulo los introdujera en cuadros del formulario, pero esto no es así.

En el formulario me aparece la lista de pedidos realizada, esto es un ejemplo:

Cuando yo pulso para actualizar pedidos, en la tabla PEDIDOS_REC se me originan los registros de los pedidos recibidos:

A continuación lo que quiero es que automáticamente con la orden conveniente me actualice el campo cantidad en la tabla LISTADO ALMACEN de todos los registros que hay en PEDIDOS_REC.

Vamos a suponer que para "rellenar" los registros del subformulario utilizas algo así como

me!nombredelsubform.recordsource="select * from pedidos where idPedido=" & me.idpedido & ""

Suponiendo que el campo que relacione el formulario con el subformulario sea Idpedido.

Entonces, a continuación, podrías poner en el subformulario un botón. Por ejemplo, supongamos que tengo una tabla Clientes(que sería la tuya Listado Almacen)

Para no ponerle cantidad a todos, sólo se la he puesto a los de Alemania.

Luego tengo una tabla Otra(que sería la tuya Listado de Pedidos, que es igual a esta, donde por comodidad sólo le he puesto cantidad a los de Alemania)

Si tengo un formulario, con un botón de comando y el subformulario Otra.

Como en el botón Comando0, en el evento Al hacer clic le tengo puesto(ya que como te dije, no sé que criterio usas para seleccionar unos registros de la tabla Listado de pedidos, que podría ser IdPedido, IdCliente, etc,

Private Sub Comando0_Click()
Me!Otra.Form.RecordSource = "select * from otra where pais=""Alemania"""
End Sub

Cuando pulso el botón Comando0

Y cuando pulso el botón Actualizar Clientes del subformulario, al que le he puesto en su evento Al hacer clic

Private Sub Comando9_Click()
DoCmd.SetWarnings False
DoCmd.GoToRecord , , acFirst
Dim i As Byte
For i = 1 To Me.Recordset.RecordCount
DoCmd.RunSQL "update clientes set cantidad=cantidad+" & Me.Cantidad & " where nombrecliente='" & Me.NombreCliente & "'"
DoCmd.GoToRecord , , acNext
Next
End Sub

Me deja la tabla Clientes(Listado Almacén)

Hola Icue,

Perdona por la tardanza en contestar, pero he estado de viaje.

Me parecen buenas tus respuestas, pero no se ajustan a mi formulario.

Te explico mas detalladamente como funciona mi formulario:

Tengo el siguiente formulario (no hay subformularios), en el campo RECIBIDO/FECHA selecciono los pedidos recibidos con su fecha correspondiente

Al pulsar en el botón CONFIRMAR PEDIDOS RECIBIDOS mediante la orden:

        DoCmd.RunSQL "INSERT INTO PEDIDOS_REC (N_PEDIDO, FECHA, DESCRIPCIÓN, UBICACIÓN, WPROD, CANTIDAD, FECHA_REC) SELECT N_PEDIDO, FECHA, DESCRIPCIÓN, CODIGO, WPROD, CANTIDAD, F_RECIBIDO FROM [RESUMEN PEDIDOS] WHERE RECIBIDO= -1"

Se crean los registros en la tabla PEDIDOS_REC.

Despues con las siguientes ordenes elimino estos registros de la tabla de pedidos y actualizo el formulario

        DoCmd.RunSQL "Delete From [art_pedidos] Where [recibido] = -1"

        MsgBox "REGISTROS ACTUALIZADOS"

        Me.Requery

Ahora es cuando me surge mi duda, tengo en la tabla PEDIDOS_REC los pedidos recibidos con sus cantidades, quiero el poder actualizar la tabla LISTADO ALMACEN añadiendo las cantidades de los registros de PEDIDOS_REC

¿Podrías volver a colgar la imagen, pero antes pulsando

Tal como la has puesto no distingo ningún nombre y si intento darle con el zoom, mucho peor.? Sin embargo, si la adjuntas con ese botón el zoom de ésta página funciona muy bien.

Aquí tienes,