Discussion :

[arundel]

Bonjour à tous,
Une petite question simple (dans sa formulation) pour laquelle je n'ai trouvé de réponse dans aucun des forums que j'ai consultés :

Est-il faisable de créer par code VBA des espions dans le débogueur ?

Le motif de cette question est qu'en phase de test je souhaite suivre l'évolution de certaines variables temporaires (TempVars). A chaque sortie de l'application je dois re-créer ces espions avec leur contexte (Procédure et Module) ce qui est pénible.

Avez-vous une idée ?
Merci d'avance.

[marot_r]

Bonjour.

Oui cela fait parti des fonctionnalités de l'IDE de Access.
Tu vas dans le code, menu affichage et tu choisi fenêtre espion.
Note que j'ai eu quelques soucis lors de son utilisation, parfois cela faisait planter Access.
Ceci dit c'était il y a longtemps donc peut-être que cela ne se reproduira pas.
Perso je me sers surtout de la fenêtre des variables locales et de points d'arrêt.

A+

[arundel]

Merci Marot, c'est toujours un plaisir que d'échanger avec toi.

Sur ce coup je reste perplexe car tu m'expliques comment ouvrir la fenêtre Espions, ce qui n'est pas l'objet de ma demande.

Ce qui m'intéresse c'est de pouvoir ajouter des espions à partir d'une liste que je pourrais stocker dans une table (ou autre chose) et qu'il me suffirait de lancer avec ub peu de code VBA pour garnir la dite fenêtre.
J'aurais dû être plus précis et demander, par exemple, si Access possède une collection d'objets Espions accessible par le code.

Je crains que non mais c'est la première fois que je me penche sur le sujet. Et toi ?

Bonne soirée.

[User]

Bonjour,

...

Le motif de cette question est qu'en phase de test je souhaite suivre l'évolution de certaines variables temporaires (TempVars). A chaque sortie de l'application je dois re-créer ces espions avec leur contexte (Procédure et Module) ce qui est pénible.

Avez-vous une idée ?
Merci d'avance.

Bonjour,

Je ne suis pas certain que ce soit faisable, mais je tente une chose avec les variables temporaires stockées dans la collection TempVars :

On peut déjà les conserver dans une table.

Par exemple, sur ouverture du formulaire qui lance la session, on lit le contenu de la table T_TempVars(var, valeur) dans des variables temporaires :

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
Private Sub Form_Open(Cancel As Integer)
    Dim rst As DAO.Recordset
 
    Set rst = CurrentDb.OpenRecordset("T_TempVars")
 
    If rst.EOF Then
        ' si la table T_TempVars est vide, on crée les variables avec des valeurs
        TempVars.Add "var1", 101
        TempVars.Add "var2", 102
    Else ' sinon
        ' on ajoute les variables contenues dans la table
        Do Until rst.EOF
            var = rst!var: valeur = rst!valeur
            TempVars.Add var, valeur
            rst.MoveNext
        Loop
    End If
 
    rst.Close
    Set rst = Nothing
 
End Sub

Et à la fermeture de ce formulaire de session, on enregistre les variables temporaires dans la table T_TempVars :

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
Private Sub Form_Close()
    Dim rst As DAO.Recordset
 
    ' supprime le contenu de la table T_TempVars
    CurrentDb.Execute "delete * from T_TempVars", dbFailOnError
 
    Set rst = CurrentDb.OpenRecordset("T_TempVars")
 
    For i = 0 To TempVars.Count - 1
 
        Set TempVar = TempVars(i)
 
        rst.AddNew
        rst!var = TempVar.Name
        rst!valeur = TempVar.Value
        rst.Update
 
    Next i
 
    rst.Close
    Set rst = Nothing
 
End Sub

Les variables temporaires étant effacées après fermeture de la base.

Pour mettre à jour une variable temporaire dans le code d'un module :

Code :

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

TempVars("var1").Value = TempVars("var1").Value + 10

Pour connaître son contenu, dans la fenêtre d'exécution :

Code :

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

? TempVars("var1").value

Cdlt,

[arundel]

Bonjour User,
J'ai lu avec intérêt ta suggestion et t'en remercie.

Comme je le mentionnais dans mon post initial, je souhaite suivre l'évolution de certaines variables temporaires de mon appli.
De ce point de vue la déclaration des vartemp est déjà faite et je peux en suivre leur évolution en les déclarant dans la fenêtre Espions.
Jusque là tout va bien.

Comme la fenêtre Espions est vidée à chaque sortie de l'application il me faut la re-peupler à chaque fois, ce qui est pénible.
Il existe probablement dans le système Access un endroit caché où ces déclarations sont stockées mais je ne l'ai pas trouvé.

J'en arrive à la même conclusion que toi : pas de solution à mon problème.

Merci et à +

[micniv]

même conclusion que toi : pas de solution à mon problème.

Quid de la solution très simple d'archiver ces valeurs dans une table ? valeurs enregistrées avec tous les autres paramétres souhaités (date-heure, utilisateur ...)

[arundel]

Bonjour Micniv,
C'est une idée intéressante et simple mais qui ne permet pas un suivi synchrone des variations de valeur des vartemp comme le fait la fenêtre Espions.
Il faut aussi capter l'instant du changement pour enregistrer au bon moment.
Ca me parait plus compliqué que de créer un espion.
Merci d'avoir regardé la question sur un sujet certes non vital mais qui aurait pu faciliter la vie à d'autres développeurs
A+

[micniv]

Je découvre ce tuto de Christophe Warin , ça pourrait être une autre piste intéressante
https://warin.developpez.com/tutorie...s2010/journal/

Crdlt,

[arundel]

Effectivement j'ai étudié ce tuto il y a environ 15 jours et je pense mettre cette préconisation en oeuvre dès que j'aurai terminé la mise au point.
Cependant cette solutionest orientée analyse a posteriori et, pour mon sujet actuel, est moins performante que la vue Espions.
J'ai surfé sur les sites anglophones et trouvé quelques idées (peu) sur les "watch expressions", mais de l'ordre du bricolage à coups de Senkeys en cours d'exécution.
Ca me confirme qu'Access ne me permettra pas d'aller plus loin.
Bonne soirée à tous.

[User]

Oui, on utilise les événements au niveau des tables au lieu d'utiliser ceux sur les formulaires.