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