[Resolvido]Eliminar quebra de linha dentro de um registro

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

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

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

Funcionou!!!!

muito obrigado pela ajuda.

suce$$o..