[Resolvido]Copiar dados de ListBox para TextBox em formulário Acess

Oi pessoal preciso de ajuda em código VBA, estou tentando copiar dados de uma Caixa de listagem com multiplas selções para Caixas de Textos.

Até o momento conseguir realizar esse código, mas que só copia um item para caixas...

Private Sub Comando52_Click()

''Declara a variável que armazenará o valor da coluna da ListBox
Dim Linha As Integer

'A variável captura os valores da ListBox.
Linha = Me.tlSource.ListIndex + 1

'A TextBox txtID, NOME, IDI, NOM recebem os mesmos valores
Me.ID = Me.tlSource.Column(0, Linha)
Me.NOME = Me.tlSource.Column(1, Linha)

Me.IDI = Me.tlSource.Column(0, Linha)
Me.NOM = Me.tlSource.Column(1, Linha)

End Sub

Boa noite e bem-vinda ao fórum
Nomeie de forma normalizada. CmdPassaListaParaCaixas é mais ilucidativo que Comando52

Private Sub Comando52_Click()

''Declara a variável que armazenará o valor da coluna da ListBox
Dim Linha As Integer

'A variável captura os valores da ListBox.
for linha=1 to Me.tlSource.ListIndex + 1
'A TextBox txtID, NOME, IDI, NOM recebem os mesmos valores
Me.ID = Me.tlSource.Column(0, Linha)
Me.NOME = Me.tlSource.Column(1, Linha)

Me.IDI = Me.tlSource.Column(0, Linha)
Me.NOM = Me.tlSource.Column(1, Linha)
next
End Sub

Obrigado mesmo pela dica...

Na verdade eu preciso inserir valores diferentes.

Por exemplo:

'A TextBox tID, NOME (Primeiro valor selecionado)
Me.ID = Me.tlSource.Column(0, Linha)
Me.NOME = Me.tlSource.Column(1, Linha)

'A TextBox IDI, NOM (Segundo valor selecionado)
Me.IDI = Me.tlSource.Column(0, Linha)
Me.NOM = Me.tlSource.Column(1, Linha)


Ou se possivel um codigo que copie Dados  selecionados em uma listbox copiar para outra listbox, como uma especie de transferencia.

Boa tarde,
Disponibilize pequeno exemplo para trabalho

Segue anexo...

Tem o primeiro botão exemplo.
E criei outro com outro código.

Boa tarde,
Não entendi. O primeiro botão está bem? E, no segundo botão, o que precisa que faça?

São dois testes para o resultado que quero chegar.

O primeiro copia somente um nome selecionado, preciso que ele cole em sequencia vários nomes selecionados nos campos TextBox.

O segundo já realizar o essa copia com mais de um selecionado, mais não consigo arrumar de forma que atenda mais de dois campos.

Devia descrever pormenorizadamente.
Se é o que penso,
- coloque a caixa de listagem como "selecções múltiplas=Simples".
- nomeie as caixas de texto TxtID1, TxtID2,TxtID3, TxtNome1, TxtNome2, TxtNome3
- coloque no procedimento
Private Sub CmdPassaListaParaCaixas_Click()
Dim Linha As Integer, I As Integer
For I = 1 To 3
Me("TxtID" & I) = Null
Next
I = 0
For Linha = 0 To tlSource.ListCount - 1
If Me.tlSource.Selected(Linha) Then
Me("TxtID" & I + 1) = tlSource.Column(0, Linha)
Me("TxtNome" & I + 1) = tlSource.Column(1, Linha)
I = I + 1
End If
Next
End Sub

- Quanto ao segundo botão, explique melhor

Alexandre Resolvido era isso mesmo que precisava, o segundo era outra tentativa... Obrigado!