Eu estou tentando fazer um pequeno programa de inventário usando o Access, mas eu não tenho muito conhecimento, o que eu tenho feito até agora é por coisas googling. Eu consegui fazer código para armazenar dados usando formulários não acoplados, agora eu quero atualizar alguns campos específicos de uma tabela por dados inseridos em um formulário não acoplado para outra tabela. As duas tabelas em questão são transação e estoque. O estoque tem 3 campos PartNo, Location e Qty. Eu quero que o QTY em estoque seja deduzido do local onde o estoque está saindo, e seja adicionado a onde ele está indo.

Dados de amostra na tabelaStock

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

Aqui está o meu código para um formulário não acoplado:

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

Esses dados seriam armazenados em uma tabela chamada Transaction, que é apenas um registro histórico do que foi movido de um lugar para outro. O que eu quero é que a tabela Stock seja atualizada usando este formulário, portanto, se PartNo 2288 for transferido do SAWRH001 para o SAWRH005, ele deverá atualizar automaticamente o Stock da tabela. Tanto quanto eu entendo, preciso incorporar uma consulta SQL, mas eu não sei como fazer isso no VBA.