accès: comment détecter avec VBA si une requête est ouverte?

Question

est-il possible de détecter s'il existe une requête ouverte utilisant VBA dans access-2007?

j'ouvre une requête comme celle-ci:

stDocName = "Meeting_Reasons_Frequency" 
    DoCmd.OpenQuery stDocName 

est-il possible de détecter si elle est ouverte?

Answer 1

Que diriez-vous:

If SysCmd(acSysCmdGetObjectState, acQuery, "QueryName") = acObjStateOpen Then 

Plus d'info: http://msdn.microsoft.com/en-us/library/aa205281(office.10).aspx

Answer 2

Je ne sais pas si cela s'applique aux requêtes, mais je remarque que pour les formulaires, vous devez utiliser And au lieu de =.

If SysCmd(acSysCmdGetObjectState, acForm, "FormName") And acObjStateOpen Then 

Apparemment, la forme peut avoir plusieurs "états" simultanément. En utilisant And sélectionne celui que vous voulez; il agit comme un opérateur bitwise dans ce contexte.