Discussion :

[marot_r]

Bonjour à tous et merci de votre temps.

J'ai une appli Access qui me fait des misères et j'aimerai savoir dans quel module elle plante. Je ne peux pas la débugger directement car c'est sur le poste de mon client qui n'as pas un vrai Access mais un runtime.

Je sais capturer l'erreur avec On Error mais je n'ai jamais rien trouvé qui permette de savoir automatiquement dans quel module se produit l'erreur.

J'ai vu des astuces qui suggèrent de créer une variable qui contient le nom du module et de la procédure (ce que je trouve pénible car je change assez souvant le nom de mes modules) mais rien qui puisse récupérer le nom du module actif et de la procédure en cours, un truc du genre GetCurrentModuleName() ou GetCurrentSubName().

Quelqu'un connait-il un moyen ?

A+

[seb92400]

Hello !!

Pour ce qui est du nom du module, utilise

Code :

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

Me.Module.Name

Par contre, je cherche également le moyen de récupérer le nom de la procédure en cours... et je ne trouve pas

Je vais continuer mes investigations...

[Domi2]

Bonjour,

Je ne sais pas s'il y'a un moyen simple pour répondre à ta demande.

Perso, je me suis inspiré très fortement de ce tuto de Tofalu, en l'adaptant un peu à mes besoins.

Ca représente un peu de boulot au départ, mais c'est vraiment efficace...

Mais évidemment, ce n'est peut-être pas tout à fait ce que tu cherches.

Domi2

[cavo789]

Bonjour

Perso j'utilise une variable publique que j'initialise dans chacune de mes fonctions / subroutines comme illustré ci-dessous.

Christophe

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
 
Dim sSubroutineName As string
 
Public Sub ErrHandlerMgt(ByVal wNumber As Double, ByVal sDescription As String)
 
   Msgbox "An error has occured in sub " & sSubroutineName& ".  Error code : " & wNumber & " - " & sDescription
 
End Sub
 
 
 
 
Public Sub MakeSomething
 
   sSubroutineName = "MakeSomething"
 
   On Error Goto ErrHandler
 
   ....
   ....
   ....
   ....
 
   Goto Fin:
 
ErrHandler:
 
   Call ErrHandlerMgt(err.Number, err.Description)
 
   err.Clear
 
Fin:
 
   On Error goto 0
 
End sub

[seb92400]

Merci de vos réponses... En fait, c'est ce que je faisais déjà, écrire simplement le nom des procédures dans une variable... Mais je voulais savoir, comme marot_r s'il existait une fonction permettant d'avoir d'avoir directement le nom de la procédure en cours d'exécution...

En tout cas, merci pour vos réponses...

[Arkham46]

s'il existait une fonction permettant d'avoir d'avoir directement le nom de la procédure en cours d'exécution...

Pour ça il faudrait lire la pile des appels, avec 3 milliards d'API très compliquées... (StackWalk et compagnie).
Peu (voir pas) de code VB disponible sur le sujet.

[seb92400]

Merci beaucoup !