• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1110
  • Last Modified:

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.@"
0
tokerblue
Asked:
tokerblue
  • 7
  • 5
  • 3
  • +1
1 Solution
 
jadedataMS Access Systems CreatorCommented:
Hey tokerblue!

I use:  
  "String" & vbcrlf & "Value" & vbcrlf & "LINE BREAKS"

vbcrlf is the builtin constant for Chr(13) & chr(10)

regards
Jack
0
 
tokerblueAuthor Commented:
Jack,

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
0
 
stevbeCommented:
points still go to Jack ...

"Line 1 Here" & vbCrLf & "Line 2 Here"
0
Cloud Class® Course: C++ 11 Fundamentals

This course will introduce you to C++ 11 and teach you about syntax fundamentals.

 
jadedataMS Access Systems CreatorCommented:
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.
0
 
tokerblueAuthor Commented:
One more quick question. Is there a way to make the first line bold?
0
 
stevbeCommented:
nope ... you would need to make your own form to do that.

steve
0
 
tokerblueAuthor Commented:
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.
0
 
jadedataMS Access Systems CreatorCommented:
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.
0
 
stevbeCommented:
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
0
 
tokerblueAuthor Commented:
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.
0
 
jadedataMS Access Systems CreatorCommented:
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.
0
 
jadedataMS Access Systems CreatorCommented:
and I always like working with Steve on questions anyways.
0
 
tokerblueAuthor Commented:
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. :)
0
 
jadedataMS Access Systems CreatorCommented:
It took everyone a while to get used to.
Again, thank you for you re-consideration on this, please split with Steve.
0
 
gwgawCommented:
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
0
 
jadedataMS Access Systems CreatorCommented:
tokerblue: Thanx for the question.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Get your problem seen by more experts

Be seen. Boost your question’s priority for more expert views and faster solutions

  • 7
  • 5
  • 3
  • +1
Tackle projects and never again get stuck behind a technical roadblock.
Join Now