[Resolvido]Soma list box

Prezados,
Gostaria de saber como juntar textos que estão numa listbox...
Por exemplo:
Tenho um campo chamado:e-mail
Gostaria de junta-los assim: bla@bla.com;blabla@blabla.com
Alguém pode me ajudar?

Crie uma variável.. faça um loop pelos registros da list e na variavel a cada loop

Variavel = Variavel & ";" & Me.Lista.Column(n)

Cumprimentos.

Algo assim:


Function SomaColuna(N As Integer)
On Error Resume Next
Dim X, VarTMP

For X = 1 To Me.SuaLista.ListCount - 1
VarTMP = VarTMP & ";" & Me.SuaLista.Column(X,N)
Next X
SomaColuna = VarTMP
End Function


Para Chamar:

Call SomaColuna(N)......... onde N é o numero de sua coluna

Aproveite;

http://maximoaccess.forumeiros.com/t2950-concatenar-registros-separados-por-ponto-e-virgula

MUito obrigado

Boa noite Grupokgn, para dar o tópico como resolvido, logo abaixo acima do botão enviar, tem que clicar no botão Resolvido

Não se esqueça de clicar no Joinha na resposta que lhe auxiliou.

Neste eu Coloco como resolvido.

O Fórum agradece o retorno.
Cumprimentos.

Desculpa não sabia disso

Não se preocupe.. ´

Bom trabalho.
Cumprimentos.