Discussion :

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim bErrOnFormat As Boolean

Dans ton code de gestion d'erreur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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