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]Concatenar todos os registros de um mesmo campo em uma caixa de texto

    avatar
    lpdias
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 177
    Registrado : 11/01/2016

    [Resolvido]Concatenar todos os registros de um mesmo campo em uma caixa de texto Empty [Resolvido]Concatenar todos os registros de um mesmo campo em uma caixa de texto

    Mensagem  lpdias 21/10/2023, 23:43

    Boa noite a todos!

    Gostaria de uma ajuda para concatenação de um único campo.
    Tenho um relatório que recebe dados da consulta Cs_motivacao.
    Essa consulta tem +/- 20 registros e não passará disso.

    Preciso ter um campo no relatório que concatene todas as linhas de cpf em uma mesma caixa de texto

    Ex: 256894545-55, 256987458-98, 354789654-85 etc...

    Agradeço desde já
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2675
    Registrado : 23/01/2018

    [Resolvido]Concatenar todos os registros de um mesmo campo em uma caixa de texto Empty Re: [Resolvido]Concatenar todos os registros de um mesmo campo em uma caixa de texto

    Mensagem  crysostomo 23/10/2023, 13:22

    Bom dia.
    Me.campo= campo1 & ","" & campo2


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    lpdias
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 177
    Registrado : 11/01/2016

    [Resolvido]Concatenar todos os registros de um mesmo campo em uma caixa de texto Empty Re: [Resolvido]Concatenar todos os registros de um mesmo campo em uma caixa de texto

    Mensagem  lpdias 23/10/2023, 15:59

    Bom dia Crysostomo, agradeço por embarcar no meu problema.

    Da forma que você me indicou não vai ajudar, pois trata-se de um único campo.
    Preciso que ele concatene todos os registros dessa coluna.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2675
    Registrado : 23/01/2018

    [Resolvido]Concatenar todos os registros de um mesmo campo em uma caixa de texto Empty Re: [Resolvido]Concatenar todos os registros de um mesmo campo em uma caixa de texto

    Mensagem  crysostomo 23/10/2023, 17:34

    Anexe o projeto aqui.


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3835
    Registrado : 04/04/2010

    [Resolvido]Concatenar todos os registros de um mesmo campo em uma caixa de texto Empty Re: [Resolvido]Concatenar todos os registros de um mesmo campo em uma caixa de texto

    Mensagem  Avelino Sampaio 23/10/2023, 21:35

    Olá!

    Fiquei na dúvida se o relatório deverá exibir os 20 registros, incluindo o campo que conterá a lista dos CPF's ou somente o campo com os CPF's.

    De qualquer modo a solução sairá de uma pequena programação, direto no relatório.

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    lpdias
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 177
    Registrado : 11/01/2016

    [Resolvido]Concatenar todos os registros de um mesmo campo em uma caixa de texto Empty Re: [Resolvido]Concatenar todos os registros de um mesmo campo em uma caixa de texto

    Mensagem  lpdias 24/10/2023, 15:11

    Bom dia!

    Prazer falar com você Avelino.

    Então....nesse relatório preciso incluir em um único campo todos os cpfs dos respectivos 20 registros.
    Somente os cpfs em sequência separado por virgula.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3835
    Registrado : 04/04/2010

    [Resolvido]Concatenar todos os registros de um mesmo campo em uma caixa de texto Empty Re: [Resolvido]Concatenar todos os registros de um mesmo campo em uma caixa de texto

    Mensagem  Avelino Sampaio 24/10/2023, 15:51

    Passos:

    1- crie um relatório em branco e desvinculado
    2- na propriedade "fonte de registro" aponte a consulta
    3- copie o campo do CPF para a seção detalhe do relatório
    4- crie um campo desvinculado na seção detalhe. chame de CPF_TODOS
    5- crie o evento "ao imprimir" da seção detalhes e do cabeçalho.
    6- monte os códigos, conforme exemplo abaixo:

    Option Compare Database
    Dim j As Boolean

    Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
    If j = False Then
    Me!CPF_TODOS = Me!NomeDoCampoCPF
    j = True
    Else
    Me!CPF_TODOS = Me!CPF_TODOS & "," & Me!NomeDoCampoCPF
    End If
    Me.MoveLayout = False
    End Sub

    Private Sub PageHeaderSection_Print(Cancel As Integer, PrintCount As Integer)
    Me!CPF_TODOS = Null
    End Sub






    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    lpdias
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 177
    Registrado : 11/01/2016

    [Resolvido]Concatenar todos os registros de um mesmo campo em uma caixa de texto Empty Re: [Resolvido]Concatenar todos os registros de um mesmo campo em uma caixa de texto

    Mensagem  lpdias 24/10/2023, 16:00

    Obrigado Mestre.
    Vou testar e retorno informando o sucesso.

    Abraço
    avatar
    lpdias
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 177
    Registrado : 11/01/2016

    [Resolvido]Concatenar todos os registros de um mesmo campo em uma caixa de texto Empty Re: [Resolvido]Concatenar todos os registros de um mesmo campo em uma caixa de texto

    Mensagem  lpdias 24/10/2023, 18:37

    Boa tarde a todos!

    Mestre Avelino, deu tudo certo.
    Agradeço pelo ensinamento, forte abraço.

    crysostomo gosta desta mensagem


    Conteúdo patrocinado


    [Resolvido]Concatenar todos os registros de um mesmo campo em uma caixa de texto Empty Re: [Resolvido]Concatenar todos os registros de um mesmo campo em uma caixa de texto

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/2/2024, 12:03