tokerblue
asked on
Access XP: Msgbox Line Break
Is there an easy way to break a message into separate lines? In Access 97, I used this... but it didn't translate to XP.
msgbox "You selected a Warehouse number.@*This is only for Projects that will be stored at either the DMC or the MacAdams Group, LLC. DMC items require a unique 6 Digit eShip number.@"
msgbox "You selected a Warehouse number.@*This is only for Projects that will be stored at either the DMC or the MacAdams Group, LLC. DMC items require a unique 6 Digit eShip number.@"
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
points still go to Jack ...
"Line 1 Here" & vbCrLf & "Line 2 Here"
"Line 1 Here" & vbCrLf & "Line 2 Here"
Press {CTRL}{G}
in the immediate window type
?"String" & vbcrlf & "Value" & vbcrlf & "LINE BREAKS"
press return/enter
then type
?"Line 1 Here" & vbcrlf & "Line 2 Here"
press return/enter
same, same, only the strings have changed to protect the innocent.
in the immediate window type
?"String" & vbcrlf & "Value" & vbcrlf & "LINE BREAKS"
press return/enter
then type
?"Line 1 Here" & vbcrlf & "Line 2 Here"
press return/enter
same, same, only the strings have changed to protect the innocent.
ASKER
One more quick question. Is there a way to make the first line bold?
nope ... you would need to make your own form to do that.
steve
steve
ASKER
No big deal. It was a question more for curiosity's sake. In Access 97, it automatically made the first line bold and the rest of the lines in normal type.
Much thanks for your quick help.
Much thanks for your quick help.
tokerblue:
Will it be your policy on future questions to get the answer to your question and then ask another and award to the second answer???
Just curious. If so I can save my time by bypassing your questions in favor of answering questions on other threads.
Will it be your policy on future questions to get the answer to your question and then ask another and award to the second answer???
Just curious. If so I can save my time by bypassing your questions in favor of answering questions on other threads.
jack ... please see the post coming soon to your neighborhood ... I feel partly responsible for jumping into a question you had well in hand
steve
steve
ASKER
jadedata, this was my fault. I just realized that I awarded the points to stevbe by accident. I meant to award them to you. I'll correct this.
I would consider a Split with Steve to be most appropriate as he always has excellent input to provide.
I thank you for reconsidering this matter. Some questioners would just blow it off. You are a gentleman (i think) and a scholar.
I thank you for reconsidering this matter. Some questioners would just blow it off. You are a gentleman (i think) and a scholar.
and I always like working with Steve on questions anyways.
ASKER
What really sucks is that I've been on this board for a long time and should have noticed. I think the biggest problem is that this is the second day I'm seeing this new format for the board. :)
It took everyone a while to get used to.
Again, thank you for you re-consideration on this, please split with Steve.
Again, thank you for you re-consideration on this, please split with Steve.
Actually, you can make the first line bold. Try this.
Private Sub Command0_Click()
Dim stMsg As String
Dim lgRet As Long
stMsg = "First line in bold.@But not this line." & vbCrLf & "And this line.@"
lgRet = FormatMsgBox(stMsg, vbInformation, "Microsoft Access")
End Sub
Public Function FormatMsgBox(Prompt As String, Buttons As VbMsgBoxStyle, Title As String) As VbMsgBoxResult
Dim stMsg As String
stMsg = "MsgBox(""" & Prompt & """, " & Buttons & ", """ & Title & """)"
FormatMsgBox = Eval(stMsg)
End Function
gaw
Private Sub Command0_Click()
Dim stMsg As String
Dim lgRet As Long
stMsg = "First line in bold.@But not this line." & vbCrLf & "And this line.@"
lgRet = FormatMsgBox(stMsg, vbInformation, "Microsoft Access")
End Sub
Public Function FormatMsgBox(Prompt As String, Buttons As VbMsgBoxStyle, Title As String) As VbMsgBoxResult
Dim stMsg As String
stMsg = "MsgBox(""" & Prompt & """, " & Buttons & ", """ & Title & """)"
FormatMsgBox = Eval(stMsg)
End Function
gaw
tokerblue: Thanx for the question.
ASKER
I'm not very good when it comes to this. Can you show me how it would break in code?
For example:
Line 1 here
Line 2 here