Запустите запрос на обновление в коде VBA
Я пытаюсь сделать небольшую программу инвентаризации, используя Access, но я неЯ не имею большого знания, все, что я сделал до сих пор, - это поиск в Google. Мне удалось создать код для хранения данных с использованием несвязанных форм, теперь я хочу обновить некоторые конкретные поля таблицы данными, введенными в несвязанной форме для другой таблицы. Рассматриваются две таблицы: транзакция и запас. Акция имеет 3 поля PartNo, Location и Qty. Я хочу, чтобы кол-во на складе вычиталось из места, из которого складывается запас, и добавлялось туда, куда оно собирается.
Пример данных в таблицеStock
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
Вот мой код для несвязанной формы:
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
Эти данные будут храниться в таблице с именем Transaction, которая представляет собой просто историю записей того, что было перемещено из одного места в другое. Я хочу, чтобы таблица Stock была обновлена с помощью этой формы, поэтому, если PartNo 2288 переносится из SAWRH001 в SAWRH005, то она должна автоматически обновлять таблицу Stock. Насколько я понимаю, мне нужно встроить SQL-запрос, но я нене знаю, как это сделать в VBA.