[Resolvido]Copiar campos de formulário contínuo

Olá bom dia!!!
Como posso copiar todos os registros de um campo de um formulário contínuo (subformulário),  para um campo texto do formulário principal?
Vi aqui um exemplo onde se sugere que cole os dados com o botão direito do mouse(copiar/colar). Gostaria de criar um evento em um botão.

Tente isso
Vc diz "Como posso copiar todos os registros de um campo de um formulário contínuo (subformulário),  para um campo texto do formulário principal?"
e quer dizer "Como posso copiar todos os 'campos de um registro' de um formulário contínuo (subformulário),  para um campo texto do formulário principal?"

Arquivo adjunto

Espero ter ajudado
Saludos desde Bolivia

Boa tarde Franklin!
Muito obrigado pela atenção.
Mas o que eu preciso é que o botão esteja no formulário principal e copie todos os registros na vertical.
No seu exemplo eu precisaria que o botão fizesse copiar todos os registros do campo "Origem"

Origem

PARANÁ
BRASILIA
CUIABÁ
PORTO VELHO
RIO GRANDE
SAO PAULO
RIO
BAHÍA
CURITIBA
MANAUS
ST CATARINA

E colaria em um campo do formulário principal.
Muito obrigado mais uma vez!

Agora sim!!!
Entendí!!!  

Espero ter ajudado
Saludos desde Bolivia

Boas....

Se me permitem um pitaquinho de leve...

A titulo de deixar o código um pouco mais refinado, acrescentado um espaço para que os campos saiam um abaixo do outro.

Private Sub BtnCopiar_Click()
Dim RS As DAO.Recordset
Set RS = CurrentDb.OpenRecordset("SELECT Origem FROM Frutas")
With RS
.MoveFirst
Do Until RS.EOF
Me.Texto1 = Me.Texto1 & vbCrLf & " " & !Origem ' acrescentado um espaço.
.MoveNext
Loop
End With
RS.Close
Set RS = Nothing
End Sub

Muito obrigado a todos!

Que bom!!! Funcionou!!!

Funcionou beleza. Muito obrigado!
ficou assim:

Dim RS As DAO.Recordset
Set RS = CurrentDb.OpenRecordset("SELECT Serv1 FROM Consulta30 WHERE AppointmentID=" & Me.AppointmentID & "")
With RS
.MoveFirst
Do Until RS.EOF

Me.AppointmentDesc = Me.AppointmentDesc & vbCrLf & " " & !Serv1
.MoveNext
Loop
End With
RS.Close
Set RS = Nothing
Me.qtdd.SetFocus

Obrigado também ao Silvio!!!