[Resolvido]Baixar estoque somente daquele pedido!!!!

Boa tarde,

Tá difícil de resolver um caso aqui, quando acerto uma coisa, aparece outra.

Como faço para quando eu executar uma consulta atualização, os itens da venda forem baixados do meu estoque somente para aquele pedido.

Tá acontecendo aqui, que todas as vendas que eu faço e clico em finalizar venda, a consulta é executada baixando todos os produtos mesmo das vendas que já foram finalizadas.

Alguém pra me socorrer.

Obrigado

eu uso esta funcao num modulo

Public Sub AtProdNFiscal()
'By JPaulo ® Maximo Access
Dim db As Database
Dim RS1 As Recordset
Dim rs2 As Recordset

Set db = CurrentDb()
Set RS1 = db.OpenRecordset("SELECT * FROM subos where ordem = '" & Forms!ORDEM!ORDEM & "'")
RS1.MoveFirst
Do Until RS1.EOF

Set rs2 = db.OpenRecordset("select * from ProdNFiscal where chave= '" & RS1!ORDEM & "'")
If rs2.EOF Then
rs2.AddNew
rs2![Cod] = RS1![CODIGO]
rs2![ORIGENS] = RS1![DISCRIMINACAO]
rs2![DATA] = RS1![DATA]
rs2![NF] = RS1![ORDEM]
rs2![SAIDA] = RS1![QUANT]
rs2![RESPONSAVEL] = Username
rs2![VALOR UNIT] = RS1![VLRUNI]
rs2![VALOR TOTAL] = RS1![VLRTOT]
rs2![DC] = "D"
rs2![Tipo] = "ordem"
rs2![CHAVE] = RS1![ORDEM]

rs2.Update
Else
rs2.MoveFirst
Do Until rs2.EOF

rs2.Edit
rs2![Cod] = RS1![CODIGO]
rs2![ORIGENS] = RS1![DISCRIMINACAO]
rs2![DATA] = RS1![DATA]
rs2![NF] = RS1![ORDEM]
rs2![SAIDA] = RS1![QUANT]
rs2![RESPONSAVEL] = Username
rs2![VALOR UNIT] = RS1![VLRUNI]
rs2![VALOR TOTAL] = RS1![VLRTOT]
rs2![DC] = "D"
rs2![Tipo] = "ordem"
rs2![CHAVE] = RS1![ORDEM]
rs2.Update
rs2.MoveNext
Loop
End If

RS1.MoveNext

Loop
RS1.Close
rs2.Close
End Sub

OBRIGADO PELA ATENÇÃO, MAS TERIA COMO COLOCAR UM CRITÉRIO NA CONSULTA?
ALGUMA COISA DO TIPO.

Por gentileza Cristiano, leia as regras do fórum. Evite escrever tudo em maiúsculas.

Me perdoe, foi sem intencao nenhuma.

Voltando ao assunto, tem como colocar um criterio na consulta?

Obrigado

poste seu exemplo fica mais facil

Obrigado pessoal, ja resolvi o problema.
O access baixava os itens em estique de todos os meus pedidos, mas ja acertei.
Valeu Nadiro Nunes e Dilson pela forca.

Abracos e sucesso

Resolvido