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


3 participantes

    [Resolvido]Agrupar (concatenar) resultados de uma consulta em um único campo - Consulta "Totais"

    miguel.serra
    avatar
    miguel.serra
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 20/01/2011
    • Mensagem nº1

    [Resolvido]Agrupar (concatenar) resultados de uma consulta em um único campo - Consulta "Totais" Empty Agrupar (concatenar) resultados de uma consulta em um único campo - Consulta "Totais"

    Mensagem  miguel.serra 2/6/2013, 00:15

    Olá, amigos! Alguém saberia uma forma de "concatenar" em um único campo, os resultados agrupados da mesma coluna? Melhor dar um exemplo:

    Quando utilizamos o tipo de consulta "Totais" com o conhecido "Agrupar por" ficamos com o seguinte resultado:
    PACIENTEDOCUMENTOS PENDENTES
    JOÃO P. RG
    JOÃO P. CERTIDÃO NASCIMENTO
    JOÃO P. TÍTULO DE ELEITOR
    PAULO J. COMPROV. END.
    PAULO J. RG

    Mas gostaria que ficasse assim:
    PACIENTEDOCUMENTOS PENDENTES
    JOÃO P. RG; CERTIDÃO NASCIMENTO ;TÍTULO DE ELEITOR
    PAULO J. COMPROV. END.; RG

    Obrigado!
    • Ir para o topo
    Avelino Sampaio
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3883
    Registrado : 04/04/2010
    • Mensagem nº2

    [Resolvido]Agrupar (concatenar) resultados de uma consulta em um único campo - Consulta "Totais" Empty Re: [Resolvido]Agrupar (concatenar) resultados de uma consulta em um único campo - Consulta "Totais"

    Mensagem  Avelino Sampaio 2/6/2013, 07:41

    Para realizar isso numa consulta ou formulário, será necessário criar uma função e para um relatório uma pequena programação direta resolve. Pretende aplicar o resultado da consulta aonde? Em um formulário ou em um relatório ?

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    • Ir para o topo
    miguel.serra
    avatar
    miguel.serra
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 20/01/2011
    • Mensagem nº3

    [Resolvido]Agrupar (concatenar) resultados de uma consulta em um único campo - Consulta "Totais" Empty Re: [Resolvido]Agrupar (concatenar) resultados de uma consulta em um único campo - Consulta "Totais"

    Mensagem  miguel.serra 2/6/2013, 15:04

    Olá, Avelino! A intenção é exportar os resultados para um arquivo de Modelo Excel, com um código semelhante ao que já uso abaixo.
    Será que a função que mencionou serviria também para uma consulta simples?

    Tenho notado que os relatórios em Excel ficam bem mais usuais e visuais e atraentes aos clientes. Depois é só criar um botão que envie o relatório diretamente via email Wink

    Código:
    Private Sub GeraPendDocs_Click()

    Dim objExcel As Object
    DoCmd.OpenQuery "E SOLICITAÇÃO DE DOCS - RELAÇÃO"
    DoCmd.RunCommand acCmdSelectAllRecords
    DoCmd.RunCommand acCmdCopy

    Set objExcel = CreateObject("Excel.Application")

    objExcel.Visible = True

    With objExcel

      .Workbooks.Open (DirRoot & "\MODELOS\DOCUMENTOS PENDENTES - APELIDO - dd.mm.aaaa.xltx")
      .Sheets("RELAÇÃO").Select
      .Range("B5").PasteSpecial (-4163)
      .Range("D5").Select
      .Selection.Copy
      .Application.CutCopyMode = False

    DoCmd.RunCommand acCmdClose

      .Range("D5").Select
     
      .DisplayAlerts = False
      .ActiveWorkbook.RefreshAll
     
      .ActiveWorkbook.SaveAs DirRoot & Forms![2_RELATÓRIOS EXTERNOS]!CombCLI.Value & "\RELATÓRIOS\DOCUMENTOS PENDENTES - " & Forms![2_RELATÓRIOS EXTERNOS]!CxAPELIDO.Value & " - " & Format((Date), "dd.mm.yyyy") & ".xls"
      .DisplayAlerts = True

    End With

    Set objExcel = Nothing
    End Sub

    Obrigado!
    • Ir para o topo
    miguel.serra
    avatar
    miguel.serra
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 20/01/2011
    • Mensagem nº4

    [Resolvido]Agrupar (concatenar) resultados de uma consulta em um único campo - Consulta "Totais" Empty Re: [Resolvido]Agrupar (concatenar) resultados de uma consulta em um único campo - Consulta "Totais"

    Mensagem  miguel.serra 6/6/2013, 02:15

    Puxa, tentei pesquisar bastante sobre como fazer uma função do gênero para a minha consulta mas não consegui Sad
    Será que alguém poderia me ajudar?!
    Obrigado!
    • 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 : 8449
    Registrado : 05/11/2009
    • Mensagem nº5

    [Resolvido]Agrupar (concatenar) resultados de uma consulta em um único campo - Consulta "Totais" Empty Re: [Resolvido]Agrupar (concatenar) resultados de uma consulta em um único campo - Consulta "Totais"

    Mensagem  Alexandre Neves 6/6/2013, 16:48

    Boa tarde,
    Não percebi o que o seu código tem a ver com o agrupar que referiu
    Sobre a concatenação que solicitou, informe todos os detalhes da tabela e da consulta que pretende


    .................................................................................
    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
    Avelino Sampaio
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3883
    Registrado : 04/04/2010
    • Mensagem nº6

    [Resolvido]Agrupar (concatenar) resultados de uma consulta em um único campo - Consulta "Totais" Empty Re: [Resolvido]Agrupar (concatenar) resultados de uma consulta em um único campo - Consulta "Totais"

    Mensagem  Avelino Sampaio 6/6/2013, 18:00

    Segue o exemplo. O resultado final está na consulta qryListaDocumentos

    ATENÇÃO: Este código apresentado traz prejuizo ao desempenho. Se sentir lentidão no processo avise, para ser criada uma função mais elaborada.

    Sucesso!
    Anexos
    [Resolvido]Agrupar (concatenar) resultados de uma consulta em um único campo - Consulta "Totais" AttachmentMiguelSerra.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (22 Kb) Baixado 245 vez(es)


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    • Ir para o topo
    miguel.serra
    avatar
    miguel.serra
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 20/01/2011
    • Mensagem nº7

    [Resolvido]Agrupar (concatenar) resultados de uma consulta em um único campo - Consulta "Totais" Empty Re: [Resolvido]Agrupar (concatenar) resultados de uma consulta em um único campo - Consulta "Totais"

    Mensagem  miguel.serra 7/6/2013, 00:56

    Fantástico, Avelino!

    Tenho uma tabela com 10740 registros de documentos e não demorou nem meio segundo para gerar o agrupamento geral resumido em 1500 linhas!
    A sua idéia de criar a tabela auxiliar qryListaPacientes fez bastante diferença com a melhora do desempenho. Sem ela a consulta fica lenta.

    Muitíssimo obrigado novamente!

    Agradeço também ao Alexandre pela atenção


    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº8

    [Resolvido]Agrupar (concatenar) resultados de uma consulta em um único campo - Consulta "Totais" Empty Re: [Resolvido]Agrupar (concatenar) resultados de uma consulta em um único campo - Consulta "Totais"

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 17/5/2024, 08:49