[Resolvido]Formulário de vendas

Tenho um formulário de vendas com um subformulários onde estão os produto.
o meu código está dando baixa no estoque mas somente no registro selecionado.
como faço para percorrer os demais produtos dispostos no subformulário para que o meu código de baixa no estoque?
Eis o código que uso para baixa no estoque

Private Sub BtnSalvar_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim Quat As String
Dim strquat As String
Dim quatrs As Recordset
Dim totquant As String
Set db = CurrentDb
Set rs = db.OpenRecordset("TblCadProduto")

Forms!FrmSaida!CstSaidaDetail_subformulário.EOF

Quat = "select QuantCad from TblCadProduto where 'Código = & Forms!FrmSaida!CstSaidaDetail_subformulário!ProdutoDetail'"
Set quatrs = CurrentDb.OpenRecordset(Quat)
strquat = quatrs("quantcad")
totquant = Forms!FrmSaida!CstSaidaDetail_subformulário!QuantidadeDetail
rs.Edit
rs("QuantCad") = strquat - totquant
rs.Update
Forms!FrmSaida!CstSaidaDetail_subformulário.Next
Loop
MsgBox "Registro Salvo com Sucesso.", vbInformation, "MASTER AGRO"
rs.Close
End Sub

Um abraço cordial

O simples no seu caso, seria no evento VBA depois de atualizar na sua caixa de saída;

Private Sub QuantidadeDetail_AfterUpdate()
CurrentDb.Execute "UPDATE TblCadProduto Set [TblCadProduto].[QuantCad] = [TblCadProduto].[QuantCad] - " & Val(Me!QuantidadeDetail) & " WHERE [TblCadProduto].[Código] = " & Me!ProdutoDetail & ""
End Sub

Deixa ver se entendi, é só colocar essa linha no evendo após atualizar no subformulário do campo quantidadeDetail? isso?

Isso, faça o teste e retorne.

funcionou beleza, mas ele baixa logo que se inclui a quantidade do produto eu queria que ele fizesse a baixa somento qdo o usuário clicar em precessar ou salvar no formuláerio.
Também gostaria de um metodo para posicionar o cursor no primeiro registro e ir varrendo o form ai o meu código serveria.

O seu subformulario é desvinculado ?

Se não for, na hora de você digitar e mudar de linha, já está na tabela, então nada melhor que a instrução que lhe passei.

é vincula com o formulário vendas,

Então mais me ajuda, a abertura de Recordset serve melhor nos formularuios e subformularios desvinculados, no seu caso nada melhor que a instrução que lhe passei.

O codigo funcionou blz

Obrigado pelo retorno o forum agradece.