Метод Application.AccessError (Access)

Используйте метод AccessError для возврата описательной строки, связанной с ошибкой Microsoft Access или объектов доступа к данным (DAO).

Синтаксис

expression. AccessError (ErrorNumber)

выражение: переменная, представляющая объект Application.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
ErrorNumber	Обязательный	Variant	Номер ошибки, для которой требуется вернуть описательную строку.

Возвращаемое значение

Variant

Примечания

Используйте метод AccessError , чтобы вернуть описательную строку, связанную с ошибкой Microsoft Access или DAO, если ошибка фактически не произошла, но ее нельзя использовать для ошибок ADO.

Используйте метод Visual Basic Raise , чтобы вызвать ошибку Visual Basic. После возникновения ошибки можно определить связанную с ней описательную строку, прочитав свойство Description объекта Err .

Вы не можете использовать метод Raise , чтобы вызвать ошибку Microsoft Access или DAO. Однако метод AccessError можно использовать для возврата описательной строки, связанной с этими ошибками, без необходимости создавать ошибку.

Используйте метод AccessError для возврата описательной строки из события Error формы.

Если произошла ошибка Microsoft Access, можно вернуть описательную строку с помощью метода AccessError или свойства Description объекта Err Visual Basic.

Пример

Следующая функция возвращает строку ошибки для любого допустимого номера ошибки.

Примечание.

Чтобы код выполнялся в интегрированной среде разработки VBA, необходимо задать для параметров перехвата ошибок значение Прерывание при необработанных ошибках . Этот параметр можно задать на вкладке Общие диалогового окна Параметры в меню Средства 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 и обратная связь.