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
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