MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Eliminar quebra de linha dentro de um registro

    Compartilhe

    bigjoez
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 04/12/2012

    [Resolvido]Eliminar quebra de linha dentro de um registro

    Mensagem  bigjoez em Sex 21 Mar 2014, 13:23

    Bom dia Senhores

    Esta é minha primeira vez, portanto desculpe se cometer alguma falha.


    Tenho uma tabela com um campo texto que me aparece da seguinte forma:

    ==================================
    ipagare

    02/10/2013

    FCONTROL RISCO MEDIO
    O Score é: 303

    CLIENTE POSSUI COMPRA PELA INTERNET PARA O MESMO ENDEREÇO DE ENTREGA

    Meio de pagamento Mastercard - BuyPage Loja - Cielo
    Forma de pagamento 10x sem juros
    Valor R$2.260,00
    Data 02/10/2013 10:33:04
    Processo Automático
    Número de Autorização
    #ARP#330461
    Número da Transação (TID) 10355380720022A42010
    Código deRetorno (LR) 00
    Número do Comprovante de Venda (NSU) 008868
    Número do Cartão mascarado 515590XXXXXX0940
    Capturado: Sim
    Data da captura: 02/10/2013 11:46:35
    ========================================

    Como vcs  podem ver  este registro tem varias quebras de linha e eu preciso  tira-las.

    Alguem pode me dar  um ideia de como remove-las?

    eu ja usei a função Trim e não funcionou

    me ajudem please

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Eliminar quebra de linha dentro de um registro

    Mensagem  Alexandre Neves em Sex 21 Mar 2014, 18:55

    Boa tarde, e bem-vindo ao fórum
    O campo é texto ou memo?
    Pode disponibilizar dados para se tentar ajudar.


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

    bigjoez
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 04/12/2012

    Re: [Resolvido]Eliminar quebra de linha dentro de um registro

    Mensagem  bigjoez em Sex 21 Mar 2014, 19:24


    Vou tentar explicar melhor:

    No meu ERP tem um campo texto de observações, quando atinge 60 caracteres o sistema cria uma nova linha e continua de onde parou a linha anterior.

    Tem uma informação que preciso buscar neste registro, porém muitas vezes o padrão da consulta fica entre estas linhas e assim não me traz o resultado.

    Bom, resolvi parte do problema através de codigo, onde eu consigo ler todas as linhas desta observação e concatenar em uma variavel string, porem continua com quebra entre as linhas e tem alguns registro que não consigo encontrar pelo motivo acima explicado.


    o codigo que uso é este:

    =====================
    Function CONCATENA()

    Dim db As dao.Database
    Dim rs, rst As dao.Recordset
    Dim X, Z, L, P As String
    Dim I, M, J, K As Long

    Set db = CurrentDb
    Set rs = db.OpenRecordset("teste")
    Set rst = db.OpenRecordset("cielo_aut")


    rs.MoveLast
    rs.MoveFirst
    M = rs.RecordCount

    J = rs!nu_ped
    Z = ""

    For I = 1 To M

    If rs!nu_ped = J Then


    Z = Trim(UCase((Z)) & UCase((rs!texto)))

    rs.MoveNext

    Else
    L = IIf(rs!condpg Like "*cart*", InStr(1, Z, "#AUT#"), InStr(1, Z, "#ARP#"))
    If L = 0 Then

    Else

    P = Nz(Mid(Z, L, 11))


    With rst
    .AddNew
    !num_ped = J
    !aut = P
    !DATA = rs!DATA
    .Update
    .Bookmark = .LastModified
    End With


    End If

    J = rs!nu_ped
    Z = ""

    End If
    Next I

    rs.Close
    rst.Close

    End Function
    ===================================
    Exemplo da tabela original

    DATA nu_ped vlr condPg num_lin texto
    01/10/2013 22205 4324 ATO+CARTAO 10X 1 "01/10/13 10:13 VISA CREDITO PARCELADO LOJA DOC=259762 #A
    01/10/2013 22205 4324 ATO+CARTAO 10X 2 UT#049436 4.324,00 10X TRANSAÇÃO AUTORIZADA COM SENHA PE"
    01/10/2013 22205 4324 ATO+CARTAO 10X 3 "REIRA/MARIA IZA
    *************************************"

    Eu conseguindo colocar o texto em sequencia, vou poder localizar os registros que eu preciso e coloca-los em uma tabela "Cielo_aut".


    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Eliminar quebra de linha dentro de um registro

    Mensagem  Avelino Sampaio em Sab 22 Mar 2014, 09:56

    Olá!

    utilize a função Replace()

    dim strLista$
    strlista = replace(me!NomeCampo,vbCrLf, "")

    ou

    strlista = replace(rs!NomeCampo,vbCrLf, "")

    Sucesso!


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    bigjoez
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 04/12/2012

    Re: [Resolvido]Eliminar quebra de linha dentro de um registro

    Mensagem  bigjoez em Ter 25 Mar 2014, 11:38

    Funcionou!!!!

    muito obrigado pela ajuda.

    suce$$o..

      Data/hora atual: Ter 06 Dez 2016, 05:46