Ескертпе
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Жүйеге кіруді немесе каталогтарды өзгертуді байқап көруге болады.
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Каталогтарды өзгертуді байқап көруге болады.
Очищает все параметры свойств объекта Err .
Синтаксис
object. Ясно
В качестве object всегда используется объект Err.
Замечания
Используйте метод Clear, чтобы явно очистить объект Err после обработки ошибки, например при использовании отложенной обработки ошибок с конструкцией On Error Resume Next. Метод Clear вызывается автоматически при выполнении следующих операторов:
- любой тип оператора Resume;
- Exit Sub, Exit Function, Exit Property;
- любой оператор On Error.
Примечание.
При обработке ошибок, возникающих при обращении к другим объектам, конструкция On Error Resume Next предпочтительнее, чем On Error GoTo. Проверка объекта Err после каждого взаимодействия с объектом позволяет устранить неоднозначность в плане того, к какому объекту обращался код. Вы можете точно определить, какой объект поместил код ошибки в свойство Err.Number, а также какой объект изначально сгенерировал ошибку (объект, указанный в свойстве Err.Source).
Пример
В этом примере метод Clear объекта Err используется для сброса числовых свойств объекта Err в ноль и сброса строковых свойств до строк нулевой длины. Если метод Clear убрать из следующего кода, при каждой итерации цикла будет отображаться диалоговое окно с сообщением об ошибке (если возникает ошибка) независимо от того, вызвало ли последующее вычисление ошибку. Вы можете увидеть это, пошагово выполняя код.
Dim Result(10) As Integer ' Declare array whose elements
' will overflow easily.
Dim indx
On Error Resume Next ' Defer error trapping.
Do Until indx = 10
' Generate an occasional error or store result if no error.
Result(indx) = Rnd * indx * 20000
If Err.Number <> 0 Then
MsgBox Err, , "Error Generated: ", Err.HelpFile, Err.HelpContext
Err.Clear ' Clear Err object properties.
End If
indx = indx + 1
Loop
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.