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

4 participantes

    CONCATENAR ajuda Access

    avatar
    Jubs
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 10
    Registrado : 23/12/2021

    CONCATENAR ajuda Access Empty CONCATENAR ajuda Access

    Mensagem  Jubs 27/12/2021, 17:16

    Boa tarde, Pessoal!

    Utilizo uma base extraida e nela contém uma descrição sobre o produto, porém sempre vem toda quebrada em células a descrição e preciso concaternar antes de subir no access para fazer uma consulta.

    Como posso concatenar no proprio access?


    A base é assim:

    ID Pédido Data Descrição

    P1 23/12/2021 Pedido contém blablabla
    P1 24/12/2021 Pedido contém aaabbbccc
    P1 24/12/2021
    P2 25/12/2021
    P2 22/12/2021

    Essa descrição vem toda quebrada em células assim, não tem limite de carcteres, é inserida manualmente

    Pe dido cont ém bla blabla

    Preciso concatenar o campo Descrição na minha consulta
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2032
    Registrado : 13/12/2016

    CONCATENAR ajuda Access Empty Re: CONCATENAR ajuda Access

    Mensagem  Alexandre Fim 27/12/2021, 18:34

    Olá Juliana,

    O que seria mais viável é saber por que os dados da Descrição vem "quebrado" de sua origem, ou se a base de dados que você recebe é também manipulada por terceiros. Isso está parecendo dados com caracteres especiais oriundos da web ou de algum sistema que usa algum separador de dados diferente.

    Quando os campos tem largura padrão, é tranquilo fazer as importação dos dados para o Access, seja o arquivo uma planilha ou arquivo txt e etc, mas arrumar o campo Descrição fica mais complicado.

    Qual é o formato de arquivo da sua base?
    .xls/xlsx
    .txt
    .doc
    .rtf

    Se possível, compartilhe o arquivo para análise e possivel solução.

    É isso

    []'s

    FIM


    .................................................................................
    CONCATENAR ajuda Access Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    Jubs
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 10
    Registrado : 23/12/2021

    CONCATENAR ajuda Access Empty Re: CONCATENAR ajuda Access

    Mensagem  Jubs 27/12/2021, 18:52

    A base é extraída diretamente de um sistema/servidor não tenho como manipula lá

    Não posso compartilhar o arquivo

    Ele vem em csv, não eh possível concatenar no access?
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 928
    Registrado : 11/11/2009

    CONCATENAR ajuda Access Empty Re: CONCATENAR ajuda Access

    Mensagem  scandinavo 29/12/2021, 00:03

    "Não posso compartilhar o arquivo"

    crie um com mais ou menos 5 linhas com informações falsas mas na mesma estrutura do seu arquivo original


    para concatenar na consulta

    exemplo campo nome e outro campo sobrenome.


    nome completo: campo nome & campo sobrenome
    avatar
    Jubs
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 10
    Registrado : 23/12/2021

    CONCATENAR ajuda Access Empty Re: CONCATENAR ajuda Access

    Mensagem  Jubs 29/12/2021, 16:07

    Segue simulaçao

    como faço pra concatenar o campo Descrição, sendo que vem sem padrão?
    Anexos
    CONCATENAR ajuda Access AttachmentCONCATENAR.xlsx
    Você não tem permissão para fazer download dos arquivos anexados.
    (10 Kb) Baixado 10 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8056
    Registrado : 05/11/2009

    CONCATENAR ajuda Access Empty Re: CONCATENAR ajuda Access

    Mensagem  Alexandre Neves 4/1/2022, 19:33

    Boa noite Jubs
    Não se esqueça de respeitar as regras do fórum (dar seguimento aos seus temas)
    (https://www.maximoaccess.com/t40375-dsoma-consulta-2-tabelas#275135)

    Sobre este tema, execute o código adequando a pasta onde se encontra o ficheiro
    Código:
    Sub ConcatenaJubs()
        '--------------------------------------------------------------'
        '   código criado por Alexandre Neves, do Fórum MaximoAccess   '
        '     utilize o código livremente mas mantenha os créditos     '
        '--------------------------------------------------------------'    
        Dim meuExcel, xls As Workbook, Linha As Integer, Coluna As Byte
        Set meuExcel = CreateObject("Excel.Application")
        meuExcel.visible = False
        Set xls = meuExcel.Workbooks.Open("D:\Concatenar.xlsx")
        Linha = 2
        Do
            If Len("" & xls.Sheets("CONCATENAR").Range("A" & Linha)) = 0 Then Exit Do
            Coluna = 4
            Do
                If Len("" & xls.Sheets("CONCATENAR").cells(Linha, Coluna)) = 0 Then Exit Do
                xls.Sheets("CONCATENAR").Range("C" & Linha) = xls.Sheets("CONCATENAR").Range("C" & Linha) & xls.Sheets("CONCATENAR").cells(Linha, Coluna)
                xls.Sheets("CONCATENAR").cells(Linha, Coluna) = Null
                Coluna = Coluna + 1
            Loop
            Linha = Linha + 1
        Loop
        xls.Close True
        meuExcel.visible = True
        meuExcel.Quit
    End Sub


    .................................................................................
    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

      Data/hora atual: 20/1/2022, 10:58