MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6391
    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".

    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3390
    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!

    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: Qui 21 Set 2017, 19:29