[Toutes versions] Gestion d'erreur dans procédure Au formatage de la section détail d'un état [Résolu]

[Domi2]

Bonjour,

Question sans doute toute bête, mais je n'ai pas trouvé de réponses sur le forum et mes essais sont infructueux.

L'événement Au formatage de la section détail d'un état se produit autant de fois que d'enregistrements contenus dans la source de l'état.

En cas d'erreur, je désire afficher un message une seule fois et non pas autant de fois que l'événement se produit.

J'ai essayé comme ceci, mais c'est sans effet.

Code :

1
2
3
4
5
6
7
8
9
10
11
SortieProcedure:
 
    Exit Sub
 
GestionErreurs:
 
    'Affichage d'un message
    MsgBox "Une erreur inattendue s'est produite !" & vbNewLine & "Erreur no : " _
    & Err.Number & vbNewLine & Err.Description, vbCritical, "Erreur !"
 
    Resume SortieProcedure

Merci d'avance.

Domi2

[LedZeppII]

Bonjour,

Tu pourrai utiliser une variable globale pour mémoriser le fait qu'une erreur s'est déjà produite.

Code :

Dim bErrOnFormat As Boolean

Dans ton code de gestion d'erreur :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
SortieProcedure:
 
    Exit Sub
 
GestionErreurs:
 
    If Not bErrOnFormat Then
       bErrOnFormat = True
       'Affichage d'un message
       MsgBox "Une erreur inattendue s'est produite !" & vbNewLine & "Erreur no : " _
            & Err.Number & vbNewLine & Err.Description, vbCritical, "Erreur !"
    End If
    Resume SortieProcedure

A+

[Domi2]

Astucieux !

J'avais déjà regardé du côté de l'annulation de l'événement avec Cancel = True, mais si on annule bien le formatage, impossible de sortir de la procédure.

Il est cependant possible que j'aie raté quelque chose.

Je garde ta solution sous le coude et si je ne trouve rien d'ici demain, je l'adopte.

Merci LedZeppII

[Domi2]

Pas trouvé de moyen de sortir de la procédure après la première erreur.

Je vais donc simplement annuler le message, qui est le principal "désagrément", en appliquant ta solution.

Domi2