Message In Message Box

[Derrick T. Davidson]

I have a message box which shows the message below:


Msg = Msg & "Do you want to add it? **IF YES ADD ACATEGORY**"

Is there a way to make it look like this?:
Msg = Msg & "Do you want to add it? **IF YES ADD A CATEGORY**"
i.e. two lines the second line being bold

The complete current code is below for "Not In List":
Dim i As Integer
Dim Msg As String
If NewData = "" Then Exit Sub
Msg = "'" & NewData & "' is not currently in the list." & vbCr & vbCr
Msg = Msg & "Do you want to add it? **IF YES ADD A CATEGORY**"
i = MsgBox(Msg, vbQuestion + vbYesNo, "Shopping List...")
If i = vbYes Then
strSQL = "Insert Into CatItem_tbl ([Item]) " & _
"values ('" & NewData & "');"
CurrentDb.Execute strSQL, dbFailOnError
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If
Hope someone can help.............

[ranman256]

You cant control font in a msg box. Its just a way to respond.
You'd have to show a dialog FORM with a label. Then you can do fonts.

[amrut]

Not by using the default message box. Use a pop up form. One more option found on web uses rich text box. Here is the link http://blog.nkadesign.com/2008/ms-ac...x-replacement/

[John_G]

Hi -

This isn't quite what you are looking for - it puts the first line in bold - but you might find it useful. I got it may years ago off one of these boards, and it emulates a functionality Access to have prior to A2010.

Function FormattedMsgBox( _
  prompt As String, _
  Optional buttons As Variant = vbOKOnly, _
  Optional title As String = "My Title", _
  Optional HelpFile As Variant, _
  Optional context As Variant) As Integer
    
  Dim strMsg As String, quote As String
  Dim sTemp As String
  
  On Error GoTo Error_Proc
  
  sTemp = strtran(prompt, """", """""")
  quote = Chr(34)
    
  If IsMissing(HelpFile) Or IsMissing(context) Then
   strMsg = "msgbox(" & _
   quote & sTemp & quote & _
   ", " & buttons & _
   ", " & quote & title & quote & _
   ")"
  Else
   strMsg = "msgbox(" & _
   quote & sTemp & quote & _
   ", " & buttons & _
   ", " & quote & title & quote & _
   ", " & quote & HelpFile & quote & _
   ", " & context & _
   ")"
  End If
  FormattedMsgBox = Eval(strMsg)
  Exit Function
Error_Proc:
  ' Code for error here
End Function

The resulting message has three lines, the first one being bold. You call it like this:

x = Formattedmsgbox("Line 1 bold@Line 2 normal@line 3 normal",VBYesNo,"Window title")

You can also put a help reference in, if you feel ambitious.

John

[Derrick T. Davidson]

Thanks to everyone appreciate your help