Clear, méthode (objet Err)

Article
09/12/2008

Mise à jour : novembre 2007

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

object.Clear

Paramètres

object
Toujours l'objet Err.

Notes

Utilisez Clear pour effacer explicitement l'objet Err après le traitement d'une erreur, par exemple lorsque vous utilisez le traitement différé d'une erreur avec On Error Resume Next. La méthode Clear est appelée automatiquement chaque fois que l'une des instructions suivantes est exécutée :

Tout type d'instruction Resume.
Exit Sub, Exit Function ou Exit Property
Toute instruction On Error.

Toute instruction Try...Catch...Finally.

Remarque :
La construction On Error Resume Next peut être préférable à On Error GoTo lors de la gestion des erreurs générées au cours de l'accès à d'autres objets. La vérification de Err après chaque interaction avec un objet lève toute ambiguïté concernant l'objet auquel le code a accédé : vous pouvez connaître avec certitude l'objet qui a placé le code d'erreur dans Err.Number ainsi que celui qui a généré l'erreur à l'origine (l'objet spécifié dans Err.Source).

La construction On Error Resume Next peut être préférable à On Error GoTo lors de la gestion des erreurs générées au cours de l'accès à d'autres objets. La vérification de Err après chaque interaction avec un objet lève toute ambiguïté concernant l'objet auquel le code a accédé : vous pouvez connaître avec certitude l'objet qui a placé le code d'erreur dans Err.Number ainsi que celui qui a généré l'erreur à l'origine (l'objet spécifié dans Err.Source).

Exemple

Cet exemple utilise la méthode Clear de l'objet Err pour réinitialiser les propriétés numériques de l'objet Err et affecter à ses propriétés de type chaîne des chaînes nulles. Sans l'appel à Clear, le deuxième appel à MsgBox afficherait le même message d'erreur.

Sub ClearErr()
  ' Produce overflow error
  On Error Resume Next
  Dim zero As Integer = 0
  Dim result As Integer = 8 / zero
  MsgBox(Err.Description)
  Err.Clear()
  MsgBox(Err.Description)
End Sub