Méthode Clear

Efface tous les paramètres de propriété de l'objet Err.

Syntaxe

object.Clear

Arguments :

object : requis. Toujours l'objet Err.

Remarques

Utilisez Clear pour effacer explicitement l'objet Err après qu'une erreur a été traitée. Cette opération est nécessaire, par exemple, lorsque vous utilisez le traitement différé des erreurs avec On Error Resume Next. BSL appelle automatiquement la méthode Clear chaque fois que l'une des instructions suivantes est exécutée :

On Error Resume Next
Exit Sub
Exit Function

Les exemples suivants illustrent l'utilisation de la méthode Clear.

Exemple 1 :

Sub RaiseAndClearError()
    On Error Resume Next       ' Enable error handling.
    Err.Raise 6                ' Raise an overflow error.
     Output1 =  "error number here " & Err.Number     

     Err.Clear                  ' Clear the error.
    ' Check if the error is cleared.
Output2 = "error number is cleared here " & Err.Number
End Sub
'Output1: error number here 6
'Output2: error number is cleared here 0

Exemple 2 :

Sub InnerProcedure()
    On Error Resume Next
    Err.Raise 9         
    Output1 = "Raising error here " & Err.Number
    Err.Clear           
    Output2 = "Error cleared here " & Err.Number
End Sub
Sub OuterProcedure()
    On Error Resume Next
    InnerProcedure      ' Call the inner procedure.
   'OuterProcedure Completed
End Sub
Call OuterProcedure

'Output1: Raising error here 9
'Output2: Error cleared here 0