MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

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

    jpatrese
    avatar
    jpatrese
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 16/07/2015
    • Mensagem nº1

    [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 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
    • Ir para o topo
    Alexandre Neves
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8458
    Registrado : 05/11/2009
    • Mensagem nº2

    [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 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
    • Ir para o topo
    jpatrese
    avatar
    jpatrese
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 16/07/2015
    • Mensagem nº3

    [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 16/7/2015, 23:49

    Entendi porem não estou sabendo aplicar

    Pode me ajudar?
    este é um exemplo do bd que quero montar
    • Ir para o topo
    Alexandre Neves
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8458
    Registrado : 05/11/2009
    • Mensagem nº4

    [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 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
    • Ir para o topo
    jpatrese
    avatar
    jpatrese
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 16/07/2015
    • Mensagem nº5

    [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 9/7/2018, 01:25

    Gente desculpa a demora. Mas o exemplo funcionou. Muito Obrigado!
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº6

    [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  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 27/7/2024, 06:34