[Resolvido]atualizar campos de um subform via dao

boa tarde a todos, estou quebrando a cabeça aqui com um problema "simples" porem estou começando a aprender agora com manipulação de dados via dao recordset, estou montando um sistema de ordem de serviço e tenho um subform dentro de um form principal (onde eu insiro a quantidade de produtos orçados) porem eu gostaria que quando no form principal coloca-se faturado automaticamente os números que contem na caixa de texto "qtdorcamento" automaticamente passa-se para a caixa de texto "quantidade" para dar saída no estoque corretamente somente quando "faturar" a ordem de serviço, tentei algumas combinações aqui mais nada deu certo, vou colocar algumas que tentei logo abaixo.

lembrando que como são várias linhas (produtos) precisaria o código passar por todos os registros (loop) para salvar todos os resultados.

Código:

Dim rs5 As DAO.Recordset
   
    Set rs5 = Me!FRM_SERVICOS_SUB.Form.RecordsetClone
    Do While Not rs5.EOF
    rs5.Edit
        rs5!quantidade.Value = rs5!qtdorcamento.Value
    rs5.Update
rs5.MoveNext
Loop



Dim rs5 As DAO.Recordset
    Set rs5 = Me!FRM_SERVICOS_SUB.Form.RecordsetClone
    If rs5.RecordCount > 0 Then
        Me!quantidade.Value = 0
        rs5.MoveFirst
        While Not rs5.EOF
            Me!quantidade.Value = Me!qtdorcamento.Value
        rs5.MoveNext

Dim rs5 As DAO.Recordset
    Set rs5 = Me!FRM_SERVICOS_SUB.Form.RecordsetClone
    If rs5.RecordCount > 0 Then
        Me!quantidade.Value = 0
        rs5.MoveFirst
        While Not rs5.EOF
            Me!FRM_SERVICOS_SUB.Form!quantidade.Value = Me!FRM_SERVICOS_SUB.Form!qtdorcamento.Value
        rs5.MoveNext

tentei outras combinações que não me recordo agora mais nenhuma deu certo



Boa noite.
Se há um subformulário, normalmente há um relacionamento entre as tabelas deles.

Se há, então nem precisa de loop e nem do DAO, uma consulta pode fazer isso no VBA.
Mas para isso precisamos saber nomes de tabela e campos e como está o relacionamento.

Se puder, poste seu aplicativo e indique os objetos envolvidos que tentamos algo.

bom dia segue o meu sistema no link abaixo

https://www.dropbox.com/s/i2kq33mxznpg83x/Controle%20de%20Servi%C3%A7os%20v11%20site.accdb?dl=0

no formulario FRM_SERVIÇOS tem os campos "qtdorcamento" e "quantidade" (esse campo seria a quantidade vendida), conforme mencionei acima assim que o cliente mudasse para "faturado" automáticamente ele preenche o campo quantidade, sem ter que fazer essa mudança manual, e se voltasse para "aberto" por exemplo zerasse o campo "quantidade" para não dar baixa no estoque, tentei de várias formas e não consegui

Bom dia,
experimente:

Código:

If Me.Status = "Faturado" Then 'Caso o status seja faturado, a quantidade recebe o valor de qtdorcamento
    CurrentDb.Execute "UPDATE tblMovimentacao SET quantidade=qtdorcamento WHERE idvendaservico=" & Me.ID_SERVICO, dbFailOnError
Else 'caso não seja faturado, a quantidade recebe zero.
    CurrentDb.Execute "UPDATE tblMovimentacao SET quantidade=0 WHERE idvendaservico=" & Me.ID_SERVICO, dbFailOnError
End If

muito obg Marcelo David, funcionando perfeito!!!!
Deus te abençõe!

Obrigado pelo retorno. O fórum agradece!