Erhöhen Sie die Schriftgröße der Nachricht, Dialogfeld in Microsoft Access 2013

Den schriftart, die Größe des system-Fehler-Boxen ist ein system der Kontrolle und hätte geändert werden müssen auf allen einzelnen Computern.

Könnten Sie stattdessen den Fehler abfangen im VBA und zeigen Sie Ihre eigenen Nachrichten über eine UserForm, die es erlauben würde, Sie zu kontrollieren, die Nachricht und die Schrift.

So, statt

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

Müssten die folgenden:

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

Wo frm_AlreadyExists ist eine form, die Sie schaffen würde, und hätte die Nachricht, die Sie oben aufgeführt sind.

Dass sollte Ihnen den Einstieg. Als einen weiteren Schritt, anstelle einer eigenen UserForm für jeden Fehler, Sie konnte erstellen eine Fehler-Tabelle enthalten würde Error ID, Error Message, Error Type, Error Title Spalten.

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

Dann rufen Sie die UserForm mit den folgenden:

If countDuplicate > 0 Then
    ErrorID = 1 'You'll need to declare this variable elsewhere in your code
    frm_AlreadyExists.Show
End If

Und der code zum initialisieren der UserForm (in der UserForm-code-Modul)

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

Und der code für die Schaltfläche klicken Sie auf

Private Sub btn_Action_Click()
    Dim sBtnAction      As String

''Look up the following from the Error Table
    'sBtnAction = Result from lookup

    Application.Run sBtnAction

End Sub

Mit diesem und einigen Optimierungen und messing mit code, können Sie jetzt eine benutzerdefinierte error/message-system, das Ihnen erlauben würde (oder auch der Benutzer) legen Sie die schriftart für die Nachrichten.

InformationsquelleAutor guitarthrower