[Resolvido]Selecionar item no listBox

Boa tarde,

Como eu faço para selecionar um dentre varios itens de um listbox e ao clicar nele ele automaticamente seja inserido numa caixa de texto?


Adilson

Evento "Ao clicar" da listbox:

Me.NomeCampo = Me.NomeDaListbox.Value

Se a list tiver mais de uma coluna, pode ser necessário mudar Value por Column(x) sendo x o número correto da coluna aonde está o valor a ser copiado.

Olhe só,

Na listbox tem varios valores provenientes de um banco de dados e eu preciso que ao clicar aleatoriamente em qualquer valor ele vá para uma caixa de texto, pois sera enviado para uma consulta que exibirá um relatorio. no criterio da consulta tem o seguinte no campo nome

[forms]![frmLocalizar]![txtnome]

e não aparece o nome do vendedor no relatorio

meu codigo no list box é:

Dim Linha As Integer

Linha = Me.lst_nomes.ListIndex

Me.txt_nome = Me.lst_nomes.Column(1, Linha)
Me.txt_nome.SetFocus

On Error GoTo Err_lst_nomes_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "rptVendasporVendedor"
stLinkCriteria = "Nome='" & Me.lst_nomes & "'"
DoCmd.OpenReport stDocName, acViewPreview, , stLinkCriteria
Exit_lst_nomes_Click:
DoCmd.Close acForm, "frmLocalizar"
Exit Sub
Err_lst_nomes_Click:
MsgBox Err.Description
Resume Exit_lst_nomes_Click

e não adianta.

o que estou fazendo de errado?

Atenciosamente,

Adilson

A pergunta inicial era sobre enviar um dado de uma list para um campo, o que pode ser feito conforme mencionado no post anterior. Quanto ao relatório, talvez seja necessário seguir o mesmo esquema,incluindo no código a coluna da listbox ou o .Value

Já tinha feito assim e não deu certo.

Existe uma codificação onde se faz um loop para selecionar o item de uma linha, mais ou menos assim.

For i to .list alguma coisa

poderia me passar como se codifica assim (fazer o loop acima citado para eu por na caixa de texto o valor selecionado na list

Agradecido


Adilson

São várias linhas? Se for, não vai dar certo colocar elas na caixa de texto para filtrar, pois o sistema entende uma caixa de texto como um campo apenas e não vários campos em um. Nesse caso, deve filtrar direto na caixa de texto. Mas talvez fosse o caso de fazer diferente, ou seja, você ter um campo Exibir na tabela para colocar Sim ao selecionar na listbox e Não ao tirar a seleção. Pode ter uma consulta baseada nessa tabela com o Critério Como "Sim" no campo Exibir e o relatório tendo a consulta como origem.

Valeu, Agora foi que fui entender.


Brigadooooooooooooo


Adilson