[Resolvido]Entrada de pedido de compras em estoque

Olá boa tarde a todos, tenho um projeto onde tem um formulário que é responsavel por processar todos os pedidos de compras feito e adicionalos em estouqe. pois bem fiz este codigo e não está funcionando ele só algera o primeiro item do estouqe se alguem puder me ajudar

Private Sub BtnProcessar_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim rs1 As DAO.Recordset
Dim Quat As String
Dim strquat As String
Dim quatrs As Recordset
Dim totquant As String
Dim est
Dim esta

Set db = CurrentDb
Set rs = db.OpenRecordset("TblDetailCompra")
Set rs1 = db.OpenRecordset("TblEstoque")
rs.MoveFirst
est = rs("QtdCompra")
esta = Me.IdCompra
       
rs.MoveFirst
Do While Not rs.EOF

Quat = "Select IdEstoque, QtdProduto,ValorProduto from TblEstoque where 'IdEstoque=  &ESTA'"
Set quatrs = CurrentDb.OpenRecordset(Quat)
totquant = quatrs("qtdProduto")

If rs("IdCompra") = esta Then
rs1.Filter = Me.IdCompra
 rs1.Edit
 rs1("QtdProduto") = totquant + est
 rs1.Update
 rs.Edit
 rs("CompraStatus") = "PC"
 rs.Update
 End If
rs.MoveNext
Loop
Me.ProcCompras = "FC"
MsgBox "REGISTROS PROCESSADOS COM SUCESSO.", vbInformation, "SYSAGRO"
rs.Close
rs1.Close
End Sub

Amigão tente colocar o método movelast antes de movefirst assim:

Rs.MoveLast
Rs.MoveFirst

Se diz que alterou um é porque seu código tá funcionando,talvez indo ao ultimo registro do recordset e retornando ao primeiro faça memorizar a quantidade a ser percorrida.

resolvido