Problema percorrer tabela ao salvar formulário

Olá

Estou com um problema
Fiz um formulário de retirada, quando eu aperto pra salvar é pra ele subtrair da tabela peças
Mas independente da peça q eu retire, ele sempre tira o valor da PRIMEIRA peça só
Podem me ajudar, por favor??

Segue o código no botão de salvar

Código:

Private Sub Comando407_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim db As Database
Dim rsPeças As DAO.Recordset
Set db = CurrentDb()
Set rsPeças = db.OpenRecordset("SELECT Peças.Código, Peças.Quantidade FROM Peças")
rsPeças.Edit
rsPeças("Quantidade") = rsPeças("Quantidade") - Me.Quantidade
rsPeças.Update
db.Close
Set rsPeças = Nothing
End Sub


E também o arquivo todo

Obrigado!

Boa tarde!

O arquivo não foi anexado.

Ola bogenoves,

É necessário colocar uma condição(Where) no teu "Select" para alterar o estoque da peça desejada.

"SELECT Peças.Código, Peças.Quantidade FROM Peças Where = "& &""

Att,

Opa...mandei a mensagem mas faltou isso:

Ola bogenoves,

É necessário colocar uma condição(Where) no teu "Select" para alterar o estoque da peça desejada.

"SELECT Peças.Código, Peças.Quantidade FROM Peças Where CampodaTabela= "& CampodoForm &""

Att,