[Resolvido]Trazer informação de uma coluna da caixa de listagem para uma caixa de texto

Saudações a todos!

Tenho a seguinte dúvida: como exibir numa caixa de texto a informação contida numa caixa de listagem, atualizando a caixa de texto a cada clique na caixa de listagem?
Tentei fazer assim, conforme exemplos aqui do Maximo Access, mas não fui feliz.

Private Sub Caixa de listagem_Click()
If IsNull(Me.Caixa de texto) Or Me.Caixa de texto = "" Then
Me.Caixa de texto = Me.Caixa de listagem.Column(5)
Else
Me.Caixa de texto = Me.Caixa de texto & vbCrLf & Me.Caixa de listagem.Column(5)
End If
End Sub

Dessa forma a caixa de texto só exibe o conteúdo da linha da caixa de listagem que eu clicar primeiro. Se eu clico numa linha, depois na outra, a caixa de texto não atualiza para o conteúdo do segundo clique.
Agradeço desde já a quem puder ajudar, pois sou iniciante.

Olá Thearles

Em programação é comum não se usar espaços em nomes de controles.
Isso dá uma dor de cabeça danada!

Tire os espaços dos controles ou coloque esses nomes entre colchetes "[ ]"

Código:


Private Sub Caixa de listagem_Click()
   If IsNull(Me.[Caixa de texto]) Or Me.[Caixa de texto] = "" Then
      Me.[Caixa de texto] = Me.[Caixa de listagem].Column(5)
   Else
      Me.[Caixa de texto] = Me.[Caixa de texto] & vbCrLf & Me.[Caixa de listagem].Column(5)
   End If
End Sub



E mais:
Nomeie os controles
Estruture o código como fiz acima
É horrível de ler código se tudo ficar na primeira coluna.
Mantenha esse hábito, assim ficará fácil de saber de onde vem cada controle e de que se trata.

{ }'s

Balem

Obrigado, Noobezinho!

Devia ter esclarecido que se tratam de nomes fictícios. No código verdadeiro está assim:

Private Sub lst_nomes_Click()
If IsNull(Me.Texto1167) Or Me.Texto1167 = "" Then
Me.Texto1167 = Me.lst_nomes.Column(5)
Else
Me.Texto1167 = Me.Texto1167 & vbCrLf & Me.lst_nomes.Column(5)
End If
End Sub

A questão é que não funciona. Mostra apenas a Column(5) da primeira linha da caixa de listagem (lst_nomes) que eu clico. Se eu clicar numa linha, e depois clicar em outra linha, não atualiza a caixa de texto (Texto1167).

Grato.

Experimente assim:

Não muda porque vc está pedindo para ele manter o nome da caixa de listagem nas duas condições.

Se for nulo ou vazio

caixa de texto = caixadelistagem coluna 5

caso contrário

caixa de texto = caixadelistagem coluna 5

Tire o if.

E não me faça perder tempo!!!

{ }'s

Balem

Resolvido.

Obrigado, Noobezinho!

Quando não se domina, é osso. Ainda bem que existe o Maximo Access para salvar. Ficou assim:

Me.Texto1167 = Me.lst_nomes.Column(5)

Muito simples. E eu comendo pança.
Muito obrigado!

Ótimo !

Mas...

Vamos colocar os nomes nesses controles.

Para ser programador, primeira coisa é não ter preguiça!

Boa sorte!