Função Error

  • Artigo

Retorna a mensagem de erro que corresponde a um determinado número de erro.

Sintaxe

Erro [ (número de erros) ]

O argumento de número de erros opcional pode ser qualquer número de erro válido. Se o número de erros for um número de erro válido, mas não estiver definido, o erro retornará a cadeia de caracteres "Erro definido pelo aplicativo ou definido pelo objeto".

Se o número de erros não for válido, ocorrerá um erro. Se o número de erros for omitido, a mensagem correspondente ao erro de tempo de execução mais recente será retornada. Se nenhum erro de tempo de execução tiver ocorrido ou o número de erros for 0, o erro retornará uma cadeia de caracteres de comprimento zero ("").

Comentários

Examine as configurações de propriedade do objeto Err para identificar o erro de tempo de execução mais recente. O valor retornado da função Error corresponde à propriedade Description do objeto Err .

Exemplo

Este exemplo usa a função Erro para imprimir mensagens de erro que correspondem aos números de erro especificados.

Private Sub PrintError()
    Dim ErrorNumber As Long, count As Long
    count = 1: ErrorNumber = 1
    On Error GoTo EOSb
    Do While count < 100
        Do While Error(ErrorNumber) = "Application-defined or object-defined error": ErrorNumber = ErrorNumber + 1: Loop
        Debug.Print count & "-Error(" & ErrorNumber & "): " & Error(ErrorNumber)
        ErrorNumber = ErrorNumber + 1
        count = count + 1
    Loop
EOSb: Debug.Print ErrorNumber
End Sub

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.