Uruchom zapytanie Update w kodzie VBA
Próbuję zrobić mały program inwentaryzacyjny za pomocą programu Access, ale nie mam zbyt wiele wiedzy, cokolwiek zrobiłem do tej pory, to wyszukiwanie google. Udało mi się utworzyć kod do przechowywania danych przy użyciu niezwiązanych formularzy, teraz chcę zaktualizować niektóre konkretne pola tabeli za pomocą danych wprowadzonych w niezwiązanym formularzu dla innej tabeli. Te dwie tabele to Transakcja i Zapasy. Zapas ma 3 pola PartNo, Location i Qty. Chcę, aby ilość QTY w magazynie została odjęta od miejsca, z którego się wycofuje, i zostanie dodana do miejsca, w którym ma się odbyć.
Przykładowe dane w tabeliStock
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
Oto mój kod niezwiązanego formularza:
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
Dane te byłyby przechowywane w tabeli o nazwie Transakcja, która jest tylko historią rekordów tego, co zostało przeniesione z jednego miejsca do drugiego. Chcę, aby tabela Stock Stock była aktualizowana przy użyciu tego formularza, więc jeśli PartNo 2288 zostanie przeniesiony z SAWRH001 do SAWRH005, powinien automatycznie zaktualizować Tabelę zapasów. O ile rozumiem, muszę osadzić zapytanie SQL, ale nie wiem, jak to zrobić w VBA.