[Resolvido]Preencher campo em sub Formulario

Bom dia
Tenho uma duvida, que talvez alguém poderia me ajudar.
Tenho um form e um sub form,  em um dos campos do form vou inserir um código e gostaria ao apertar o botão que esse código se propagasse para todos os campos determinado no sub form vinculado ao form. Anexei um exemplo.

Olá..

No evento ao clicar do botão

Código:

Private Sub Comando9_Click()


    Dim Rs As DAO.Recordset
     
    Set Rs = CurrentDb.OpenRecordset("Tb_SubForm")
             
    Rs.MoveFirst
    Do While Not Rs.EOF
       
    With Rs
    .Edit
   
    Rs!Insercao = Me.exemplo
       
    .Update
    .MoveNext 'Move para próximo registro
           
       
    End With
    Loop
    Me.Refresh
    'Rs.Close
    Set Rs = Nothing

End Sub

Faça testes e retorne

Aguardamos

Abraços e sucesso

Não deu certo ele preencheu o a tabela toda e não só os vinculado ao form principal

Olá..

Desculpe a falha..

Substitua por este

Código:

Me.Frm_SubForm.Form.RecordsetClone.MoveFirst
    Do While Not Me.Frm_SubForm.Form.RecordsetClone.EOF
        Me.Frm_SubForm.Form.RecordsetClone.Edit
        Me.Frm_SubForm.Form.RecordsetClone!Insercao = Me.exemplo
        Me.Frm_SubForm.Form.RecordsetClone.Update
        Me.Frm_SubForm.Form.RecordsetClone.MoveNext
    Loop
        Me.Frm_SubForm.Requery
        Exit Sub

Aguardamos

Abraços

Deu Certo
Obrigado

Olá..



Obrigado, O Fórum agradece pelo seu retorno

Abraços e sucesso