连接或VBA中无效的用户名或密码时显示错误消息

Question

我已经尝试过下面的代码，但我想使用MsgBox来显示错误消息（-2147217843）

Else
'Display errors..
For Each Err In objConn.Errors
Debug.Print Err.Description
Next
End If

Answer 1

这是一个谷歌搜索。

Msgbox(Err.Description)

不知道如何用问题的当前状态进一步丰富答案。

Answer 2

只需使用具有vbCritical样式的MsgBox函数vbCritical 。

Dim Msg, Style, Title
Style = vbOKOnly + vbCritical                    ' Define buttons.
Title = "Error"                                  ' Define title. 
Msg = "The following errors have been occurred:" ' Prepare message template.
' Build message.
For Each Err In objConn.Errors
    Msg = Msg & vbNewLine & Chr(149) & " " & Err.Description
Next
Call MsgBox(Msg, Style, Title)                   ' Display error message

您也可以使用vbCrLf代替vbNewLine新行字符。