[Resolvido]enviar itens de uma caixa de listagem para caixa de texto

joaopaulorr 22/10/2011, 00:37

joaopaulorr: Novato; Respeito às regras :

Sexo :
Localização :
Mensagens : 14
Registrado : 18/01/2011

Mensagem nº1

enviar itens de uma caixa de listagem para caixa de texto

Mensagem joaopaulorr 22/10/2011, 00:37

Boa noite!
Gotaria de uma ajudinha

Tenho um forme com uma caixa de listagem com 2 colunas 1 de nome e outra de endereços de email.
tenho abaixo uma caixa de texto onde mando, os emails para ela clicando na linha do email na caixa de listagem até funcionou tranquilo, agora quero uma botão para enviar todos endereços de email, para a caixa de texto de uma só vez, segue anexo exemplo se alguem poder me ajudar agradeço.

Att.

João Paulo

Anexos

meu exemplo.zip: Você não tem permissão para fazer download dos arquivos anexados.; (11 Kb) Baixado 20 vez(es)

criquio 22/10/2011, 00:48

criquio

criquio: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009

Mensagem nº2

Re: [Resolvido]enviar itens de uma caixa de listagem para caixa de texto

Mensagem criquio 22/10/2011, 00:48

Tente assim:


					Dim L As Integer

For L = 0 To Me.NomeDaList.ListCount - 1
    If IsNull(Me.NomeDaText) Or Me.NomeDaText.Value = "" Then
       Me.NomeDaText = Me.NomeDaList.Column(1, L)
    Else
       Me.NomeDaText = Me.NomeDaText & "," & Me.NomeDaList.Column(1, L)
    End If
Next

Esse esquema irá adicionar os emails separados por vírgula. Se quiser, pode mudar o separador da forma que quiser.

.................................................................................

Meu novo site: www.vcssistemas.com.br

Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
1 - faça uma cópia do aplicativo
2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
3 - use o Compactar/Reparar
4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
Positive as mensagens que achar útil, no canto superior direito delas.