{"id":7492,"date":"2018-08-04T00:05:48","date_gmt":"2018-08-03T22:05:48","guid":{"rendered":"https:\/\/www.auditsi.eu\/?p=7492"},"modified":"2018-08-04T00:05:48","modified_gmt":"2018-08-03T22:05:48","slug":"ms-access-vba-tester-lexistence-dun-objet-requete-table","status":"publish","type":"post","link":"https:\/\/www.auditsi.eu\/?p=7492","title":{"rendered":"MS\/ACCESS, VBA : tester l\u2019existence d\u2019un objet (requ\u00eate, table\u2026)"},"content":{"rendered":"

Il n’est pas possible de cr\u00e9er deux objets portant le m\u00eame nom. Aussi avant de cr\u00e9er un objet, il est pr\u00e9f\u00e9rable de s’assurer qu’il n’existe pas d\u00e9j\u00e0. ACCESS g\u00e8re diff\u00e9rentes natures d’objets : requ\u00eate (Query<\/em>), table (Table<\/em>), formulaire (Form<\/em>)… Le cas qui va \u00eatre trait\u00e9 ici est celui des requ\u00eates. L’exemple de code fourni ci-apr\u00e8s est ais\u00e9ment adaptable \u00e0 d’autres objets. Pour ce faire, il suffit, par exemple, de remplacer Query<\/em> par Table<\/em> pour tester l’existence d’une table.<\/p>\n

En synth\u00e8se, le code source de la fonction ReqExiste ci-apr\u00e8s renvoie \u00ab True \u00bb (vrai) si l\u2019objet test\u00e9 existe ou \u00ab False \u00bb (faux) dans le cas contraire.<\/p>\n

'Cette fonction teste l\u2019existence d\u2019une requ\u00eate nomm\u00e9e dans la variable strReq contenue dans la base de donn\u00e9es nomm\u00e9e db\r\nFunction ReqExiste(db As DAO.Database, ByVal strReq As String) As Boolean\r\n  Dim req As DAO.QueryDef\r\n  'Parcourt toutes les requ\u00eates de la base \u00ab db \u00bb\r\n  For Each req In db.QueryDefs\r\n    If req.Name = strReq Then\r\n      'La requ\u00eate a \u00e9t\u00e9 trouv\u00e9e...\r\n      ReqExiste = True\r\n      Exit Function\r\n    End If\r\n  Next\r\n  'La requ\u00eate n'existe pas...\r\n  ReqExiste = False\r\nEnd Function<\/pre>\n
Quelques explications sur le code source :<\/p>\n
La boucle compteur<\/a> For Each… In… Next<\/em> scrute toutes les requ\u00eates (QueryDefs<\/em>) de la base de donn\u00e9es “db”.<\/p>\n
Le nom de chacune des requ\u00eates (req.Name<\/em>) est compar\u00e9 au nom \u00e0 tester (strReq<\/em>) \u00e0 l’aide du test conditionnel If… Then… Else<\/a>. Si le nom correspond (=<\/em>), la fonction renvoie True<\/em> (la requ\u00eate existe) et le code s’arr\u00eate (Exit Function<\/em>) ; dans le cas contraire, le code passe \u00e0 la requ\u00eate suivante (Next<\/em>).<\/p>\n
Si toutes les requ\u00eates ont \u00e9t\u00e9 pass\u00e9es en revue et qu’aucune ne correspond au nom recherch\u00e9, la fonction renvoie False<\/em>.<\/p>\n
Approfondir le sujet : Ma\u00eetriser ACCESS<\/a> \/ Ma\u00eetriser le langage VBA<\/a> \/ Ma\u00eetriser le langage de requ\u00eate SQL<\/a> \/ Analyse de donn\u00e9es<\/a><\/p>\n
\"Share<\/a>