Метод Application.AccessError (Access)

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

Синтаксис

выражение. AccessError (ErrorNumber)

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

Параметры

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

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

Variant

Примечания

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

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

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

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

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

Пример

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

Примечание.

Для выполнения кода в среде IDE 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 и обратная связь.