[Resolvido]Relatório de valores separados por virgula em uma única linha

Senhores, Saudações.

Desculpe se essa questão já foi apresentada, mas procurei muito sobre minha questão no site, mas não encontrei nada parecido, pois tudo que achei era muito complexo e minha questão é bem simples.
Tenho uma planilha TBL TESTE a qual tem dois campos, um deles quero usar um filtro DESCR e o outro campo NOME gostaria de apresentar em um relatório, mas todos separados por virgula em uma unica linha.

Tabela:



Exemplo para o relatório:

Nomes para DESCR = SETOR D

GOIABA, TATTOO, COBIÇA, FONDANO, MATHEUS, ALEX, LENHADO, CUNHA, BRUNO, EMERSON, ALEX X

Desde já agradeço,
Mario Antonio

Boa Tarde.. Tente da seguinte forma


dim rs as recordset
dim NReg as Variant
dim varResultado as Variant

set rs = currentdb.openrecordset("SELECT * FROM tblSuaTabela")

rs.movelast
NReg = rs.recordcount
rs.movefirt
dim C
varResultado = rs!Nome
for c = 2 to nreg
rs.movenext
varResultado = VarResultado & ", " & rs!Nome
next c

rs.close

esta função abre a sua tabela, captura o nome do primeiro registro depois roda todos os registros através de um loop, e salvando na variavel resultado os nomes seguintes separando por virgula.

espero que seje a solução ideal pra você

Movido

Boa noite mlaantonio, por favor leia as regras do fórum. Não se deve publicar dúvida nas salas "Repositório de Exemplos" que são destinadas somente à postagem de exemplos.

Funcionou perfeitamente.
Muito obrigado.