Affichage de la fenêtre de débogage [Fait] [Résolu]

[fredoh]

Bonjour,

Quelqu'un sait il s’il existe une commande access (du style Docmd. ....) ou un mot clé VBA pour ouvrir la fenêtre de débogage.

Je lance des traitements "batch" avec des logs s'affichant dans cette fenêtre. J'aimerais qu'au lancement de mon code, le debugger s'ouvre automatiquement.

merci de votre aide.

[random]

control g

[fredoh]

ok merci bien

mais j'aimerais que l'ouverture soit declenchée directement par mon traitement (qui est lui même lancé par un bouton).

J'avais bien essayé d'inserer la chose suivante au debut de mon traitement mais ca ne fonctionne pas :

Code :

1
2
 
SendKeys "^g"

[Kloun]

Pareil, j'ai des batchs qui tournent et j'aime bien savoir ce qui se passe ( et ce qui s'est passé). J'ai donc un formulaire LOG dans lequel j'écrit tout ce que je veux.
Accessoirement, ça trace tout dans une table. J'ai même des alertes sonores et visuelles pour les fin KO ou OK, histoire d'être prévenu de la fin quand je fais autre chose.
J'importe le formulaire dans chaque nouveau projet que je fais.

[Muhad'hib]

Salut,

tu peux faire comme ça (à enregistrer dans un module) :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
 
Public Declare Sub keybd Lib "user32" Alias "keybd_event" _
  (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _
  ByVal dwExtraInfo As Long)
Public Sub Affiche_Debugeur()
keybd 17, 0, 0, 0
keybd 71, 0, 0, 0
keybd 17, 0, 2, 0
keybd 71, 0, 2, 0
 
End Sub

Dans ton code tu utilisera la fonction Affiche_Degugeur (cela ne fait que simuler l'appuis de la touche 17 (ctrl), puis l'appuis de la touche 71 (g), puis le relachement de la touche 17 (ctrl) et enfin le relachement de la touche 71 (g).


Voir l'article de FAQ de TOFALU sur le sujet ici

A+

[=JBO=]

Bonjour fredoh,

Envoyé par fredoh

Quelqu'un sait il s’il existe une commande access (du style Docmd. ....) ou un mot clé VBA pour ouvrir la fenêtre de débogage.

Dans VBA Access, tu peux utiliser le code ci-dessous:

Code :

DoCmd.RunCommand acCmdDebugWindow

Bon débogage .

[fredoh]

merci pour vos réponses.

le second code fonctionne très bien :

Code :

DoCmd.RunCommand acCmdDebugWindow

pour ce qui est du premier, cela ne marche pas chez moi (Win XP + Access 2003), j'essaierai lundi au travail (Win 98 + Access 97) :

Code :

1
2
3
4
5
6
7
8
9
10
11
 
Public Declare Sub keybd Lib "user32" Alias "keybd_event" _
  (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _
  ByVal dwExtraInfo As Long)
Public Sub Affiche_Debugeur()
keybd 17, 0, 0, 0
keybd 71, 0, 0, 0
keybd 17, 0, 2, 0
keybd 71, 0, 2, 0
 
End Sub

[fredoh]

Apres avoir essayé les différentes méthodes sur Access 97 + Win 98, le code suivant fonctionne dans toutes les situations testées :

Code :

DoCmd.RunCommand acCmdDebugWindow

[Demco]

Envoyé par fredoh

Apres avoir essayé les différentes méthodes sur Access 97 + Win 98, le code suivant fonctionne dans toutes les situations testées :

Code :

DoCmd.RunCommand acCmdDebugWindow

Merci de nous avoir fait part de cet information