Ejecutar consulta de actualización dentro del código VBA
Estoy tratando de hacer un pequeño programa de inventario usando Access, pero no tengo mucho conocimiento, lo que he hecho hasta ahora es por googlear. He logrado crear un código para almacenar datos utilizando formularios no vinculados, ahora quiero actualizar algunos campos particulares de una tabla con los datos ingresados en una forma no vinculada para otra tabla. Las 2 tablas en cuestión son Transacción y Stock. Stock tiene 3 campos PartNo, Ubicación y Cantidad. Quiero que la CANTIDAD en stock se deduzca de la ubicación a la que se mueve el stock, y se agregue a donde se va.
Datos de muestra en tablaStock
Stock_PartNo Stock_Location Stock_Qty
2288 SAWRH001 85
2288 SAWRH002 54
3214 SAWRH003 544
4567 SAWRH001 32
5555 SAWRH002 128
5555 SAWRH005 874
5678 SAWRH002 321
6544 SAWRH004 465
6666 SAWRH003 45
6666 SAWRH004 87
7777 SAWRH003 365
7890 SAWRH002 352
8765 SAWRH005 57
8888 SAWRH004 54
9999 SAWRH005 21
Aquí está mi código para un formulario sin consolidar:
Private Sub Command39_Click()
Dim db As Database, rsCust As Recordset
Set db = CurrentDb
Set rsCust = db.OpenRecordset("Transaction", DB_OPEN_DYNASET)
rsCust.AddNew
rsCust("Trans_PartNo") = Me!Combo52
rsCust("Trans_Desc") = Me!Text19
rsCust("Trans_Disp") = Me!Text21
rsCust("Trans_Recv") = Me!Text23
rsCust("Trans_Qty") = Me!Text25
rsCust("Trans_Date") = Me!Text29
rsCust.Update
MsgBox "Material transfer information has been updated"
Call ClearControls
rsCust.Close
db.Close
End Sub
Estos datos se almacenarán en una tabla llamada Transacción, que es solo un registro histórico de lo que se movió de un lugar a otro. Lo que quiero es que el Stock de tabla se actualice utilizando este formulario, por lo que si el Nº de artículo 2288 se transfiere de SAWRH001 a SAWRH005, se debe actualizar el Stock de tabla automáticamente. Por lo que entiendo, necesito incrustar una consulta SQL pero no sé cómo hacerlo en VBA.