Метод 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 и обратная связь.