{"id":7498,"date":"2018-08-05T12:54:09","date_gmt":"2018-08-05T10:54:09","guid":{"rendered":"https:\/\/www.auditsi.eu\/?p=7498"},"modified":"2018-08-05T12:54:09","modified_gmt":"2018-08-05T10:54:09","slug":"ms-access-vba-creer-et-supprimer-des-requetes","status":"publish","type":"post","link":"https:\/\/www.auditsi.eu\/?p=7498","title":{"rendered":"MS\/ACCESS, VBA : cr\u00e9er et supprimer des requ\u00eates"},"content":{"rendered":"<p style=\"text-align: justify;\">La cr\u00e9ation et la suppression de requ\u00eates SQL \u00e0 partir du VBA d&#8217;ACCESS s&#8217;op\u00e8rent respectivement \u00e0 l&#8217;aide des commandes <em>CreateQueryDef<\/em> et <em>DeleteObject<\/em>.<\/p>\n<p style=\"text-align: justify;\">Tout d&#8217;abord, pour la cr\u00e9ation, la commande <em>CreateQueryDef<\/em> dans l&#8217;exemple suivant cr\u00e9e une requ\u00eate nomm\u00e9e par la variable NomReq avec le texte SQL contenu dans la variable TexteReq dans la base de donn\u00e9es courante (<em>CurrentDb<\/em>).<\/p>\n<pre class=\"lang:vb decode:true\">Dim qd As QueryDef\r\n    \r\nSet qd = CurrentDb.CreateQueryDef(NomReq, TexteReq)<\/pre>\n<p style=\"text-align: justify;\">Une fois cr\u00e9\u00e9e, la requ\u00eate est utilis\u00e9e \u00e0 l&#8217;aide de son identifiant, ici <em>qd<\/em>.<\/p>\n<p>Une fois la requ\u00eate devenue inutile, la commande <em>DoCmd.DeleteObject<\/em> supprime la requ\u00eate (<em>acQuery<\/em>) dont le nom est contenu dans la variable NomReq.<\/p>\n<pre class=\"lang:default decode:true \">DoCmd.DeleteObject acQuery, NomReq\r\n<\/pre>\n<p style=\"text-align: justify;\">Approfondir le sujet : <a href=\"https:\/\/www.auditsi.eu\/?tag=access\">Ma\u00eetriser ACCESS<\/a> \/&nbsp;<a href=\"https:\/\/www.auditsi.eu\/?cat=1569\">Ma\u00eetriser le langage VBA<\/a> \/&nbsp;<a href=\"https:\/\/www.auditsi.eu\/?cat=1820\">Ma\u00eetriser le langage de requ\u00eate SQL<\/a>&nbsp;\/ <a href=\"https:\/\/www.auditsi.eu\/?cat=50\">Analyse de donn\u00e9es<\/a><\/p>\n<div style=\"padding-bottom:20px; padding-top:10px;\" class=\"hupso-share-buttons\"><!-- Hupso Share Buttons - https:\/\/www.hupso.com\/share\/ --><a class=\"hupso_counters\" href=\"https:\/\/www.hupso.com\/share\/\"><img decoding=\"async\" src=\"https:\/\/static.hupso.com\/share\/buttons\/lang\/fr\/share-small.png\" style=\"border:0px; padding-top:2px; float:left;\" alt=\"Share Button\"\/><\/a><script type=\"text\/javascript\">var hupso_services_c=new Array(\"twitter\",\"facebook_like\",\"facebook_send\",\"email\",\"print\",\"linkedin\");var hupso_counters_lang = \"fr_FR\";var hupso_image_folder_url = \"\";var hupso_twitter_via=\"BenoitRiviere14\";var hupso_url_c=\"\";var hupso_title_c=\"MS%2FACCESS%2C%20VBA%20%3A%20cr%C3%A9er%20et%20supprimer%20des%20requ%C3%AAtes\";<\/script><script type=\"text\/javascript\" src=\"https:\/\/static.hupso.com\/share\/js\/counters.js\"><\/script><!-- Hupso Share Buttons --><\/div>","protected":false},"excerpt":{"rendered":"<p>La cr\u00e9ation et la suppression de requ\u00eates SQL \u00e0 partir du VBA d&#8217;ACCESS s&#8217;op\u00e8rent respectivement \u00e0 l&#8217;aide des commandes CreateQueryDef et DeleteObject. Tout d&#8217;abord, pour la cr\u00e9ation, la commande CreateQueryDef dans l&#8217;exemple suivant cr\u00e9e une requ\u00eate nomm\u00e9e par la variable NomReq avec le texte SQL contenu dans la variable TexteReq dans la base de donn\u00e9es &#8230;<\/p>\n<p><a href=\"https:\/\/www.auditsi.eu\/?p=7498\" class=\"more-link\">Continue reading &lsquo;MS\/ACCESS, VBA : cr\u00e9er et supprimer des requ\u00eates&rsquo; &raquo;<\/a><\/p>\n<div style=\"padding-bottom:20px; padding-top:10px;\" class=\"hupso-share-buttons\"><!-- Hupso Share Buttons - https:\/\/www.hupso.com\/share\/ --><a class=\"hupso_counters\" href=\"https:\/\/www.hupso.com\/share\/\"><img src=\"https:\/\/static.hupso.com\/share\/buttons\/lang\/fr\/share-small.png\" style=\"border:0px; padding-top:2px; float:left;\" alt=\"Share Button\"\/><\/a><script type=\"text\/javascript\">var hupso_services_c=new Array(\"twitter\",\"facebook_like\",\"facebook_send\",\"email\",\"print\",\"linkedin\");var hupso_counters_lang = \"fr_FR\";var hupso_image_folder_url = \"\";var hupso_twitter_via=\"BenoitRiviere14\";var hupso_url_c=\"\";var hupso_title_c=\"MS%2FACCESS%2C%20VBA%20%3A%20cr%C3%A9er%20et%20supprimer%20des%20requ%C3%AAtes\";<\/script><script type=\"text\/javascript\" src=\"https:\/\/static.hupso.com\/share\/js\/counters.js\"><\/script><!-- Hupso Share Buttons --><\/div>","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"advanced_seo_description":"","jetpack_seo_html_title":"","jetpack_seo_noindex":false,"ngg_post_thumbnail":0,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","_links_to":"","_links_to_target":""},"categories":[1569,215],"tags":[60,1923,1922,1925,1924,1921,1641],"class_list":["post-7498","post","type-post","status-publish","format-standard","hentry","category-programmer-en-vba","category-vba","tag-access","tag-createquerydef","tag-currentdb","tag-deleteobject","tag-docmd","tag-querydef","tag-vba"],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"jetpack_likes_enabled":false,"_links":{"self":[{"href":"https:\/\/www.auditsi.eu\/index.php?rest_route=\/wp\/v2\/posts\/7498","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.auditsi.eu\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.auditsi.eu\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.auditsi.eu\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.auditsi.eu\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=7498"}],"version-history":[{"count":4,"href":"https:\/\/www.auditsi.eu\/index.php?rest_route=\/wp\/v2\/posts\/7498\/revisions"}],"predecessor-version":[{"id":7503,"href":"https:\/\/www.auditsi.eu\/index.php?rest_route=\/wp\/v2\/posts\/7498\/revisions\/7503"}],"wp:attachment":[{"href":"https:\/\/www.auditsi.eu\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=7498"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.auditsi.eu\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=7498"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.auditsi.eu\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=7498"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}