How to add CR/LF to a forms .value text box

[cobolguy]

I am trying to add the cr/lf characters to a form text box. I have used both text and a memo field that is set for Rich Text. I can add them to a string, display the string in a message box - but when I move the string to the forms field the CR/LF are being stripped out. I do not know how to overcome that. Here is a snippet of code:

Private Sub ParentParcel_DblClick(Cancel As Integer)
'On Error GoTo EndSub
'
''''''
' 
'
''''''
Dim NewParentParcel As String
Dim CurrentParentParcel As String
Dim TempMapBookPage As String
Dim strSQL As String
Dim response As String
'
TempMapBookPage = "'" & MapBookPage & "'"
CurrentParentParcel = ParentParcel
TempMapBookPage = "'37/110'"
'MsgBox (TempMapBookPage)
strSQL = "SELECT * FROM ParentParcelsTable where MapBookPage=" & TempMapBookPage & "order by ParentParcels"
'
Dim dbs As DAO.Database
Dim rstMapQuery As DAO.Recordset
'
Set dbs = CurrentDb
Set rstMapQuery = dbs.OpenRecordset(strSQL, dbOpenSnapshot)
'
Do Until rstMapQuery.EOF
    If NewParentParcel = "" Then
      NewParentParcel = rstMapQuery.Fields("ParentParcels")
    Else
       NewParentParcel = NewParentParcel & vbCrLf & _
         rstMapQuery.Fields("ParentParcels")
    End If
    response = MsgBox(NewParentParcel, vbYesNo)
    ' after this statement I can see the parcel numbers displayed    
  rstMapQuery.MoveNext
'
Loop
'
EndSub:
'
rstMapQuery.Close
Set rstMapQuery = Nothing
Set dbs = Nothing
'
MsgBox ("final result = " & NewParentParcel)
Forms("RecordedMapsForm").ParentParcel.Value = NewParentParcel
Me.Refresh
'
End Sub

[ADezii]

To add a Carriage Return/Line Feed combination to any String:

strAnyString & vbCrLf

[cobolguy]

Thanks ADezii for the quick reply. Please take a look at line 30. At line 46 where the data goes back to the form - they are stripped out for some reason.

[ADezii]

Thanks ADezii for the quick reply. Please take a look at line 30. At line 46 where the data goes back to the form - they are stripped out for some reason.

Can't think of any reason why they would be. Instead of vbCrLf, you can use:

Chr$(13) & Chr$(10)

[cobolguy]

I have used vbNewline and the chr(n) codes as well. They all display correctly in the msgbox at ine 33, but after the statement at line 46 the strings are concatenated without the CR/LF. Maybe there is another work-around?

[ADezii]

I have used vbNewline and the chr(n) codes as well. They all display correctly in the msgbox at ine 33, but after the statement at line 46 the strings are concatenated without the CR/LF. Maybe there is another work-around?

Type the following into the Debug Window (CTRL+G):

? "Herman" & vbCrLf & "Munster"

You should see:

Herman
Munster

Is this the case?

[cobolguy]

Hello ADezii - yes I see it (without the 1. and 2. of course). It would be nice if I could include a screenshot of the msgbox to show you.

[ADezii]

Hello ADezii - yes I see it (without the 1. and 2. of course). It would be nice if I could include a screenshot of the msgbox to show you.

You never actually answered Post #6, do you see

Herman
Munster

when you type ?

"Herman" & vbCrLf & "Munster"
 

[cobolguy]

Yes - I see it in the Immediate Window as you said. Thanks.

[ADezii]

Yes - I see it in the Immediate Window as you said. Thanks.

Try the code in a Standard Text Box and see what happens.