共用方式為


Application.AccessError 方法 (Access)

使用 AccessError 方法可傳回與 Microsoft Access 或 Data Access Objects 相關聯的描述性字串, (DAO) 錯誤。

語法

運算式AccessError (ErrorNumber)

expression 代表 Application 物件的變數。

參數

名稱 必要/選用 資料類型 描述
ErrorNumber 必要 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 支援與意見反應