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.