[VBA Access] reconnaissance d'une requête

Question

Bonjour,
Mon programme a pour but de cr&#233;er des requ&#234;tes access, seulement je souhaite que chaque nouvelle requ&#234;te &#233;crase l'ancienne. Il faut donc que je sache s'il existe d&#233;j&#224; une requ&#234;te du m&#234;me nom, et si oui je la supprime. Comment puis-je faire une reconnaissance des requ&#234;tes existantes?

If ... Then
DoCmd.DeleteObject acQuery, "requ&#234;te"
End If

Autrement (plut&#244;t en plus) puis-je faire intervenir une bo&#238;te de dialogue qui alerte du remplacement de la 1re requ&#234;te par le 2e, et qui propose de rentrer un nouveau de requ&#234;te?

Merci d'avance

cs_jperre · Answer

Pour savoir si la requête existe, il faut parcourir la collection des requêtes de la base de données :
Function QryExist(sQryName As String) As Boolean
  Dim qry As QueryDef
  For Each qry In QueryDefs
      If qry.Name=sQryName Then
         QryExist=True
         Exit For
      End If
  Next qry
End Function

cs_observatoire · Answer

Merci, mais on me demande "objet requis" pour la ligne :
"For Each qry In QueryDefs"

cs_jperre · Answer

Il faut tout d'abord charger la bibliothèque Microsoft DAO dans les référencs. Pour celà (sous Access 2002) il faut créer un nouveau module, puis, dans le menu de l'editeur VBA d'access, ouvrir le menu "Outils" puis "Références", puis choisir "Microsoft DAO 3.6 Object Library". A partir de ce moment là, vous avez accès aux objets du Data Access Object.

cs_observatoire · Answer

Cette option est bien coch&#233;e, mais je suis sous Access 2003, &#231;a peut jouer?

cs_jperre · Answer

C'est possible, mais, n'ayant jamais utilisé Access 2003, je ne suis pas en mesure de confirmer ou infirmer... Peut être faut'il utiliser le prédicat pour bien définir à quelle bibliothèque d'objets appartient l'objet QueryDef.

Dim db As DAO.Database,qry As DAO.QueryDef
Set db=CurrentDB
For Each qry In db.QueryDefs
    ... etc

Dans le cas où une autre bibliothèque d'objet comporterait des objets QueryDef ce qui provoquerait une confusion dans les références.

cs_observatoire · Answer

En fait &#231;a a l'air de marcher, je n'ai pas trop compris qu'est-ce que j'ai fait qui a pu am&#233;liorer les choses... Mais je dois appeler cette fonction dans un if appartenant &#224; un "Private Sub Commande0_Click()" et :

If QryExist = True Then
   DoCmd.DeleteObject acQuery, "requ&#234;te"
End If

il me dit "argument non facultatif". Comment dois-je appeler la fonction?

cs_jperre · Answer

C'est If QryExist(NomRequete) Then DoCmd.DeleteObject acQuery, NomRequete

L'argument obligatoire qu'il cherche, c'est le Nom de la reqête dont on veut vérifier la présence ou non.

cs_observatoire · Answer

Merci bien. &#231;a marche
et j'ai effectivement eu besoin de :
   Dim db As DAO.Database,qry As DAO.QueryDef
      Set db=CurrentDB
         For Each qry In db.QueryDefs...
car il a fini par me resignaler l'erreur du d&#233;but.

[VBA Access] reconnaissance d'une requête

8 réponses

Discussions similaires