[Resolvido]Atualizar todas as linhas do subformulário com texto de um campo do formulário

Boa noite amigos!

Eu preciso de ajuda de vocês para um código que copie o texto de um campo específico do Formulário para todas as linhas do subformulário como no exemplo abaixo:

Copiar o conteúdo do campo Rateio onde contém "PIVO 6 INFERIOR + PIVO 6 SUPERIOR" para as linhas do subformulário abaixo de forma que eu não precise clicar numa por uma para copiar o texto já que criei um código para que quando recebe o foco ela copia automaticamente, porque quando eu preciso mudar ou atualizar os talhões eu tenho que ir clicando numa por uma para atualizar, o que eu quero é um botão que ao clicar ele atualiza todos os campos do subformulário de uma vez só porque às vezes eu tenho mais de 50 linhas de lançamento para cada serviço e isso se torna uma tarefa muito repetitiva.

tente adaptar

Código:

Sub RefReg()

With Me.Form.RecordsetClone
          .MoveFirst
          Do Until .EOF
              .Edit
              .Fields("Reg_NF") = True
              .Fields("Reg_Exp") = Me.txtCodRefNF
              .Update
              .MoveNext
        Loop
End With

End Sub


End Sub

Private Sub botao_Click()

On Error Resume Next

        Call RefReg

End Sub

Bom dia Nois

Esses campos a que você se refere "Reg_NF", "Reg_Exp" e "txtCodRefNF" são tabela e campos do subform ?

O código que eu estava usando era esse ao receber o foco no campo do subformulário

Atualizo os seguintes campos do subformulário de acordo com o formulário "frmAgricolaOS"

   txtCodigo = Forms!frmAgricolaOS!txtCodigo
   txtCultura = Forms!frmAgricolaOS!txtCultura
   txtOShrHomensRegiao = Forms!frmAgricolaOS!txtRegiao
   txtServico = Forms!frmAgricolaOS!txtServico
   txtAreaTotal = Forms!frmAgricolaOS!txtAreaTotal
   txtRateio = Forms!frmAgricolaOS!txtRateio

A tabela do Form é OSsafra e do SubForm é OShrHomens

O que você me aconselha que posso resolver meu problema ?

da uma olhada no exemplo em anexo e tente adaptar

Boa tarde Nois

Adaptei o código do exemplo que me mandou e ficou resolvido, funciona 100%, fico grato pela ajuda!

Segue o código
-> ao clicar de um botão:

Sub RefReg()
With Me.Form.RecordsetClone
.MoveFirst
Do Until .EOF
.Edit
.Fields("Codigo") = Me.IncluirCodigo
.Fields("Cultura") = Me.IncluirCultura
.Fields("Regiao") = Me.IncluirRegiao
.Fields("Servico") = Me.IncluirServico
.Fields("AreaTotal") = Me.IncluirAreaTotal
.Fields("Rateio") = Me.IncluirRateio
.Update
.MoveNext
Loop
End With
End Sub

Obrigado Pelo Retorno!