[Resolvido]Copiar campo da tabela varios registro e colar em um único campo

Prezados, tenho uma tabela cliente contendo o campo e-mail de cada registro, criei uma consulta para que retorna somente com os clientes que possuem e-mail, preciso copiar todos os registros da tabela que possuem e-mail e colar em um único campo do tipo NãoAcoplado, pois esse campo é a base para envio do e-mail. Entre os e-mail preciso que inclua o ponto e virgula sem espaço. Alguém pode me ajudar?

Boas Jose Antonio, crie um Recordset baseado na SQL desta consulta, faça um loop pelo mesmo... e a cada loop adicione os e-mais a uma variável do tipo String concatenada com ;


StrEmail = StrEmail & ";"


Cumprimentos.

Não entendi muito bem, será que poderia ser mais detalhado.

Eis:

Private Sub btnInseir_Click()
Dim Rs As DAO.Recordset
Dim StrEMail
Set Rs = CurrentDb.OpenRecordset("SELECT * FROM tblE_Mail ;")

Do While Not Rs.EOF
   StrEMail = StrEMail + Rs!CpEmail & ";"
Rs.MoveNext
Loop

Me.txtEmail = StrEMail

Rs.Close
Set Rs = Nothing
End Sub

Cumprimentos.

Meu código ficou assim:

Private Sub Comando102_Click()
Dim Rs As DAO.Recordset
Dim StrEMail


Set Rs = CurrentDb.OpenRecordset("SELECT * FROM CAniversariantesEmail;")

Do While Not Rs.EOF
StrEMail = StrEMail + Rs![Endereço de Email] & ";"
Rs.MoveNext
Loop

Me.txPara = StrEMail

Rs.Close
Set Rs = Nothing

End Sub

Preciso agora filtrar por mês de aniversário que esta dentro da consulta "CAniversariantesEmail" campo: "mesniver" no meu form inclui um campo do tipo seletor com o nome "mesniverform", como faço esse filtro nesse código?

Crie uma caixa de combinação do Tipo Lista de Valores, nesta coloque o nome de todos os meses

Janeiro;Fevereiro;Março.... etc.

no Código


Private Sub btnInseir_Click()
Dim Rs As DAO.Recordset
Dim StrEMail
Set Rs = CurrentDb.OpenRecordset("SELECT * FROM tblE_Mail WHERE Format(CpDataNasc,'mmmm') = '" & Me.txtMEs.Value & "';")

Do While Not Rs.EOF

StrEMail = StrEMail + Rs!CpEmail & ";"
Rs.MoveNext
Loop

Me.txtEmail = StrEMail
Rs.Close
Set Rs = Nothing
End Sub


Cumprimentos.

Deu certo, obrigado!

Se não for pedir muito preciso incluir também neste mesmo filtro outros critérios conforme a seguir: sexo (masculino, feminino, todos); idade (até 20anos, 30anos, 40anos, todos); serviço (serviço selecionado em uma caixa de combinação). Pode me ajudar novamente?

Resolvido. Obrigado!

O Fórum agradece o Retorno.