Discussion :

[ange_dragon]

Bonjour à tous,

Je suis actuellement en train d'utiliser une requéte à partir de VBA.
Pour cette requéte j'ai défini des critéres.

Jusque là aucun probléme. Par contre dans certain cas, j'aimerai ne pas utiliser certain critére.

Est t'il donc prossible de "désactiver" certain critére d'une requéte ou sinon de selection comme critére "tous".

J'ai déja regardé dans l'aide et la FAQ mais rien trouvé pour le moment.

Merci d'avance

[marot_r]

Non, tu ne peux pas désactiver un paramètre mais tu peux appliquer les stratégies suivantes :

1) Rendre la sélection toujours vraie. Ex : si tu as Like [param], passer "*" dans param fait que la condition est toujours vrai.

2) Récupérer le SQL de la requète, le modifier puis t'en servir comme source.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
dim db as database:set db=currentdb
dim q as qyuerydef:set q=db.QueryDefs("NomDeMaQuery")
dim SQL as string
sql=replace(q.sql,"WHERE [MonChamp]=[param]","WHERE [MonChamp]=2"):'Remplace la clause Where actuelle par une nouvelle clause where.
set q=nothing
dim r as recordset:set r=db.OpenRecordset(SQL)
 
do while not r.eof
  debug.print r![MonChamp]
  r.movenext
loop
 
r.close:set r=nothing
db.close:set db=nothing

3) Si tu ouvres un formulaire ou un rapport tu peux utiliser la clause Where de DoCmd.OpenForm pour filtrer l'affichage et ne pas filtrer dans ta requète.

[ange_dragon]

Merci marot pour ta réponse, c'est justement ce que je voulais savoir. Mais juste un truc que je ne comprends pas.
Tu me proposes de * dans param. Mais quand je mets * dans la valeur de mon parametre ça ne me donne pas tous les résultats possible
Ou est ce que j'ai pu faire mon erreur?

Merci d'avance

Edit: En fait non c'est bon, j'ai réussis à trouver tout seul. Merci encore pour ton aide