MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    [Resolvido]Dados de uma coluna em um campo no relatório separados por virgula

    avatar
    jpatrese
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 16/07/2015

    [Resolvido]Dados de uma coluna em um campo no relatório separados por virgula Empty [Resolvido]Dados de uma coluna em um campo no relatório separados por virgula

    Mensagem  jpatrese em 16/7/2015, 01:55

    Ola!
    Tenho duas tabelas.Uma de fornecedor e outra de Nf desses fornecedores. Quero criar um relatório onde em uma caixa de texto mostre todas as notas deste fornecedor separadas por virgula.
    exemplo:

    Fornecedor   Notas fiscais

    A                1,2,3
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7745
    Registrado : 05/11/2009

    [Resolvido]Dados de uma coluna em um campo no relatório separados por virgula Empty Re: [Resolvido]Dados de uma coluna em um campo no relatório separados por virgula

    Mensagem  Alexandre Neves em 16/7/2015, 16:58

    Boa tarde, e bem-vindo ao fórum
    Suponho que tenha a tabela NotasFiscais com campos Fornecedor e NF
    Crie a função
    Código:
    Function ListaNF(strFornecedor As String) As String
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        '  código criado por Alexandre Neves, do Fórum MaximoAccess                                                '
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        Dim Rst As Dao.Recordset
        Set Rst = CurrentDb.OpenRecordset("SELECT NF FROM NotasFiscais WHERE Fornecedor='" & strFornecedor & "' ORDER BY NF")
        Do While Not Rst
            ListaNF = ListaNF & "," & Rst(0)
            Rst.MoveNext
        Loop
        ListaNF = Mid(ListaNF, 2)
        Set Rst = Nothing
    End Function
    Coloque na consulta em SQL
    SELECT DISTINCT Fornecedor, ListaNF(Fornecedor) FROM NotasFiscais ORDER BY Fornecedor


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    jpatrese
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 16/07/2015

    [Resolvido]Dados de uma coluna em um campo no relatório separados por virgula Empty Re: [Resolvido]Dados de uma coluna em um campo no relatório separados por virgula

    Mensagem  jpatrese em 16/7/2015, 23:49

    Entendi porem não estou sabendo aplicar

    Pode me ajudar?
    este é um exemplo do bd que quero montar
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7745
    Registrado : 05/11/2009

    [Resolvido]Dados de uma coluna em um campo no relatório separados por virgula Empty Re: [Resolvido]Dados de uma coluna em um campo no relatório separados por virgula

    Mensagem  Alexandre Neves em 17/7/2015, 09:10

    Bom dia,
    Disponibilize a bd


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    jpatrese
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 16/07/2015

    [Resolvido]Dados de uma coluna em um campo no relatório separados por virgula Empty Re: [Resolvido]Dados de uma coluna em um campo no relatório separados por virgula

    Mensagem  jpatrese em 9/7/2018, 01:25

    Gente desculpa a demora. Mas o exemplo funcionou. Muito Obrigado!

      Data/hora atual: 24/10/2020, 02:02