一般错误处理程序：如果 UserForm 中出现除 msgBox 之外的任何错误：Err.Description

Question

我这里有一个代码，一旦出现错误，消息框就会打开。我故意构建了错误，但没有出现 msgbox，而是应用程序的 microsoft Visual Basic，我不希望出现这种情况。我希望显示 msgbox 时出现任何错误消息。我怎样才能做到这一点？我怎样才能使用完整用户表单的查询？有 UserForm_Error 但它是这个意思吗？我不适应。

我的代码：（我故意在此处输入错误，没有 DataBaseTest，因此会出现一个带有“错误：变量未定义”的 msgbox，但打开的不是 msgbox microsoft Visual Basic for applications

Private Sub ConnectCheck()
    ' Versuchen, eine Verbindung zur Datenbank herzustellen
    On Error GoTo ErrorHandler
    Dim connStr As String
    connStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathDB & ";Jet OLEDB:DatabaseTest Password=" & PasswordDB & ";" 'no DatabaseTest intentionally entered an misstake
    
    Dim conn As Object
    Set conn = CreateObject("ADODB.Connection")
    

    conn.Open connStr

    
    If conn.State = 1 Then
        ' Verbunden
        LabelConnect.Caption = "Connected"
        LabelConnect.Font = RGB(0, 255, 0)
    Else

'        LabelConnect.Caption = "Not Connected"
'        LabelConnect.Font = RGB(255, 0, 0)
    End If
    

    conn.Close
    Set conn = Nothing
    Exit Sub
ErrorHandler:
    MsgBox "Error: " & Err.Description
    

End Sub

Answer 1

确保您选择了“因未处理的错误而中断”...

Visual Basic Editor >> Tools >> Options >> check/select Break on Unhandled Errors