[Resolvido]Filtrar Faixa Etária Copiar Email e Colar campo desacoplado

Prezados... preciso de uma força no código abaixo, desenvolvi um critério de Opções de grupo por faixa etária, esta funcionando corretamente, tenho também um código que busca o campo e-mail em uma consulta, preciso agora montar um código para quando filtrar pela faixa etária traga o e-mail do cadastro, segue meu código. O código da faixa etária e do e-mail esta funcionando corretamente, porém não consegui unir os dois na ação "filtrar por faixa etária e colar os e-mail do filtro no campo txpara". Desde já agradeço.


Private Sub GrupoIdade_Click()

'CÓDIGO QUE FILTRA OS REGISTROS POR FAIXA ETÁRIA

Dim criterio As String

Select Case GrupoIdade.Value
Case 1
criterio = "idade>41 And idade<=60"
Me.Filter = criterio
Me.FilterOn = True
Case 2
criterio = "idade>0 And idade<=18"
Me.Filter = criterio
Me.FilterOn = True
Case 3
criterio = "idade>19 And idade<=30"
Me.Filter = criterio
Me.FilterOn = True
Case 4
criterio = "idade>31 And idade<=40"
Me.Filter = criterio
Me.FilterOn = True
Case 5
criterio = "idade>60"
Me.Filter = criterio
Me.FilterOn = True
Case 6
Me.FilterOn = False
End Select

'CODIGO QUE COPIA O E-MAIL DO CADASTRO DO CLIENTE E COLA NO CAMPO TXPARA

Dim rs As DAO.Recordset
Dim StrEMail

If IsNull([faixaet]) Then
MsgBox "Informe a idade!!", vbInformation, "SisClinica - Filtro Publicidade"
End If
Set rs = CurrentDb.OpenRecordset("SELECT * FROM qryProspectoIdade WHERE (idade) = '" & Me.Filter & "';")


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

Boas José Antonio, pelo que vejo estás a aplicar filtro ao form, então após filtrar o mesmo, carrego o rs com o recordset do formulário, algo assim:


Set rs = Me.Recordset.Clone


Cumprimentos.

Cara, resolvido...Muito obrigado!

O Fórum agradece o Retorno.

Não se esqueça de clicar no Joinha da Mensagem que o auxiliou.