Vba excel обработка ошибок
Включает программу обработки ошибок и указывает местоположение этой программы в процедуре; также может использоваться для отключения программы обработки ошибок.
Синтаксис
On Error GoTo line
On Error Resume Next
On Error GoTo 0
Синтаксис оператора On Error может принимать любую из следующих форм:
Аргумент line представляет собой любую метку строки или любой номер строки.
Если возникает ошибка во время запуска, управление ветвями для строки, что делает обработник ошибок активным.
Примечания
Если вызывающая процедура содержит включенный обработчик ошибок, он активируется для обработки ошибки. Если обработчик ошибок вызывающей процедуры также активный, управление передается обратно через предыдущие вызывающие процедуры до тех пор, пока не будет найден включенный, но неактивный обработчик. Если не удается найти неактивный включенный обработчик ошибок, ошибка является неустранимой в той точке, в которой она фактически произошла.
Каждый раз, когда обработчик ошибок передает управление обратно вызывающей процедуре, эта процедура становится текущей процедурой. После обработки ошибки обработчивем ошибки в любой процедуре, выполнение возобновляется в текущей процедуре в точке, указанной в заявлении Resume .
Процедура обработки ошибок не является процедурой Sub или Функцией . Это раздел кода, помеченный меткой строки или номером строки.
On Error Resume Next вызывает продолжение выполнения с оператора, сразу же следующего за оператором, вызвавшим ошибку выполнения, или с оператора, сразу же следующего за последним вызовом процедуры, содержащей оператор On Error Resume Next. Этот оператор разрешает продолжать выполнение несмотря на ошибку выполнения. Можно поместить программу обработки ошибок туда, где может произойти ошибка, вместо того чтобы переносить управление в другое местоположение в процедуре. Оператор On Error Resume Next становится неактивным, когда вызывается другая процедура, поэтому следует выполнять оператор On Error Resume Next в каждой вызываемой программе, если нужно обрабатывать внутренние ошибки в этой программе.
При обработке ошибок, возникающих при обращении к другим объектам, конструкция On Error Resume Next предпочтительнее, чем On Error GoTo. Проверка объекта Err после каждого взаимодействия с объектом позволяет устранить неоднозначность в плане того, к какому объекту обращался код. Вы можете точно определить, какой объект поместил код ошибки в свойство Err.Number, а также какой объект изначально сгенерировал ошибку (объект, указанный в свойстве Err.Source).
Оператор On Error GoTo 0 отключает обработку ошибок в текущей процедуре. Он не указывает строку 0 в качестве начала кода обработки ошибки, даже если процедура содержит строку с номером 0. Без оператора On Error GoTo 0 обработчик ошибок автоматически отключается, когда выполняется выход из процедуры.
Чтобы не допустить выполнения кода обработки ошибки, когда ошибка не произошла, поместите оператор Exit Sub, Exit Function или Exit Property непосредственно перед программой обработки ошибок, как показано в следующем фрагменте:
Здесь код обработки ошибок следует заявлению Exit Sub и предшествует заявлению End Sub , чтобы отделить его от потока процедуры. Код обработки ошибок может помещаться в любом месте процедуры.
Неперехваченные ошибки в объектах возвращаются в управляющее приложение, когда объект выполняется как исполняемый файл. В среде разработки неперехваченные ошибки только возвращаются в управляющее приложение, если заданы надлежащие параметры. Следующие сведения см. в документации ведущего приложения: какие параметры следует задать во время отладки, как задать эти параметры, может ли ведущее приложение создавать классы.
Если создается объект, имеющий доступ к другим объектам, следует попытаться обработать ошибки, передаваемые из этих объектов необработанными. Если вам не удается обрабатывать такие ошибки, сопоставьте код ошибки в Err.Number с одной из собственных ошибок и затем передайте их обратно вызывающей стороне объекта. Следует указать ошибку, добавив код ошибки в константу vbObjectError. Например, если код вашей ошибки — 1052, назначьте его следующим образом:
Системные ошибки во время вызовов Windows динамических библиотек ссылок (DLL) или ресурсов кода Macintosh не вызывают исключений и не могут быть заблокированы с помощью Visual Basic ошибок. При вызове функций DLL необходимо проверить каждое возвращаемого значения на успешность или сбой (в соответствии со спецификациями API), а в случае сбоя проверьте значение в свойстве lastDLLError объекта Err. Свойство LastDLLError всегда возвращает ноль в Macintosh.
Пример
В этом примере сначала используется оператор On Error GoTo для указания местоположения программы обработки ошибок в процедуре. В примере попытка удалить открытый файл генерирует ошибку номер 55. Ошибка обрабатывается в программе обработки ошибок, и затем управление возвращается к оператору, вызвавшему ошибку. Оператор On Error GoTo 0 выключает перехват ошибок.
Затем заявление On Error Resume Next используется для отсрочки улавливания ошибок, чтобы можно было точно знать контекст ошибки, порожденной следующим утверждением. Обратите внимание, что Err.Clear используется для очистки свойств объекта Err после обработки ошибки.
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.
Error Ключевое слово также используется в Error , которая поддерживается для обеспечения обратной совместимости.
Синтаксис
Компоненты
Термин | Определение |
---|---|
GoTo GoTo | Включает подпрограммы обработки ошибок, которая начинается в строке, указанной в аргументе обязательной строки . Аргумент line имеет любую метку или номер строки. Если возникает ошибка времени выполнения, Управление подразделениями выполняется до указанной строки, делая активным обработчик ошибок. Указанная строка должна находиться в той же процедуре, что On Error и инструкция, либо возникнет ошибка времени компиляции. |
GoTo 0 | Отключает включенный обработчик ошибок в текущей процедуре и сбрасывает его в Nothing . |
GoTo -1 | Отключает включенное исключение в текущей процедуре и сбрасывает его в Nothing . |
Resume Next | Указывает, что при возникновении ошибки во время выполнения управление переходит к оператору, непосредственно следующему за оператором, где произошла ошибка, и выполнение продолжается с этой точки. Используйте эту форму вместо On Error GoTo доступа к объектам. |
Комментарии
Рекомендуется использовать структурированную обработку исключений в коде, когда это возможно, а не использовать неструктурированную обработку исключений и On Error инструкцию. Дополнительные сведения см. в разделе Оператор Try. Catch. Finally.
Обработчик ошибок с включенным параметром — это тот, который включен On Error оператором. "Активный" обработчик ошибок — это включенный обработчик, который находится в процессе обработки ошибки.
Если вызывающая процедура имеет включенный обработчик ошибок, он активируется для обработки ошибки. Если обработчик ошибок вызывающей процедуры также активен, управление передается назад через предыдущие вызывающие процедуры до тех пор, пока не будет найден включенный, но неактивный обработчик ошибок. Если такой обработчик ошибок не найден, ошибка является неустранимой в той точке, где она фактически произошла.
Каждый раз, когда обработчик ошибок передает управление в вызывающую процедуру, эта процедура преобразуется в текущую процедуру. После обработки ошибки обработчиком ошибок в любой процедуре выполнение возобновляется в текущей процедуре в точке, указанной Resume в инструкции.
Подпрограммы обработки ошибок не Sub являются процедурой или Function процедурой. Это раздел кода, помеченный меткой строки или номером строки.
Number, свойство
Оператор Throw
Ошибка, возникающая при использовании Err.Raise метода, задает Exception для свойства только что созданный экземпляр Exception класса. Для поддержки вызова исключений производных типов Throw исключений в языке поддерживается инструкция. Это принимает единственный параметр, который является экземпляром исключения, который будет выдаваться. В следующем примере показано, как можно использовать эти функции с существующей поддержкой обработки исключений.
Обратите внимание, что On Error GoTo оператор захватывает все ошибки независимо от класса исключений.
При возникновении ошибки далее
On Error Resume Next приводит к тому, что выполнение продолжается с оператора, непосредственно следующего за инструкцией, вызвавшей ошибку времени выполнения, или с инструкцией, сразу после последнего вызова процедуры, содержащей On Error Resume Next инструкцию. Эта инструкция позволяет продолжить выполнение, несмотря на ошибку времени выполнения. Можно поместить подпрограммы обработки ошибок, в которой возникает ошибка, а не передавать управление в другое место внутри процедуры. On Error Resume Next При вызове другой процедуры инструкция становится неактивной, поэтому следует выполнить On Error Resume Next инструкцию в каждой вызванной процедуре, если в этой процедуре требуется встроенная обработка ошибок.
On Error Resume Next Конструкция может быть предпочтительнее On Error GoTo при обработке ошибок, формируемых во время доступа к другим объектам. Проверка Err после каждого взаимодействия с объектом устраняет неоднозначность того, к какому объекту был получен доступ в коде. Можно убедиться, какой объект поместил код Err.Number ошибки, а также какой объект изначально сгенерировал ошибку (объект, указанный в Err.Source ).
On Error GoTo 0
On Error GoTo 0 отключает обработку ошибок в текущей процедуре. В нем не указывается строка 0 в качестве начала кода обработки ошибок, даже если процедура содержит строку с номером 0. On Error GoTo 0 Без оператора обработчик ошибок автоматически отключается при выходе из процедуры.
On Error GoTo-1
On Error GoTo -1 отключает исключение в текущей процедуре. В нем не указывается строка-1 в качестве начала кода обработки ошибок, даже если процедура содержит строку с номером-1. On Error GoTo -1 Без оператора исключение автоматически отключается при выходе из процедуры.
Чтобы предотвратить выполнение кода обработки ошибок в случае отсутствия ошибок, поместите Exit Sub оператор, Exit Function или Exit Property непосредственно перед подпрограммой обработки ошибок, как в следующем фрагменте:
Здесь код обработки ошибок следует за Exit Sub оператором и предшествует End Sub оператору, чтобы отделить ее от потока процедур. Код обработки ошибок можно разместить в любом месте процедуры.
Неперехваченные ошибки
Неперехваченные ошибки в объектах возвращаются в управляющее приложение, когда объект выполняется как исполняемый файл. В среде разработки неперехваченные ошибки возвращаются в управляющее приложение только в том случае, если установлены соответствующие параметры. Сведения о том, какие параметры должны быть установлены во время отладки, как их задать, а также определить, может ли узел создавать классы, см. документацию по ведущему приложению.
При создании объекта, обращающегося к другим объектам, следует попытаться обрабатывать любые необработанные ошибки, которые они передают. Если вы не можете, сопоставьте коды Err.Number ошибок с одной из собственных ошибок, а затем передавайте их обратно вызывающему объекту. Необходимо указать ошибку, добавив код ошибки в VbObjectError константу. Например, если код ошибки — 1052, назначьте его следующим образом:
системные ошибки во время вызовов Windows библиотеки динамической компоновки (dll) не вызывают исключений и не могут быть перехвачены при перехвате ошибок Visual Basic. При вызове функций DLL следует проверять каждое возвращаемое значение на успех или сбой (в соответствии со спецификациями API), а в случае сбоя проверить значение в Err свойстве объекта LastDLLError .
Пример
В этом примере сначала используется On Error GoTo оператор, чтобы указать расположение подпрограммы обработки ошибок в процедуре. В этом примере попытка деления на ноль приводит к возникновению ошибки с номером 6. Ошибка обрабатывается в подпрограммы обработки ошибок, а затем Управление возвращается инструкции, вызвавшей ошибку. On Error GoTo 0 Инструкция отключает перехват ошибок. On Error Resume Next Затем оператор используется для задержки перехвата ошибок таким образом, чтобы контекст для ошибки, создаваемой следующей инструкцией, мог быть известен для определенных. Обратите внимание, что Err.Clear используется для очистки Err свойств объекта после обработки ошибки.
Требования
Пространство имен:Microsoft. VisualBasic
сборка: библиотека времени выполнения Visual Basic (в Microsoft.VisualBasic.dll)
Здравствуйте! У Вас нет темы по работе с фильтром. Можно проконсультироваться на этот счёт?
Здравствуйте, Сергей!
Задавайте вопрос, постараюсь ответить.
Спасибо, Евгений! Имеется в Excel столбец с включённым автофильтром. Можно ли программно запустить окно фильтра для выбора значений? Т.е. не руками нажимать на иконку фильтра, а заставить окно открываться с помощью макроса. Спасибо за ответ.
Да, это возможно:
Сергей, уточните вопрос: нужно программно нажать кнопки Ok и Отмена или отследить, какая из них была нажата?
Просто отследить, какая кнопка нажата.
По предыдущему вопросу. Я вставил sendkeys… в конец макроса, который запускается при нажатии кнопки на листе. Окно фильтра появляется и тут же закрывается. А как сделать, чтобы окно осталось, и пользователь мог выбрать данные?
Евгений, я разобрался, почему не выводилось окно с фильтром.
Пример отслеживания нажатий кнопки «OK» автофильтра. На нажатие кнопки «Отмена» код не реагирует.
Вставьте в стандартный модуль (в примере — Module1) объявление глобальной переменной и код процедуры для кнопки:
Range("A1").CurrentRegion можно заменить на имя таблицы.
Евгений, а формулу в поле B2 оставлять или её можно удалить?
Можно удалить, если в таблице есть другие формулы. Я изменил код процедуры Worksheet_Calculate() в предыдущем примере, чтобы она не реагировала на изменение формул, а только на нажатие кнопки «OK» автофильтра. Range("A1") — это ячейка с кнопкой фильтра.
Евгений, спасибо за корректировку процедуры. Думаю, в ней и поле myString1 необязательно (и связанная проверка с ним), т.к. пользователь может выбрать все значения.
Но… после команды SendKeys "%" событие Worksheet_Calculate() отрабатывается только один раз :(.
Сергей, событие Worksheet_Calculate() не зависит от команды SendKeys "%" . Ограничение стоит здесь:
Код в процедуре Worksheet_Calculate() срабатывает только когда активна ячейка Range("A1") . Если заменить в этой строке Range("A1") на диапазон строки заголовков таблицы, тогда код будет срабатывать при любой активной ячейке в заголовке.
В переменную myString записывается состояние таблицы до применения фильтра, в переменную myString1 — после применения. Затем их содержимое сравнивается: если они содержат разные значения — значит, фильтр был применен.
Здравствуйте! может я не туда пишу. вопрос
нужно посчитать кол-во строк в столбце «В» (от 100 до 5000) и вставить в формулу вместо 744
table = Range("B2:C744")
спасибо.
В столбце «B» не должно быть пустых ячеек до последней строки таблицы.
Как определить в VBA есть узор в ячейке?
Спасибо за достаточно полную информацию.
Был бы очень вам признателен, если бы вы подсказали:
как изменить ширину блоков верхнего колонтитула.
«Введена слишком длинная строка. Уменьшите число знаков.»
При изменении шрифта с полужирного на обычный всё нормально
воспринимается,
Прошу прощения, если не по адресу.
Добрый день! Никак не могу решить проблему с заблокированным автофильтром на защищенном макросом (нашел на форумах) листе. Подскажите пожалуйста, куда и какую строчку нужно добавить в макрос, чтобы при открытии файла был активен автофильтр:
Добрый день, Владислав!
Замените строку
Добрый день, Евгений!
ОГРОМНОЕ СПАСИБО. :))
Здравствуйте, помогите, пожалуйста, решить задачу((
Разработать программу «Кредитный калькулятор» для расчета выплат по кредиту в условиях начисления процентов по аннуитетной схеме постнумерандо. Форма должна предусматривать ввод:
1) сумма кредита, допустимы 2 знака после запятой;
2) процентная ставка (годовая), допустимы 2 знака после запятой;
3) количество периодов (месяцев), целое положительное число.
Также форма должна содержать две кнопки:
1) «Ok» (выполнить расчет, заполнить лист Excel, освободить форму и закончить работу программы);
2) «Отмена» (освободить форму и закончить работу программы).
На лист Excel следует вывести 5 колонок:
1) номер периода;
2) остаток кредита;
3) сумма процентов за пользование кредитом, подлежащая к оплате;
4) сумма погашения основного долга (кредита);
5) общая сумма выплат за период.
Форма должна быть открыта из макроса «main» и там же освобождена по завершению своего использования. Форма должна содержать только код работы с формой и ввода данных. Логика верификации данных должна быть, по возможности, отделена от кода формы. Бизнес-логика обязательно должна быть отделена от кода формы.
Здравствуйте, Рафия!
С разработкой кредитного калькулятора вам помогут только за плату на бирже фриланса.
Добрый день, Евгений! Я только начинаю работать с VBA. Помогите, пожалуйста, прописать код для автоматического перемещения курсора на ячейку вправо после заполнения предыдущей.
Здравствуйте, Ева! Для перемещения фокуса в ячейку справа код VBA не нужен: используйте для этого клавишу «Tab» или настройте клавишу «Enter» для перехода вправо (Файл >> Параметры >> Дополнительно).
Спасибо за ответ! Да, но это надо делать вручную; речь идёт об автоматическом перемещении курсора.
При программировании приложения нужно учитывать, что происходит при возникновении ошибки. Ошибка в приложении может возникнуть по одной из двух причин. Во-первых, во время работы приложения могут возникать некоторые условия, приводящие к сбою кода, ранее работавшего исправно. Например, если код пытается открыть таблицу, удаленную пользователем, возникает ошибка. Во-вторых, код может содержать неправильную логику, препятствующую выполнению нужных действий. Например, ошибка возникает, если код пытается разделить значение на ноль.
Направление выполнения при возникновении ошибки
Обработчик ошибок указывает, что происходит в процедуре при возникновении ошибки. Например, может потребоваться завершение процедуры, если возникает определенное событие, или может потребоваться исправление условия, вызвавшего ошибку, и возобновление выполнения. Операторы On Error и Resume определяют, как продолжается выполнение в случае ошибки.
Оператор On Error
Оператор On Error включает или отключает процесс обработки ошибки. Если процесс обработки ошибки включен, при возникновении ошибки выполнение передается в него.
Существует три формы оператора On Error: On Error GoTo label, On Error GoTo 0 и On Error Resume Next. Оператор On Error GoTo label позволяет выполнять процесс обработки ошибок, начиная со строки, в которой находится оператор. Нужно включить процесс обработки ошибок перед первой строкой, в которой произошла ошибка. Если обработчик ошибок активен и происходит ошибка, выполнение передается в строку, указанную аргументом label.
Строка, указанная аргументом label, должна быть началом процесса обработки ошибок. Например, приведенные ниже процедуры указывают, что при возникновении ошибки выполнение передается в помеченную строку:
Оператор On Error GoTo 0 отключает обработку ошибки в процедуре. Он не должен указывать строку 0 в качестве начала для кода обработки ошибок, даже если в процедуре есть строка с номером 0. Если оператор On Error GoTo 0 отсутствует в коде, обработчик ошибок автоматически отключается, когда процедура полностью завершена. Оператор On Error GoTo 0 сбрасывает свойства объекта Err, оказывая такое же действие, как метод Clear объекта Err.
Оператор On Error Resume Next игнорирует строку, которая вызывает ошибку, и направляет выполнение к следующей за ней строке. Выполнение не прерывается. Используйте заявление On Error Resume Next , если вы хотите проверить свойства объекта Err сразу после строки, на которой ожидается ошибка, и обработать ошибку в процедуре, а не в обработщике ошибок.
Оператор Resume
Оператор Resume направляет выполнение обратно к телу процедуры из процесса обработки ошибок. Оператор Resume можно добавить в процесс обработки ошибок, если нужно продолжить выполнение в определенной точке процедуры. Однако оператор Resume не является обязательным; процедуру также можно завершить после процесса обработки ошибок.
Существует три формы оператора Resume. Оператор Resume или Resume 0 возвращает выполнение в строку, в которой произошла ошибка. Оператор Resume Next возвращает выполнение в строку, расположенную непосредственно после строки, в которой произошла ошибка. Оператор Resume label возвращает выполнение в строку, указанную аргументом label. Аргумент label должен указывать на метку строки или на номер строки.
Используйте оператор Resume Next, если код исправляет ошибку в обработчике ошибок и вы хотите продолжить выполнение без повторного запуска строки, вызвавшей ошибку. Используйте оператор Resume label, если нужно продолжить выполнение в другой точке процедуры, указанной аргументом label. Например, можно продолжить выполнение с процесса выхода, как описано в разделе ниже.
Выход из процедуры
Если в процедуру добавляется процесс обработки ошибок, следует также добавить процесс выхода, чтобы процесс обработки ошибок запускался только при возникновении ошибки. Можно указать процесс выхода с помощью метки строки таким же образом, как указывается процесс обработки ошибок.
Например, можно добавить процесс выхода к примеру в предыдущем разделе. Если ошибка не возникает, процесс выхода запускается после тела процедуры. Если ошибка возникает, выполнение передается процессу выхода после завершения процесса обработки ошибок. Процесс выхода содержит оператор Exit.
Обработка ошибок во вложенных процедурах
Visual Basic также выполняет поиск включенного обработчика ошибок по списку вызовов в обратном направлении, если ошибка возникает в активном обработчике ошибок. Можно принудительно заставить Visual Basic выполнять поиск по списку вызовов в обратном направлении, запустив ошибку в активном обработчике ошибок с помощью метода Raise объекта Err. Это удобно для обработки ошибок, которые не ожидаются в обработчике ошибок. Если возникает неожиданная ошибка и она воспроизводится в обработчике ошибок, выполнение передается назад по списку вызовов для поиска другого обработчика, который может быть настроен для обработки такой ошибки.
Чтобы проиллюстрировать этот принцип, предположим, что у вас есть вложенная процедура, содержащая средство обработки ошибок несоответствия типов (ожидаемой ошибки). В какой-то момент в процедуре С возникает неожиданная ошибка деления на ноль. Если вы добавили оператор для воспроизведения исходной ошибки, выполнение передается назад по списку вызовов другому включенному обработчику ошибок, если он существует. Если вы исправляли ошибку деления на ноль в другой процедуре в списке вызовов, ошибка будет исправлена. Если код не воспроизводит ошибку, процедура продолжает выполнение без исправления ошибки деления на ноль. Это, в свою очередь, может вызывать другие ошибки в наборе вложенных процедур.
Таким образом, Visual Basic выполняет поиск включенного обработчика ошибок по списку вызовов в обратном направлении, если:
Ошибка возникает в процедуре, не содержащей включенного обработчика ошибок.
Ошибка возникает в активном обработчике ошибок. Если для запуска ошибки используется метод Raise объекта Err, можно принудительно заставить Visual Basic выполнять поиск включенного обработчика ошибок по списку вызовов в обратном направлении.
Получение сведений об ошибке
После передачи выполнения процессу обработки ошибок код должен определить, какая ошибка произошла, и устранить ее. Visual Basic и Access предоставляют несколько элементов языка, которые можно использовать для получения сведений о конкретной ошибке. Каждый предназначен для разного типа ошибок. Так как ошибки могут возникать в различных частях приложения, необходимо определить, какой из них использовать в коде на основе ожидаемых ошибок.
Элементы языка, доступные для обработки ошибок, включают:
Объект Err
Объект Error и коллекция Errors ADO
Объект Error и коллекция Errors DAO
Метод AccessError
Событие Error
Объект Err
Объект Err представлен в Visual Basic. При возникновении ошибки Visual Basic сведения об этой ошибке сохраняются в объекте Err. Объект Err хранит сведения только об одной ошибке одновременно. При возникновении новой ошибки объект Err изменяется для включения сведений об этой ошибке вместо старой.
Чтобы получить сведения об определенной ошибке, можно использовать свойства и методы объекта Err:
- Свойство Number — это свойство по умолчанию объекта Err. Оно возвращает идентификационный номер возникшей ошибки.
- Свойство Description объекта Err возвращает строку описания, связанную с ошибкой Visual Basic.
- Метод Clear очищает текущие сведения об ошибке из объекта Err.
- Метод Raise создает определенную ошибку и заполняет свойства объекта Err сведениями об этой ошибке.
В приведенном ниже примере показано, как использовать объект Err в процедуре, которая может вызывать ошибку несоответствия типов:
Обратите внимание, что в приведенном выше примере метод Raise используется для воспроизведения исходной ошибки. Если возникает ошибка, отличная от ошибки несоответствия типов, выполнение передается назад по списку вызовов в другой включенный обработчик ошибок, если он существует.
Объект Err предоставляет все необходимые сведения об ошибках Visual Basic. Однако он не предоставляет полные сведения об ошибках Access или ошибках ядра СУБД Access. Access и объекты доступа к данным (DAO) предоставляют дополнительные элементы языка, помогающие устранять ошибки.
Объект Error и коллекция Errors
Объект Error и коллекция Errors предоставляются интерфейсами ADO и DAO. Объект Error представляет ошибку ADO или DAO. Отдельная операция ADO или DAO может вызвать несколько ошибок, особенно при выполнении операций ODBC DAO. У каждой ошибки, возникающей во время определенной операции доступа к данным, есть соответствующий объект Error. Все объекты Error, связанные с определенной операцией ADO или DAO, хранятся в коллекции Errors. Ошибки нижнего уровня являются первыми объектами в коллекции, а ошибки верхнего уровня являются последними объектами в коллекции.
При возникновении ошибки ADO или DAO объект Err Visual Basic сохраняет номер ошибки для первого объекта в коллекции Errors. Чтобы определить, происходили ли дополнительные ошибки ADO или DAO, проверьте коллекцию Errors. Значения свойств Number ADO или Number DAO и свойств Description ADO или Description DAO первого объекта Error в коллекции Errors должны совпадать со значениями свойств Number и Description объекта Err Visual Basic.
Метод AccessError
Используйте метод Raise объекта Err для создания ошибки Visual Basic, которая на самом деле не произошла, и определения описательной строки, связанной с этой ошибкой. Однако нельзя использовать метод Raise, чтобы создать ошибку Access, ошибку ADO или ошибку DAO. Чтобы определить строку описания, связанную с ошибкой Access, ошибкой ADO или ошибкой DAO, не происходившей на самом деле, используйте метод AccessError.
Событие Error
Используйте событие Error для ловушки ошибок, которые возникают в форме или отчете Access. Например, если пользователь пытается ввести текст в поле с типом данных "Дата и время", возникает событие Error. Если добавить процедуру обработки события Error в форму Employees, а затем попытаться ввести текстовое значение в поле HireDate, запустится процедура обработки события Error.
Процедура обработки события Error использует целочисленный аргумент DataErr. Когда запускается процедура обработки события Error, аргумент DataErr сохраняет номер возникшей ошибки Access. Проверка значения аргумента DataErr в процедуре обработки событий — это единственный способ определить номер возникшей ошибки. Объект Err не заполняется сведениями об ошибке после возникновения события Error. Используйте значение аргумента DataErr вместе с методом AccessError , чтобы определить количество ошибки и описательная строка.
Оператор Error и функция Error предоставляются только для обеспечения обратной совместимости. При создании нового кода используйте объекты Err и Error, функцию AccessError и событие Error для получения сведений об ошибке.
Об участниках
Ссылка предоставлена сообществом UtterAccess.
UtterAccess — это премиальный вики-портал и форум, посвященный Microsoft Access.
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.
Enables an error-handling routine and specifies the location of the routine within a procedure; can also be used to disable an error-handling routine.
Syntax
On Error GoTo line
On Error Resume Next
On Error GoTo 0
The On Error statement syntax can have any of the following forms:
If a run-time error occurs, control branches to line, making the error handler active.
Remarks
If you don't use an On Error statement, any run-time error that occurs is fatal; that is, an error message is displayed and execution stops.
An "enabled" error handler is one that is turned on by an On Error statement; an "active" error handler is an enabled handler that is in the process of handling an error. If an error occurs while an error handler is active (between the occurrence of the error and a Resume, Exit Sub, Exit Function, or Exit Property statement), the current procedure's error handler can't handle the error. Control returns to the calling procedure.
If the calling procedure has an enabled error handler, it is activated to handle the error. If the calling procedure's error handler is also active, control passes back through previous calling procedures until an enabled, but inactive, error handler is found. If no inactive, enabled error handler is found, the error is fatal at the point at which it actually occurred.
Each time the error handler passes control back to a calling procedure, that procedure becomes the current procedure. After an error is handled by an error handler in any procedure, execution resumes in the current procedure at the point designated by the Resume statement.
An error-handling routine is not a Sub procedure or Function procedure. It's a section of code marked by a line label or line number.
Error-handling routines rely on the value in the Number property of the Err object to determine the cause of the error. The error-handling routine should test or save relevant property values in the Err object before any other error can occur or before a procedure that might cause an error is called. The property values in the Err object reflect only the most recent error. The error message associated with Err.Number is contained in Err.Description.
On Error Resume Next causes execution to continue with the statement immediately following the statement that caused the run-time error, or with the statement immediately following the most recent call out of the procedure containing the On Error Resume Next statement. This statement allows execution to continue despite a run-time error. You can place the error-handling routine where the error would occur, rather than transferring control to another location within the procedure. An On Error Resume Next statement becomes inactive when another procedure is called, so you should execute an On Error Resume Next statement in each called routine if you want inline error handling within that routine.
The On Error Resume Next construct may be preferable to On Error GoTo when handling errors generated during access to other objects. Checking Err after each interaction with an object removes ambiguity about which object was accessed by the code. You can be sure which object placed the error code in Err.Number, as well as which object originally generated the error (the object specified in Err.Source).
On Error GoTo 0 disables error handling in the current procedure. It doesn't specify line 0 as the start of the error-handling code, even if the procedure contains a line numbered 0. Without an On Error GoTo 0 statement, an error handler is automatically disabled when a procedure is exited.
To prevent error-handling code from running when no error has occurred, place an Exit Sub, Exit Function, or Exit Property statement immediately before the error-handling routine, as in the following fragment:
Here, the error-handling code follows the Exit Sub statement and precedes the End Sub statement to separate it from the procedure flow. Error-handling code can be placed anywhere in a procedure.
Untrapped errors in objects are returned to the controlling application when the object is running as an executable file. Within the development environment, untrapped errors are only returned to the controlling application if the proper options are set. See your host application's documentation for a description of which options should be set during debugging, how to set them, and whether the host can create classes.
If you create an object that accesses other objects, you should try to handle errors passed back from them unhandled. If you cannot handle such errors, map the error code in Err.Number to one of your own errors, and then pass them back to the caller of your object. You should specify your error by adding your error code to the vbObjectError constant. For example, if your error code is 1052, assign it as follows:
System errors during calls to Windows dynamic-link libraries (DLL) or Macintosh code resources don't raise exceptions and cannot be trapped with Visual Basic error trapping. When calling DLL functions, you should check each return value for success or failure (according to the API specifications), and in the event of a failure, check the value in the Err object's LastDLLError property. LastDLLError always returns zero on the Macintosh.
Example
This example first uses the On Error GoTo statement to specify the location of an error-handling routine within a procedure. In the example, an attempt to delete an open file generates error number 55. The error is handled in the error-handling routine, and control is then returned to the statement that caused the error. The On Error GoTo 0 statement turns off error trapping.
The On Error Resume Next statement is then used to defer error trapping so that the context for the error generated by the next statement can be known for certain. Note that Err.Clear is used to clear the Err object's properties after the error is handled.
See also
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.
Читайте также: