“整理”您的消息框！

您是否想过Microsoft Access如何在第一行中显示这些自定义消息框

粗体 ，以及正常字体粗细的第二行和/或第二行和第三行？ 答案在于使用“ @”符号将消息文本分为两个或三个段落，然后使用Eval（）函数求值整个表达式的独特能力。

插入到您的消息文本中的“ @”符号会将消息分成几段，文本显示在第一个“ @”之前

粗体 。 后面的段落（限于三个）中必须带有“ @”符号。 如果只想中断两个段落，则必须在第二个段落的末尾使用两个“ @”符号。 只需下载附件即可实际了解如何完成此操作。 附加的代码也可以用作您将来的“ Spruced Up”消息框的模板！ 特殊注意事项：

1. 您不能使用此方法在消息框中使用变量。
2. 您不能使用诸如vbOKCancel之类的VB固有常数，这些常数必须作为特定数字给出，您可以在帮助文件或对象浏览器中方便地引用这些常数。

'Code for 2 Paragraphs with OK, Cancel Buttons and an Information Icon, Default Button = 1 [OK]
'(notice the double "@@")
    'vbOKCancel = 1
    'vbInformation = 64
    'TOTAL Constant Value = 65
If Eval("Msgbox('Paragraph 1/Line 1 - this Line will be in BOLD!@Paragraph 2/Line 2 - Click ""OK"" " & _
        "to confirm your Delete or ""Cancel"" to UNDO your deletion.@@',65, 'Message Box Title')") = vbOK Then
  MsgBox "You chose OK!"
Else
  MsgBox "You Canceled the previous Operation!"
End If 
'Code for 3 Paragraphs with Abort, Retry, Ignore Buttons and an Exclamation Icon
'Default Button = 2 [Retry], (each Paragraph separated by "@")
    'vbAbortRetryIgnore = 2
    'vbExclamation = 48
    'vbDefaultButton2 = 256
    'TOTAL Constant Value = 306
Select Case Eval("Msgbox('Paragraph 1/Line 1 - this Line will be in BOLD!@Paragraph 2/Line 2 - Normal Text.@" & _
                 "Paragraph 3/Line 3 - Normal Text.@',306, " & _
                 "'Message Box Title')")
  Case vbAbort
    MsgBox "You Aborted the previous Operation!"
  Case vbRetry
    MsgBox "Way to go! Let's give it another try!"
  Case vbIgnore
    MsgBox "You chose to Ignore the previous Operation!"
End Select

From: https://bytes.com/topic/access/insights/795155-spruce-up-your-message-boxes