[Resolvido]Loop preencher e alterar registros de subformulário

Mais uma vez conto com os mestres !

Tenho um formulário chamado Ordem_Fabricação.
Dentro desse formulário um subformulário chamado Ordem_Fabricação_Processo_Execução_subformulário em formato de folha de dados.
Dentro do subformulário tenho um campo Status_Ordem_Fabricação, esse status é modificado conforme os operadores vão finalizando as operações.
Quando finalizam a Ordem de fabricação a coluna do subformulário Status_Ordem_Fabricação fica como ENCERRADO.

Gostaria de construir um botão no formulário que assim que pressionado alterasse toda coluna Status_Ordem_Fabricação no Subformulário para AGUARDANDO, consegui mais altera somente a primeira linha, e teria que alterar a coluna toda.

Olá bom dia !

Ao clicar do botão:

Dim rs As Recordset
Dim qRegistros As Long
Dim i As Long
Set rs = CurrentDb.OpenRecordset("SuaTabelaQueAlimentaOSubformulario")
qRegistros = rs.RecordCount
If qRegistros > 0 Then
       rs.MoveLast
       rs.MoveFirst
       qRegistros = rs.RecordCount
End If
  For i = 1 To qRegistros
        rs.Edit
        rs("Status_Ordem_Fabricação") = "AGUARDANDO"
        rs.Update
        rs.MoveNext
  Next i
rs.Close

Esse algoritmo irá preencher registro a registro o valor do campo Status_Ordem_Fabricação. Isso significa dizer que agirá em todos sem nenhum critério.

Se houver critério como codigoDoOperador por exemplo, deverá especificar ao setar o recordset, assim:

Set rs = CurrentDb.OpenRecordset("SELECT * FROM SuaTabelaQueAlimentaOSubformulario WHERE" _
                              & " SuaChaveEstrangeiraOperador=" & Me!SuaTextCodigoDoOperador)

Cará você acertou no alvo !
Muito mais muito obrigado mesmo, ficou melhor que eu imaginava.

Obrigado !
Mestre !

Obrigado !

De nada e obrigado por informar que resolveu.