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

    lpdias
    avatar
    lpdias
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 177
    Registrado : 11/01/2016
    • Mensagem nº1

    [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á
    • Ir para o topo
    crysostomo
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2680
    Registrado : 23/01/2018
    • Mensagem nº2

    [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.
    • Ir para o topo
    lpdias
    avatar
    lpdias
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 177
    Registrado : 11/01/2016
    • Mensagem nº3

    [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.
    • Ir para o topo
    crysostomo
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2680
    Registrado : 23/01/2018
    • Mensagem nº4

    [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.
    • 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 : 3880
    Registrado : 04/04/2010
    • Mensagem nº5

    [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 vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    • Ir para o topo
    lpdias
    avatar
    lpdias
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 177
    Registrado : 11/01/2016
    • Mensagem nº6

    [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.
    • 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 : 3880
    Registrado : 04/04/2010
    • Mensagem nº7

    [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 vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    • Ir para o topo
    lpdias
    avatar
    lpdias
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 177
    Registrado : 11/01/2016
    • Mensagem nº8

    [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
    • Ir para o topo
    lpdias
    avatar
    lpdias
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 177
    Registrado : 11/01/2016
    • Mensagem nº9

    [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

    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº10

    [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

    • Ir para o topo
      Data/hora atual: 2/5/2024, 10:22