Atualizando somente 1 registro via vba

Boa tarde galera, estou quebrando a cabeça aqui para tentar resolver um problema, seguinte, tenho um sistema de assistência técnica onde quando eu gero a ordem de serviço e eu adiciono produtos na OS para gerar o orçamento com o valor e itens que serão utilizados, ele não subtrai do meu estoque, criei um campo em minha tabela escrito "itens orçamento" ele calcula os valores na hora de gerar a OS porem não subtrai do meu estoque porem eu coloquei uma condição via vba, se caso eu mude o status da OS para "FATURADO" ele salva o valor que está no campo "itens orçamento" para o campo na tabela onde irá subtrair os itens do estoque, até ai tudo bem funcionou bem com o código abaixo 

    If Me.Status = "Faturado" Then
    Form_FRM_SERVICOS_SUB.quantidade.Value = Form_FRM_SERVICOS_SUB.qtdorcamento.Value
    Else
    Form_FRM_SERVICOS_SUB.quantidade.Value = 0 
    End If

porem quando eu altero no formulário e salvo ele modifica somente o primeiro 1º item na tabela e os demais não, a não ser que eu modifique manualmente todos os itens e salvo alguém tem alguma dica do que posso fazer para resolver isso?!

Para facilitar que lhe respondam, coloque parte do BD como exemplo, facilita na hora de lhe retornar uma resposta.

segue o BD

https://1drv.ms/u/s!AjHA5Kkr0JYviS012r2JlqtQpPZK

para entender como funciona, precisar ir no formulário "FRM_SERVICOS" lá vc pode selecionar o cliente, técnico, carro e etc, clica em salvar e depois clica em editar para habilitar o campo onde insere os produtos utilizados, para visualizar o estoque precisa ir na tabela "tblEstoque" e tabela que gerencia as entradas (compras) e saídas (vendas) é a "tblMovimentacao"

Andei dando uma olhada no seu banco.
Dei uma pesquisada para ver se resolvia com FOR EACH/NEXT, porém não consegui achar resposta.
Pensei em um looping que passasse por cada registro do subformulário e então rodasse o código, porém não sei como fazer e nas minhas pesquisas não achei resposta.

Se, por acaso, eu achar algo aqui eu volto para dar uma resposta.

blz obg por tentar.
vamos aguardar, enquanto isso deixei um campo para inserir quando é orçamento

bom dia
ate consegui fazer o que vc pretendes, fiz mais ou menos como nosso amigo
thiagomcosta sugeriu. criei um loop que percorre pelos itens e conforme o codigo le o item
ele ja atualiza na tblEstoque.
aproveitei para criar uma macro que apos atualizar o registro ela ja faz as contas de entrada - saida e joga o resultado no campo estoque

o codigo esta no modulo "mod_atualizaEstoque"
para usar basta chamar a funcao no formulario

atualizaEstoque(id_servico)

segue link do bd
https://1drv.ms/u/s!AtPRVVtDFCbSjMELzNQf2zoJ8X_RZQ

em anexo segue print da construção da macro

o que vc pode ter problema é se o usuario salvar duas vezes a mesma ordem de serviço.
ai para controlar vc pode criar um campos do tipo sim e nao. com isso vc pode usar para saber se o produto ja foi ou nao atualizado
na tabela de estoque
ou
mudar o codigo para varrer a tabela inteira de movimentacao ao inves de procurar apenas por 1 ordem de serviço.
qualquer duvida estamos ai

abraço

olá amigos, gostaria muito de agradecer a ajuda, mais visando o tempo que tenho para terminar de desenvolver ele, acabei deixando um campo extra para inserir quando é orçamento, ficou bom e bem prático, porem me esbarrei em outro problema agora....rs
quando clico em salvar preciso que um campo onde calcula os valores da ordem de serviço copie para outro campo quando eu marcar a opção "faturado" fiz o procedimento padrão de pegar o valor de uma caixa e passar para outra (value) porem quando eu clico em salvar fica zerado o valor, quando eu clico de novo dá certo, acho que como o código executa mais rápido que a conta ele acaba pegando o valor zerado primeiro, ou seja precisa clicar 2x no botão salvar para passar o números, alguém sabe como resolver isso?

esse é o codigo

If Me.Status = "Faturado" Then
    vendaliquidocaixa.Value = txtTotalPagar.Value
End If

boa tarde
manda o seu bd atualizado para olharmos esse comportamento estranho.
ai fica mais fácil de mandar uma solução.

grato