增加Microsoft Access 2013中的消息框的字体大小

Question

是否可以通过vba代码增加Access 2013中消息框的字体大小？

从此

到这个

有些用户已超过40岁。它们需要更大尺寸的字体才能查看。谢谢！

Answer 1

系统错误框的字体大小是系统控件，需要在所有个人计算机上进行更改。

您可以在VBA中捕获错误并通过UserForm显示您自己的消息，这样您就可以控制消息和字体。

所以，而不是

If countDuplicate > 0 Then
    MsgBox _
        "A record of this Part ID already exist. No changes can be made.", _
        vbCritical, _
        "Duplicated Record"
    Me.Undo
End If

您将拥有以下内容：

If countDuplicate > 0 Then
    frm_AlreadyExists.Show
    Me.Undo
End If

frm_AlreadyExists是您要创建的表单，并且会显示您在上面列出的消息。

这应该让你开始。作为进一步的步骤，您可以创建一个包含UserForm，Error ID，Error Message，{{1}的错误表，而不是为每个错误单独Error Type。 }列。

Error Title

然后，您可以使用以下内容调用Error ID Error Message Error Type Error Title Button Action Button Text 1 A record ... already exist. Critical Duplicated Record SubName1 Click Here 2 ... not a valid EMPLOYEE Critical Invalid GID SubName2 Click Here ：

UserForm

初始化If countDuplicate > 0 Then ErrorID = 1 'You'll need to declare this variable elsewhere in your code frm_AlreadyExists.Show End If 的代码（在UserForm代码模块中）

UserForm

按钮的代码点击

Private Sub UserForm_Initialize()
    Dim lErrorID        As Long
    Dim sErrorMessage   As String
    Dim sErrorType      As String
    Dim sErrorTitle     As String
    Dim sBtnText        As String

    lErrorID = errorID

''Look up the following from the Error Table
    'sErrorMessage = Result from lookup
    'sErrorType = Result from lookup
    'sErrorTitle = Result from lookup
    'sBtnText = Result from lookup

    Me.lbl_ErrorMessage = sErrorMessage
    Me.img_ErrorType.Picture = "C:/File Location/" & sErrorType & ".jpg"
    Me.Caption = sErrorTitle
    Me.btn_Action.Caption = sBtnText
End Sub

通过这个和一些调整和搞乱代码，您现在可以拥有一个自定义错误/消息系统，允许您（甚至用户）设置消息的字体。