Hi all,

I have been able to get the text I want into a text box of a form, the issue
is that I can't get it in the format I want. Specifically, I want it to do
the following:

1 - Wrap the text (I set the "Wordwrap" property of the text box to "Yes",
but it is not working)

2 - I want to set paragraphs so the new paragraph begins two spaces below
the first. I tried to do this as seen below, but it is not working. The
text is all in one line.

Thanks for your help!

Code:
Module36:
Sub test()

Dim strerrormsg As String

'If there are still missing Merchant IDs, need to bring up message and
show red button on Main Menu
strerrormsg = "The Linkshare 'Affiliate / Payment Summary' report does not
list Merchant Names but not their associated Merchant IDs. As a result, this
tool attempts to cross reference the Merchant Name in this report against the
'Member ID Field Report' and the 'Affiliate Payment Summary report, each of
which list the Merchant ID for each Merchant. Not all Merchants were able to
be cross referenced. As a result, you can manually enter in the Merchant ID
for those Merchants listed on the 'Linkshare Merchants not tied' sheet which
can be accessed from the 'Main Menu' (the button is in red)" & vbNewLine & _
" " & vbNewLine & _
"You may copy this error message by clicking on the 'Copy
Error Message to Clipboard' button below. It is suggested that you open up
'Notepad' or 'Microsoft Word', right click anywhere in the document, and
select 'Paste'"

Call Module33.frmerrormessage(strerrormsg)

End Sub
---
Module33:
Sub frmerrormessage(strerrormsg)

With frmerrormsg
.Show vbModeless
.txterrormsg = strerrormsg
End With
DoEvents

End Sub


--
Robert

I am pretty sure you can set the multiline to true and use either vbCrLf or
Chr(10).



"robs3131" wrote:

Hi all,

I have been able to get the text I want into a text box of a form, the issue
is that I can't get it in the format I want. Specifically, I want it to do
the following:

1 - Wrap the text (I set the "Wordwrap" property of the text box to "Yes",
but it is not working)

2 - I want to set paragraphs so the new paragraph begins two spaces below
the first. I tried to do this as seen below, but it is not working. The
text is all in one line.

Thanks for your help!

Code:
Module36:
Sub test()

Dim strerrormsg As String

'If there are still missing Merchant IDs, need to bring up message and
show red button on Main Menu
strerrormsg = "The Linkshare 'Affiliate / Payment Summary' report does not
list Merchant Names but not their associated Merchant IDs. As a result, this
tool attempts to cross reference the Merchant Name in this report against the
'Member ID Field Report' and the 'Affiliate Payment Summary report, each of
which list the Merchant ID for each Merchant. Not all Merchants were able to
be cross referenced. As a result, you can manually enter in the Merchant ID
for those Merchants listed on the 'Linkshare Merchants not tied' sheet which
can be accessed from the 'Main Menu' (the button is in red)" & vbNewLine & _
" " & vbNewLine & _
"You may copy this error message by clicking on the 'Copy
Error Message to Clipboard' button below. It is suggested that you open up
'Notepad' or 'Microsoft Word', right click anywhere in the document, and
select 'Paste'"

Call Module33.frmerrormessage(strerrormsg)

End Sub
---
Module33:
Sub frmerrormessage(strerrormsg)

With frmerrormsg
.Show vbModeless
.txterrormsg = strerrormsg
End With
DoEvents

End Sub


--
Robert

Thanks! I didn't realize there was a multiline property. This did the trick!
--
Robert


"JLGWhiz" wrote:

I am pretty sure you can set the multiline to true and use either vbCrLf or
Chr(10).



"robs3131" wrote:

Hi all,

I have been able to get the text I want into a text box of a form, the issue
is that I can't get it in the format I want. Specifically, I want it to do
the following:

1 - Wrap the text (I set the "Wordwrap" property of the text box to "Yes",
but it is not working)

2 - I want to set paragraphs so the new paragraph begins two spaces below
the first. I tried to do this as seen below, but it is not working. The
text is all in one line.

Thanks for your help!

Code:
Module36:
Sub test()

Dim strerrormsg As String

'If there are still missing Merchant IDs, need to bring up message and
show red button on Main Menu
strerrormsg = "The Linkshare 'Affiliate / Payment Summary' report does not
list Merchant Names but not their associated Merchant IDs. As a result, this
tool attempts to cross reference the Merchant Name in this report against the
'Member ID Field Report' and the 'Affiliate Payment Summary report, each of
which list the Merchant ID for each Merchant. Not all Merchants were able to
be cross referenced. As a result, you can manually enter in the Merchant ID
for those Merchants listed on the 'Linkshare Merchants not tied' sheet which
can be accessed from the 'Main Menu' (the button is in red)" & vbNewLine & _
" " & vbNewLine & _
"You may copy this error message by clicking on the 'Copy
Error Message to Clipboard' button below. It is suggested that you open up
'Notepad' or 'Microsoft Word', right click anywhere in the document, and
select 'Paste'"

Call Module33.frmerrormessage(strerrormsg)

End Sub
---
Module33:
Sub frmerrormessage(strerrormsg)

With frmerrormsg
.Show vbModeless
.txterrormsg = strerrormsg
End With
DoEvents

End Sub


--
Robert