Discussion :

[philben]

bonjour,

pour personnaliser mon code de gestion d'erreur je souhaite connaitre automatiquement le nom de la fonction ou du sub qui a généré une erreur.

Pour le module en cours je passe par me.name mais pour le code en cours, j'ai pas trouvé...

merci.

[mcdotta]

Bonjour,

Ca m'intéresse aussi, mais je ne crois pas que ca soit possible. Si tu regardes dans tous les exemples fournis ici et ailleurs , le nom de la procédure ou de la fonction est tapé en dur... Dur dur...

[ActionAccess]

Bonjour,
Je confirme également que ce n'est pas possible. Pour connaître la procédure ou la fonction où se produit l'erreur, il faut inscrire le nom de la fonction ou de la sub en dur.

[zephyr59]

Salut.

Pourtant dans la fenetre espion, Access affiche le contexte et donc la procedure en cours d'exécution.

[Nohant]

Salut,

Pas de solution native par contre il est tout a fait possible de mettre en place son propre gestionnaire d'erreur avec récupération du nom de la fonction, du module, du controle, du formulaire, ...
il suffit d'utiliser un utilitaire comme mz-tools pour faciliter la mise en place en définissant un modèle d'entête de module, un modèle d'entête de procédure et un modèle de gestion d'erreur. Les noms des modules et fonctions sont automatiquement récupérés sans avoir besoin de les saisir. Cet utilitaire est un 'must have'

ex les modèles que j'utilise

Code :

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

1
2
3
4
5
6
7
'*********************************************************************************
' Module : {MODULE_NAME} (Type module : {MODULE_TYPE}) (Projet : {PROJECT_NAME})
' Date : {DATE} {TIME}
' Auteur : {AUTHOR}
' But : 
'*********************************************************************************
Private Const conModule = "{MODULE_NAME}"

Code :

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

1
2
3
4
5
6
7
'---------------------------------------------------------------------------------
'Procédure : {PROCEDURE_NAME}
'Auteur : {AUTHOR}
'But : 
'Valeur renvoyée : {FUNCTION_RETURN_TYPE_NAME}
'Version : 1.0
'---------------------------------------------------------------------------------

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Const conProcedure = "{PROCEDURE_NAME}"
On Error GoTo {PROCEDURE_NAME}_Erreur
 
{PROCEDURE_BODY}
  {PROCEDURE_NAME} = True
  Exit {PROCEDURE_TYPE}
 
LibereObjet:
 
{PROCEDURE_NAME}_Erreur:
  {PROCEDURE_NAME} = False
  NumeroErreur = Err.Number
  DescriptionErreur = Err.Description
  LogErreur conModule, conProcedure, NumeroErreur, DescriptionErreur
  Resume LibereObjet

LogErreur étant ma fonction de gestion globale d'erreur qui va stocker ensuite les messages d'erreur dans un table avec date/heure, module, fonction, utilisateur, pc, version de l'appli ...

[philben]

Merci pour vos réponses et j'ai découvert un utilitaire très pratique.
Philippe