Método Clear
Limpa todas as configurações de propriedade do objeto Err .
Sintaxe
objeto. Claro
O objeto é sempre o objeto Err .
Comentários
Use Clear para limpar explicitamente o objeto Err depois que um erro tiver sido tratado, por exemplo, quando você usar o tratamento de erro adiado com On Error Resume Next. O método Clear é chamado automaticamente sempre que uma das seguintes instruções é executada:
- Qualquer tipo de instrução Resume
- Exit Sub, Exit Function, Exit Property
- Qualquer instrução De Erro
Observação
A construção On Error Resume Next pode ser preferível a On Error GoTo ao manipular erros gerados durante o acesso a outros objetos. VerificarErr após cada interação com um objeto remove a ambiguidade sobre qual objeto foi acessado pelo código. Você pode ter certeza de qual objeto colocou o código de erro em Err. Number, bem como o objeto que originalmente gerou o erro (objeto especificado no Err.Source).
Exemplo
Este exemplo usa o método Clear do objeto Err para redefinir as propriedades numéricas do objeto Err para zero e suas propriedades de cadeia de caracteres para cadeias de caracteres de comprimento zero. Se Clear tiver sido omitido do código a seguir, a caixa de diálogo mensagem de erro será exibida em cada iteração do loop (após ocorrer um erro) se um cálculo sucessivo gerou ou não um erro. Você pode passar por um único passo pelo código para ver o efeito.
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
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.