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]Concatenar linhas de uma mesma tabela.

    eoalmeida
    eoalmeida
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 26/05/2011

    [Resolvido]Concatenar linhas de uma mesma tabela. Empty Concatenar linhas de uma mesma tabela.

    Mensagem  eoalmeida 16/12/2011, 16:00

    Prezados,

    Alguém como posso concatenar linas de uma mesma tabela?

    DE

    Campo1

    Contas01
    Contas02
    Contas03

    PARA

    Contas01|Contas02|Contas03

    Grato pelo apoio.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Concatenar linhas de uma mesma tabela. Empty Re: [Resolvido]Concatenar linhas de uma mesma tabela.

    Mensagem  criquio 16/12/2011, 16:45

    Olá! Você pode instanciar a tabela como um Recordset e percorrer as linhas com um Loop. Se for para colocar os dados em um campo do formulário, seria algo assim:

    Dim rs As Recordset ' 1
    Set rs = CurrentDb.OpenRecordset("NomeDaTabela") ' 2

    Do While Not rs.EOF ' 3
    If IsNull(Me.NomeDoCampo) Or Me.NomeDoCampo = "" Then ' 4
    Me.NomeDoCampo = rs!NomeCampoDaTabela ' 5
    Else ' 6
    Me.NomeDoCampo = Me.NomeDoCampo & "|" & rs!NomeCampoDaTabela ' 7
    End If ' 8

    rs.Close ' 9
    Set rs = Nothing ' 10

    1 - Criamos um objeto do tipo Recordset, ou seja, um conjunto de registros, a representação de uma tabela;
    2 - Instanciamos o objeto criado, o qual demos o nome de rs, passando o nome da tabela que ele representará;
    3 - Faça enquanto não chegar o fim dos registros;
    4 - Se o campo estiver vazio então;
    5 - O campo receberá o dado do campo da primeira linha da tabela;
    6 - Caso contrário;
    7 - Adicionará um pipe e o dado da próxima linha da tabela;
    8 - Fim da adição de dados;
    9 - Se abrimos a tabela para pegar os dados, precisamos fechá-la;
    10 - Se criamos um objeto, precisamos excluí-lo da memória.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    eoalmeida
    eoalmeida
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 26/05/2011

    [Resolvido]Concatenar linhas de uma mesma tabela. Empty Re: [Resolvido]Concatenar linhas de uma mesma tabela.

    Mensagem  eoalmeida 16/12/2011, 17:37

    Muito obrigado pelo suporte e orientação.

    Conteúdo patrocinado


    [Resolvido]Concatenar linhas de uma mesma tabela. Empty Re: [Resolvido]Concatenar linhas de uma mesma tabela.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 16:07