[Resolvido]Copiar nome de um item de uma listbox para um campo

tenho uma listbox com varios nomes e quero que assim que clicar em um nome esse nome seja colocar em um campo, o que faço?

NomeDoSeuCampo = me.ListBox.Column(1)

Onde (1) é o número da coluna onde se encontra o campo que deseja

Abraço.

Neste também falta a continuidade a resposta ao colega que o ajudou (pelo menos, tentou)

valeu... obrigado...

O fórum agradece o retorno.

Saudações. 

E se for uma listbox simples , que podem selecionar varios registros , como faço para ter o valor de cada registro selecionado em campos diferentes?

Olá, boa noite
E como sabe qual linha vai para que campo? Explique e pode disponibilizar dados significativos para facilitar a explicação e a ajuda

e se for uma imagem?

Bom gente agradeço pelo retorno de vcs , e estou mandando em anexo um exemplo para que possam entender melhor .

a ideia é que os campos acima fiquem ocultos e so apareçam de acordo com o preenchimento do mesmo , a partir da listbox

Bom dia,
Coloque
Private Sub Lista2_AfterUpdate()
If Len("" & Me.cp1) = 0 Then
cp1 = Me.Lista2.Column(0)
ElseIf Len("" & Me.cp2) = 0 Then
cp2 = Me.Lista2.Column(0)
ElseIf Len("" & Me.cp3) = 0 Then
cp3 = Me.Lista2.Column(0)
ElseIf Len("" & Me.cp4) = 0 Then
cp4 = Me.Lista2.Column(0)
Else
MsgBox "Não tem controlo disponível para preencher.", vbCritical
End If
End Sub

Isso mesmo Alexandre Neves muito obrigada , mas quando clico para retirar a opcao ele tb deveria tirar do campo cp1 , como faço ?

Olá, lusouza
Trabalhando ao Domingo à tarde? Olha, também eu
Coloque
'verifica se a opção já está utilizada
If cp1 = Me.Lista2.Column(0) Then
cp1 = Null
ElseIf cp2 = Me.Lista2.Column(0) Then
cp2 = Null
ElseIf cp3 = Me.Lista2.Column(0) Then
cp3 = Null
ElseIf cp4 = Me.Lista2.Column(0) Then
cp4 = Null
ElseIf Len("" & Me.cp1) = 0 Then
cp1 = Me.Lista2.Column(0)
ElseIf Len("" & Me.cp2) = 0 Then
cp2 = Me.Lista2.Column(0)
ElseIf Len("" & Me.cp3) = 0 Then
cp3 = Me.Lista2.Column(0)
ElseIf Len("" & Me.cp4) = 0 Then
cp4 = Me.Lista2.Column(0)
Else
MsgBox "Não tem controlo disponível para preencher.", vbCritical
End If

É amigo Alexandre Neves é a vida rs , quem trabalha sozinho nao tem essas de sabado nem domingo né rs

Eu nao entendi muito bem onde colocar esta programacao que mandou , comoco junto com a outra , pq coloquei e nao ta dando certo

Bem, pelo menos nós estamos a trabalhar em conjunto! É tão gratificante ajudar como ser ajudado.
Sobre a questão, coloca no mesmo acontecimento DepoisDeActualizar mas retira a que está e só fica esta.
Continuação de bom Domingo

Deu mais ou menos certo ,

Ta meio confuso , por exemplo , criei uma tabela chamada tab controle , para que se possam guardar as informacoes , so que quando eu abro o form
os cps estao preenchidos certinhos , mas na list box nao existe nada selecionado , e quando clica para selecionar , ele retira o conteudo do campo ..
vou te mandar o anexo para vc ver que ta meio doido rs

Olá, lusouza
Está confusa? Com a bd? rsss
Acalma-te. Tens quem te ajude.
No formulário, altera os nomes dos controlos para não ficarem iguais aos nomes dos campos (para Txtcp1, Txtcp2, Txtcp3 e Txtcp4)
Retira todo o código que tens e cola o seguinte
Option Compare Database
Option Explicit

Sub ActualizaLista()
Dim B As Byte
For B = 0 To Lista2.ListCount
Lista2.Selected(B) = False
Next

If Not IsNull(Txtcp1) Then
For B = 0 To Lista2.ListCount
If Lista2.Column(0, B) = Txtcp1 Then
Lista2.Selected(B) = True
End If
Next
End If
If Not IsNull(Txtcp2) Then
For B = 0 To Lista2.ListCount
If Lista2.Column(0, B) = Txtcp2 Then
Lista2.Selected(B) = True
End If
Next
End If
If Not IsNull(Txtcp3) Then
For B = 0 To Lista2.ListCount
If Lista2.Column(0, B) = Txtcp3 Then
Lista2.Selected(B) = True
End If
Next
End If
If Not IsNull(Txtcp4) Then
For B = 0 To Lista2.ListCount
If Lista2.Column(0, B) = Txtcp4 Then
Lista2.Selected(B) = True
End If
Next
End If
End Sub

Private Sub Comando6_Click()
Me!Lista2.Height = 1440 ' 1440 twips = 1 inch.
'Me!Lista2.Width = 1440

End Sub

Private Sub Form_Load()
ActualizaLista
End Sub

Private Sub Lista2_AfterUpdate()
If Txtcp1 = Me.Lista2.Column(0) Then
Txtcp1 = Null
ElseIf Txtcp2 = Me.Lista2.Column(0) Then
Txtcp2 = Null
ElseIf Txtcp3 = Me.Lista2.Column(0) Then
Txtcp3 = Null
ElseIf Txtcp4 = Me.Lista2.Column(0) Then
Txtcp4 = Null
ElseIf Len("" & Me.Txtcp1) = 0 Then
Txtcp1 = Me.Lista2.Column(0)
ElseIf Len("" & Me.Txtcp2) = 0 Then
Txtcp2 = Me.Lista2.Column(0)
ElseIf Len("" & Me.Txtcp3) = 0 Then
Txtcp3 = Me.Lista2.Column(0)
ElseIf Len("" & Me.Txtcp4) = 0 Then
Txtcp4 = Me.Lista2.Column(0)
Else
MsgBox "Não tem controlo disponível para preencher.", vbCritical
End If
ActualizaLista
End Sub

Beijinhos e vai correr bem.

Tem 2 procedimentos no evento depois de atualizar , mesmo retirando da erro , mando para vc o anexo para ver qual besteira fiz rs

Nem vale a pena estar a conferir a tua bd.
Envio a que tinha adaptado
Até já

Bingoooooooooooooo

Exatamente isso amigo , muito obrigada ...

Tenho outros pepinos aqui para resolver , se puder me ajudar e passar seu email ou skype agradeço

Ou devo abrir outro topico?

nao sei direito como trabalhar aqui no forum ...

Só tenho correio electrónico e posso-te passar mas as dúvidas convém que fiquem aqui no fórum, para que outros aprendam, como nós aprendemos com eles.
Enviar-te-ei por mp
Até breve,

Ok amigo obrigada