CONCATENAR ajuda Access

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

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

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?

"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

Segue simulaçao

como faço pra concatenar o campo Descrição, sendo que vem sem padrão?

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