Compartilhar via

Objeto Err

  • Artigo

Contém informações sobre erros de tempo de execução.

Comentários

As propriedades do objeto Err são definidas pelo gerador de um erro: Visual Basic, um objeto ou o programador.

A propriedade padrão do objeto Err é Número. Como a propriedade padrão pode ser representada pelo nome do objeto Err, o código anterior escrito usando a função Err ou a instrução Err não precisa ser modificado.

Quando ocorre um erro em tempo de execução, as propriedades do objeto Err são preenchidas com informações que identificam exclusivamente o erro e as informações que podem ser usadas para lidar com ele. Para gerar um erro em tempo de execução em seu código, use o método Raise .

As propriedades do objeto Err são redefinidas para cadeias de caracteres de zero ou comprimento zero ("") após uma instrução Exit Sub, Exit Function, Exit Property ou Resume Next dentro de uma rotina de tratamento de erros. O uso de qualquer forma da instrução Resume fora de uma rotina de tratamento de erros não redefinirá as propriedades do objeto Err . O método Clear pode ser usado para redefinir explicitamente o Err.

Use o método Raise , em vez da instrução Error , para gerar erros de tempo de execução para erros de sistema e módulos de classe. O uso do método Raise em outro código depende da riqueza das informações que você deseja retornar.

O objeto Err é um objeto intrínseco com escopo global. Não há necessidade de criar uma instância dele em seu código.

Exemplo

Este exemplo usa as propriedades do objeto Err (Número, Descrição, HelpContext, HelpFile, Origem) na construção de uma caixa de diálogo mensagem de erro.

Observe que, se você usar primeiro o método Clear , ao gerar um erro do Visual Basic com o método Raise , os valores padrão do Visual Basic se tornarão as propriedades do objeto Err .

Dim Msg
' If an error occurs, construct an error message
On Error Resume Next    ' Defer error handling.
Err.Clear
Err.Raise 6    ' Generate an "Overflow" error.
' Check for error, then show message.
If Err.Number <> 0 Then
    Msg = "Error # " & Str(Err.Number) & " was generated by " _
            & Err.Source & Chr(13) & Chr(13) & Err.Description
    MsgBox Msg, vbMsgBoxHelpButton, "Error", Err.Helpfile, Err.HelpContext
End If

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.