Método Raise

Gera um erro de tempo de execução.

Sintaxe

object.Raise(number, source, description, helpfile, helpcontext)

Argumentos

• Object: Obrigatório. Sempre o objeto Err.
• Number: Obrigatório. Um subtipo de número inteiro Longo que identifica a natureza do erro.
• Source: Opcional. Uma expressão de string que nomeia o objeto ou o aplicativo que gerou originalmente o erro. Ao definir essa propriedade para um objeto de Automação, use o formato project.class.
• Description: Opcional. Uma expressão de string que descreve o erro. Se esse argumento não for especificado, o valor no número será examinado. Se for possível mapeá-lo para um código de erro de tempo de execução do BSL, uma string fornecida pelo BSL será usada como descrição. Se não houver nenhum erro no BSL correspondente ao número, uma mensagem de erro genérica será usada.
• Helpfile: Opcional. O caminho totalmente qualificado para o arquivo de Ajuda que fornece informações sobre o erro. Se não for especificado, o BSL usará a unidade, o caminho e o nome de arquivo totalmente qualificados do arquivo de Ajuda do BSL.
• Helpcontext: Opcional. O ID de contexto que identifica um tópico no arquivo de ajuda que fornece informações sobre o erro. Se for omitido, o ID de contexto do arquivo de Ajuda do BSL para o erro correspondente à propriedade de número será usado, se existir.

Comentários

Todos os argumentos são opcionais, exceto number. No entanto, se você usar Raise sem especificar alguns argumentos e as definições de propriedade do objeto Err contiverem valores que não foram apagados, esses valores se tornarão os valores do seu erro.

O exemplo a seguir ilustra o uso do método Raise.

Exemplo 1:

Sub RaiseOverflowError()
On Error Resume Next          ' Enable error handling.
Err.Raise 6                   ' Raise an overflow error.
Err.Clear                     ' Clear the error.
End Sub
'Output: Number: 6, Description: Overflow

Exemplo 2:

Sub RaiseCustomError()
On Error Resume Next          ' Enable error handling.
Err.Raise 1000, "MyApp", "A custom error has occurred."
Err.Clear                     ' Clear the error.
End Sub
'Output: Number: 1000, Description: A custom error has occurred., Source: MyApp