Nota
O acesso a esta página requer autorização. Pode tentar iniciar sessão ou alterar os diretórios.
O acesso a esta página requer autorização. Pode tentar alterar os diretórios.
Limpa todas as definições de propriedade do objeto Err .
Sintaxe
objeto. Limpar
O objeto é sempre o objeto Err .
Comentários
Utilize Limpar para limpar explicitamente o objeto Err depois de um erro ter sido processado, por exemplo, quando utilizar o processamento de erros diferidos com a opção Retomar o Erro Seguinte. O método Clear é chamado automaticamente sempre que qualquer uma das seguintes instruções é executada:
- Qualquer tipo de instrução Retomar
- Sair de Sub, Sair da Função, Sair da Propriedade
- Qualquer instrução de Erro Ativado
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 utiliza o método Limpar do objeto Err para repor as propriedades numéricas do objeto Err para zero e as respetivas propriedades de cadeia para cadeias de comprimento zero. Se Clear fosse omitido do seguinte código, a caixa de diálogo da mensagem de erro seria apresentada em cada iteração do ciclo (após ocorrer um erro) se um cálculo sucessivo gerasse ou não um erro. Pode percorrer o código de forma única 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.