MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe

    mlaantonio
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 08/12/2011

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

    Mensagem  mlaantonio em Sab 27 Maio 2017, 17:26

    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:
    [Você precisa estar registrado e conectado para ver esta imagem.]


    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

    misaelsp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 96
    Registrado : 20/02/2013

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

    Mensagem  misaelsp em Sab 27 Maio 2017, 18:44

    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ê


    .................................................................................
    É fazendo que se aprende a fazer aquilo que se deve aprender a fazer [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    Dilson
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1697
    Registrado : 11/11/2009

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

    Mensagem  Dilson em Ter 30 Maio 2017, 22:18

    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.


    mlaantonio
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 08/12/2011

    Resolvido

    Mensagem  mlaantonio em Qua 31 Maio 2017, 17:12

    Funcionou perfeitamente.
    Muito obrigado.

      Data/hora atual: Sab 18 Nov 2017, 13:36