[Resolvido]Copiar um campo texto e colar num outro (Loop)

Objetivo: No formulário copiar um texto do Campo1 para o Campo2 no mesmo registro.

Tenho um código que roda corretamente que, clicando no botão de forma repetida, cópia e cola um registro por vez.
O número de registro que o formulário apresenta é cada vez variável, assim eu queria que o loop fizesse o cópia e cola de forma automática do primeiro até o último registro.

Eu tentei desta forma, mas o Gerador de Código fica muito zangado:  

For counter  =  start To end
......
Next i

-------------------------------- Meu Código, Muito Obrigado....

Private Sub MeuBotao_Click()

For i = 1 To 1
Me.Campo1.SetFocus
DoCmd.RunCommand acCmdCopy
Me.Campo2.SetFocus
DoCmd.RunCommand acCmdPaste
DoCmd.RunCommand acCmdRecordsGoToNext
Me.Campo1.SetFocus
Next
End Sub

Olá

Acredito que seja um form continuo (continuos form), então fazemos assim num botão, que pode até estar no cabeçalho;

Código:

Private Sub SeuBotao_Click()
Dim rst As DAO.Recordset
   
    Set rst = Me.Recordset
   
    rst.MoveFirst
   
    Do While Not rst.EOF
        If Not Me.Campo1.Value = "" Then
            Me.Campo2.Value = Me.Campo1.Value
        Else
            'não faz nada
        End If
        rst.MoveNext
    Loop
End Sub

Querido JPaulo.

Queria perguntar uma coisa...
Você quer casar comigo ????  

Você é impressionante.
A próxima vez que eu viajar para o Portugal vou lhe dar de presente uma galinha caipira brasileira  

Eternamente Grato....

Resolvido....

Fico feliz em ajudar.
Obrigado pelo retorno o fórum agradece.