Obtenir la liste des requêtes dans le projet - MS Access

Question

J'ai une base de données très cookie-cutter (requêtes très similaires, très répétitives) qui vont dans un rapport modulaire (ie ils retournent tous les mêmes choses avec des critères différents).

Il y aura ~ 100 de ces requêtes, donc j'utilise une zone de liste déroulante pour afficher les requêtes, qui sont envoyées au rapport (via OpenArgs).

J'ai besoin de générer une liste de requêtes (juste les noms) que j'ai dans mon projet. J'aimerais que la source de contrôle de la liste déroulante soit cette liste de requêtes.

Peu importe si je dois faire une source de chaîne concaténée Value List ou un type de source Query/Table, la seule chose qui importe est que la colonne liée contient le "qryName"

Ce que je jusqu'à présent:

For Each qry In CurrentDb.QueryDefs 
    list = list & ";" & """" & qry.Name & """" 
    'String in the form "qryName";"qryAnotherQuery";"qryNextQuery" 
Next 

mais apparemment il y a une limite de caractères de ~ 2000 sur les listes de valeurs, donc si j'ai beaucoup de requêtes, je ne peux pas utiliser une liste de valeurs? Notez également: qry.Name renverra quelque chose comme "~ sq_cTableName", pas seulement mes requêtes .. ce qui est un problème. Je voudrais juste des questions.

Des idées? Je suis ouvert à d'autres façons de montrer cette information sans une zone de liste déroulante, aussi longtemps que je peux envoyer le nom de la requête à l'OpenArgs de mon rapport.

Answer 1

Si vous avez des droits de lecture sur MSysObjects, vous pouvez utiliser cette requête comme source de ligne pour votre zone de liste modifiable.

SELECT m.Name 
FROM MSysObjects AS m 
WHERE m.Type=5 AND m.Name Not ALike "~%" 
ORDER BY m.Name; 

Le critère, m.Name Not ALike "~%", exclut les requêtes temporaires et cachées du jeu de résultats.

Si vous n'avez pas l'autorisation de lecture sur MSysObjects, vous devrez créer une fonction de rappel que vous utiliserez ensuite comme source de ligne pour la zone de liste déroulante. Si vous devez suivre cette route, consultez cet exemple d'Allen Browne qui répertorie les objets du rapport et le remplace par la liste des requêtes à la place: List Box of Available Reports.

Answer 2

Une zone de liste vous permet d'utiliser Me.lstBox.AddItem qryName lorsque vous parcourez vos requêtes.
Vous pouvez alors utiliser une combinaison de ItemsSelected et ItemData pour trouver le nom de la requête

For Each varItm In lstBox.ItemsSelected 
    Debug.Print lstBox.ItemData(varItm) 
Next varItm 

ou si vous ne permettez pas à plusieurs select,

lstBox.ItemData(lstbox.ItemsSelected(0)) 

vous donnera le seul article