[Resolvido]Caixa de Listagem seleções multiplas

Bom Dia amigos !!

Recorro novamente a este excelente forum para tirar mais uma dúvida,
Como faço para inserir em uma caixa de texto (memorando) os valores de uma caixa de listagem com seleções multiplas marcadas,de forma que fique cada valor em um paragrafo.
Alguem pode me ajudar !
Obrigado !!!

Bom dia,

Vá nesse link.


http://maximoaccess.forumeiros.com/t2726-capturar-valor-da-coluna-da-listbox-caixa-de-listagem-e-preencher-textbox-caixa-de-texto?highlight=caixa+de+listagem+com+sele%C3%A7%C3%B5es+multiplas



Adilson

dyl.2011, obrigado pelo retorno,mas talvez não tenha sido claro na minha dúvida:

vou explicar melhor;
em uma caixa de seleção tenho varios itens ex : (banana,maça,etc)o que necessito
é se selecionar o itens (banana e maça) ele transporte para a caixa de texto os itens selecionados(banana e maça) e que fiquem cada item em um paragrafo.

Obrigado !

O que você ira fazer com o conteúdo dessa caixa de texto depois? Talvez, dependendo do caso, fosse melhor alguma outra tática. E seria interessante tambem que ao clicar em um item, ele seja transportado e removido da caixa de listagem para não haver repetição, concorda? Talvez, fosse o caso de se ter duas caixas de listagem, aonde você poderia passar conteúdo de uma para a outra. Para simplesmente inserir da listbox na textbox, pode ser algo assim:

If IsNull(Me.NomeDaCaixaTexto) Or Me.NomeCaixaTexto = "" Then
Me.NomeCaixaTexto = Me.NomeListbox
Else
Me.NomeCaixaTexto = Me.NomeCaixaTexto & VBCRLF & Me.NomeListBox
End If

Isso pode ser no evento "Ao clicar" da listbox. Melhor, nesse caso, é que a listbox não esteja com seleção múltipla ativada, pois cada linha será adicionada ao clicar nela.

Criquio,
os itens selecionados irão para um pedido,o problema da caixa de listagem é que ao habilitar origem do controle ela só armazena um item apenas e não todos os selecionados(ou estou deixando de fazer algo),seguindo sua dica as transferencias dos itens selecionados fiz no evento clicar;

Dim a As String

me.lista1.addItem me.lista2
Me.refresh

end sub

-------------
private sub lista2
me.lista1.removeItem me.lista1.listindex
me.refresh

se puder avaliar fico muito grato,o que acha de fazer uma subform continuo e posterior chamar o relatório !!!

Obrigado
abs

Criquio,apos quebrar muito a cabeça peço desculpa pela minha falta de entendimento, você me deu a resposta e eu não percebi,fiz então assim;

If IsNull(Me.NomeDaCaixaTexto) Or Me.NomeCaixaTexto = "" Then
Me.NomeCaixaTexto = Me.NomeListbox
Else
Me.NomeCaixaTexto = Me.NomeCaixaTexto & VBCRLF & Me.NomeListBox.columm(1)& ";" & ""
End If

Agora a cada item selecionado é acrescentado e no final acrescenta";" e joga para outro paragrafo.

Obrigado novamente !!
Abs

Bom dia,

Estou precisando fazer exatamente o que o Criquio sujere neste tópico...

..."E seria interessante tambem que ao clicar em um item, ele seja transportado e removido da caixa de listagem para não haver repetição, concorda? Talvez, fosse o caso de se ter duas caixas de listagem, aonde você poderia passar conteúdo de uma para a outra"

além disso, preciso salvar os dados de alguns controles e os dados selecionados para uma tabela.


Obrigado


Fabio