Multiple Lines

[sf129]

This is the exact value I have in a field in an access table. How do I get it all on 1 line instead of 6?


Import nine Tables
all Received data including their demo info

demo info (name type = example)
cal
history

 

[PaulF]

if this data contains Line Feeds then you can test for that
and remove it...


Function fRemoveLineFeed(strIn as string)
dim x as Integer
dim strData as string, strPrevC as string
strPrevC = ""
For x = 1 to len(strIn)
If Asc(mid(strIn,x,1))< 32 Then
If Asc(mid(strIn,x,1)) = vbLf Then
If strPrevC <> space(1) Then 'Add a Space
strData = strData & &quot; &quot;
End If
End if
Else
strData = strData & Mid(strIn,x,1)
strPrevC = Mid(strIn,x,1)
End If

Next x

fRemoveLineFeed = strData
End Function

PaulF