Initiation - Débogage : requêtes écrites par VBADate de publication : 01/10/2005 , Date de mise à jour : 01/10/2005 Thèmes abordés : I. Objectif II. Constat de bogue (bug) III. Utilisation du Debug.Print IV. Généralisation à l'utilisation des outils de débogage IV-A. Définition de point d'arrêt IV-B. Le mode pas à pas IV-C. Les espions V. Débogage par une requête de test V-A. Par copier-coller V-B. Par le code V-C. Résolution du bogue VI. Frequently Abominable Queries (FAQ) VI-A. Confusion Chaine SQL et Variable VI-B. Variable vide VI-C. Type de données VI-D. Espaces manquants ou superflus VI-E. Présence de Simple Quote (') ou Double Quote (") dans la variable VI-F. Autres VII. Conclusion I. Objectif
Ce très court tutoriel a pour objectif de donner une méthode de débogage lors de requêtes écrites par du code VBA. Nous nous situons dans le cas fréquent où le développeur souhaite ouvrir un recordset / modifier une requête / modifier un Recordsource par le Code. Le codage VBA ne permet pas de vérifier la validité d'une expression SQL qui ne sera évaluée qu'à l'exécution. II. Constat de bogue (bug) Et lorsque nous modifions un critère de recherche rien ne se passe, le débogage serait identique si nous avions un message d'erreur.  Que faire ? III. Utilisation du Debug.Print
Nous insérons dans le code, après la dernière mise à jour de la chaîne SQL, la ligne suivante :
Nous l'insérons à cet endroit :  Ce qui signifie que nous demandons à l'objet Debug d'afficher la valeur de notre variable SQL. Cet affichage se fera dans la fenêtre Exécution d'Access, elle-même située dans la fenêtre VBA.  Pour les versions 97 et inférieures, la fenêtre débogage est une fenêtre indépendante, pour les versions 2000 et ultérieures, elle apparaît dans VBA. Dans tous les cas : Ctrl + G permet de la mettre au premier plan. Si vous êtes familier avec le SQL ou que l'erreur est criante, le Debug.Print peut suffire à trouver l'erreur. Cependant dans certains cas, la lecture du SQL ne permet un débogage immédiat, nous allons donc passer par une requête. L'utilisation de Debug.Print fait partie de l'éventail des outils de débogage, la partie suivante va tenter d'en brosser les principaux. IV. Généralisation à l'utilisation des outils de débogage
Cette partie vise à présenter de manière synthétique l'éventail des outils d'aide au débogage. IV-A. Définition de point d'arrêt
Les points d'arrêts sont utiles dans le cas d'une procédure au bogue muet. C'est à dire, un traitement qui ne produit aucune erreur visible, mais qui ne donne pas le résultat escompté. Pour insérer un point d'arrêt, vous pouvez au choix : . cliquer dans la marge grise . appuyer sur F9 . le faire dans le menu Débogage  Visuellement, la ligne est surlignée en rouge, avec un point rouge dans la marge grise. Cela signifie que lors de l'exécution le code va s'arrêter sur cette ligne, soit avant l'exécution de celle-ci. La ligne va être surlignée en jaune, comme sur l'image suivante :  Access vous rend la main pour effectuer votre débogage, et ce de plusieurs manières différentes. Vous pouvez survoler avec la souris, le nom des variables, dans notre cas, la souris survole la Variable SQL.  Mais vous pouvez tout aussi bien évaluer des expressions dans la fenêtre exécution : avec la fontion Print suivie du nom de la variable.  Vous pouvez également corriger à chaud (pendant l'exécution) le code qui suit votre point d'arrêt. Pour relancer le traitement après vos modifications, il vous suffit de cliquer sur le bouton "continuer" en forme de lecture, ou d'appuyer sur la touche F5 :  IV-B. Le mode pas à pas
Ce mode est accessible depuis un point d'arrêt, ou un bogue rencontré sur lequel vous avez cliqué sur Débogage.  Le mode est accessible par le menu ou par la touche F8. Ce mode est utile quand vous n'avez pas identifié la ligne de code qui pose problème. Vous allez pouvoir parcourir chaque ligne de votre code pour l'évaluer. Dans les faits, Access va nous rendre la main sur chaque ligne en la surlignant en jaune. Ce qui nous laisse la possiblité de modifier le code de la ligne surlignée ou le code des lignes suivantes. Pour passer à la ligne suivante, il suffit d'appuyer sur F8. IV-C. Les espions
Sous ce titre "aventureux" se cache une fonctionnalité de débogage qui permet d'afficher directement la valeur d'une expression. Cet affichage a lieu dans une fenêtre dédiée (les affichages varient selon que l'application soit sous 97 ou sous 2000 et ultérieures). Cas pratique : . nous définissons un espion sur l'expression SQL . nous définissons un point d'arrêt sur la première ligne de code . nous allons faire du pas à pas pour regarder comment notre espion évolue. Pour définir un espion : 1- nous sélectionnons une expression : . soit un nom de variable . soit une portion de code : égalité qui renverra un True ou False, ou une fonction 2- Clic droit : Ajouter un espion  puis  une ligne dans le volet "Espions" apparaît.  A l'exécution, examinons les valeurs que prend notre espion durant le mode pas à pas. sur la première ligne (notre point d'arrêt) :  Puis dans le mode pas à pas :  Nous pouvons ainsi suivre l'évolution en lecture directe de l'évaluation d'une expression.
V. Débogage par une requête de test
Revenons maintenant à notre cas principal, c'est à dire le débogage d'une requête écrite par le code VBA.
V-A. Par copier-coller
C'est une méthode "manuelle". Nous allons chercher le SQL qui a été affiché dans la fenêtre Exécution, nous le copions et nous allons le coller dans une requête vierge. Nous créons une nouvelle requête.  en mode création Pour que la requête soit vierge, nous n'ajoutons aucune table.  cliquons sur Fermer pour n'ajouter aucune table Enregistrons notre requête : qryTest  Nous passons en mode SQL.  Et nous n'avons plus qu'à coller le SQL. Nous reviendrons sur l'analyse plus tard. V-B. Par le code
Nous insérons les lignes suivantes :  La première ligne permet d'attribuer dynamiquement à une requête notre chaîne SQL. La seconde ligne ouvre en mode modification la requête de test. Ce qui fait qu'à l'exécution de la sub, la requête de test va s'ouvrir en mode création en affichage QBE.  Ce mode d'affichage est un des plus visuels, surtout lorsque nous ne sommes pas experts en SQL. V-C. Résolution du bogue
Dans ce cas précis, nous identifions l'erreur : le critère ="*Visual*" n'est pas valide, il faut utiliser Comme (Opérateur Like en SQL). Après correction, nous repassons en mode d'affichage SQL :  Il nous suffira de nous inspirer du SQL valide pour corriger notre procédure VBA. VI. Frequently Abominable Queries (FAQ)VI-A. Confusion Chaine SQL et Variable
Le Debug.Print vous montrera que votre requête va rechercher les Familles dont la valeur est la chaîne "Me.cmbRechFamille".
Vous devez sortir Me.cmbRechFamille de la chaîne pour qu'Access évalue la valeur, et c'est cette valeur qui sera dans votre chaîne SQL.
VI-B. Variable vide
Cette fois votre code est irréprochable, mais le Debug.Print révèle ceci :
Votre variable est Null, les causes possibles peuvent être : . Contrôle situé sur un formulaire non accessible / non ouvert / dont le chemin d'accès est erronné . Erreur de libellé sur le nom . Erreur de typage de la variable Assurez vous que la variable prend bien une valeur, si votre application comporte la possibilité d'un Null, prévoyez le grâce à la fonction Nz(). VI-C. Type de données
Votre code semble exact, mais hélas il n'est pas approprié avec les normes de l'implémentation SQL d'Access.
Pour rappel :
VI-D. Espaces manquants ou superflus
Le Debug.Print va vous permettre d'identifier à l'oeil nu ce genre d'erreur.
ce code d'apparence correcte va donner un SQL de ce type
Le remède :
Ensuite le cas d'un espace superflu à l'intérieur d'un critère, suite à une faute d'inattention :
va donner :
VI-E. Présence de Simple Quote (') ou Double Quote (") dans la variable
Nous avons vu que l'implémentation SQL d'Access requiert la mise entre quotes ' ' d'une chaîne en critère.
Ce codage est cependant mis en échec quand la valeur de la variable contient un quote. Exemple :
Si maVariable vaut : "l'écureuil"
Ce qui vous vaut une belle erreur.
Le remède est de doubler ce Quote. Pour les versions 2000 et ultérieures, il suffit d'utiliser la fonction Replace().
Pour les versions 97 et antérieures, il faut faire de même en utilisant une fonction Replace() de substitution (disponible dans la FAQ)
VI-F. Autres
Cette liste des FAQ n'est pas exhaustive, n'hésitez pas à me contacter pour que j'ajoute d'autres types d'erreurs fréquentes.
VII. Conclusion
Cet article vous a, je l'espère, donné quelques pistes pour mieux écrire vos requêtes via VBA et dans le cas où les problèmes subsistent les déboguer. J'adresse un grand merci à toute l'équipe de rédaction d'Access pour leurs relectures et leurs pertinentes suggestions d'améliorations. Un remerciement tout particulier pour Argyronet qui a superbement magnifié les copies d'écran. |
Les sources présentées sur cette page sont libres de droits, et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une oeuvre intellectuelle protégée par les droits d'auteurs. Copyright © 2005 Charles A.. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents, images, etc sans l'autorisation expresse de l'auteur. Sinon vous encourez selon la loi jusqu'à 3 ans de prison et jusqu'à 300 000 E de dommages et intérêts. Cette page est déposée à la SACD.
Vos questions techniques : forum d'entraide Access - Publiez vos articles, tutoriels et cours
et rejoignez-nous dans l'équipe de rédaction du club d'entraide des développeurs francophones
Nous contacter - Hébergement - Participez - Copyright © 2000-2009 www.developpez.com - Legal informations.
et rejoignez-nous dans l'équipe de rédaction du club d'entraide des développeurs francophones
Nous contacter - Hébergement - Participez - Copyright © 2000-2009 www.developpez.com - Legal informations.