使用 AccessError 方法傳回與 DAO) 錯誤 (Microsoft存取或資料存取物件相關聯的描述性字串。
語法
表達。AccessError (ErrorNumber)
expression 代表 Application 物件的變數。
參數
| 名稱 | 必要/選用 | 資料類型 | 描述 |
|---|---|---|---|
| 錯誤編號 | 必要 | Variant | 要傳回的敘述字串的錯誤編號。 |
傳回值
Variant
註解
當錯誤實際未發生時，請使用 AccessError 方法傳回與 Microsoft Access 或 DAO 錯誤相關聯的描述性字串，但您無法將它用於 ADO 錯誤。
使用 Visual Basic Raise 方法引發 Visual Basic 錯誤。 引發錯誤之後，您可以讀取 Err 物件的 Description 屬性來判斷其相關聯的描述字串。
您無法使用 引發 方法來引發 Microsoft Access 錯誤或 DAO 錯誤。 不過，您可以使用 AccessError 方法可傳回與這些錯誤，而不必會產生錯誤的相關敘述字串。
使用 AccessError 方法，從表單的 Error 事件內傳回描述性字串。
如果已發生 Microsoft Access 錯誤，您可以使用 AccessError 方法或 Visual Basic Err 物件的 Description 屬性來傳回敘述字串。
範例
下列函式會傳回任何有效錯誤號碼的錯誤字串。
注意事項
您必須將錯誤設陷選項設定為 [未處理的錯誤時中斷 ]，程式碼才能在 VBA IDE 中執行。 您可以在 [選項] 對話方塊的 [一般] 索引標籤上設定此選項，該選項框位於 [VBA 工具] 功能表上。
Function ErrorString(ByVal lngError As Long) As String
Const conAppError = "Application-defined or " & _
"object-defined error"
On Error Resume Next
Err.Raise lngError
If Err.Description = conAppError Then
ErrorString = AccessError(lngError)
ElseIf Err.Description = vbNullString Then
MsgBox "No error string associated with this number."
Else
ErrorString = Err.Description
End If
End Function
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。