Je "voeux" !

[vbanath]

Bonsoir,

J'ai réalisé, en 2008, une base de donnée accès (.mbd) pour ma soeur, où je créee avant chaque traitement un grand nombre de requêtes à l'aide de procédure:

"Sub ProcedureCreateQueryDefRequeteX", que je supprime après traitement à l'aide de macro : DoCmd.RunMacro "MacroSuppRequeteX".

Sauf que dans un cas particulier (ma soeur est incapable de me dire lequel exactement), Accès m'affiche le message "L'objet 'RequêteX' existe déjà.".

Pouvez-vous m'indiquer, comment faire pour tester l'existance d'une requête, car j'ai bien un livre de Accès 2010, et j'ai bien essayé de chercher dans la FAC et dans les tutoriels, mais je ne trouve pas de réponse à ma question.

Je vous remercie d'avance et j'en profite pour vous dire à tous que je
« vœux » pour vous une BONNE ANNEE 2011 !

• 1 an de Santé,
• 52 semaines d'Amour,
• 365 jours de Joie,
• 8 760 heures de satisfaction,
• 525 600 minutes de projet informatique,
• 31 536 000 secondes de bonheur

[marot_r]

En théorie tu n'es pas supposé créer et supprimer des requêtes. La structure d'une base de données est censée être très stable, seules les données dans les tables devraient changer.

Il y a sans doute quelque chose à revoir dans ton traitement.

Mais pour répondre à ta question voici une petite function qui fait cela :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
public function RequeteExiste(prmNomRequete as string) as boolean
   dim result as boolean:result=false
   dim db as dao.database:set db=currentdb
 
   dim q as dao.querydef:for each q in db.querydefs
 
      if q.name=prmNomrequete then
        result=true
        exit for
      end if
 
   next q
 
   db.close:set db=nothing
 
   RequeteExiste=result
end function

pour l'utiliser

Code :

1
2
3
if RequeteExiste("NomTaRequete") then
   'Faire ce qui est nécessaire
end if

A+