Discussion :

[hadrimo]

- Je souhaite que ma requête affiche les enregistrements selon un critère sur le champ [Montant] de ma table TB_Vente.
- J'ai placé un contrôle liste déroulante cmbList1 qui contient les valeurs (">=";"=";"<=") et un zone de texte strMontant sur mon formulaire frmVente.
- Dans ma requête et dans le critère sur le champ [Montant] j'ai l'écriture suivante:
Nz([Forms]![frmVente]![cmbListe1] & ([Forms]![frmVente]![strMontant] ;[Montant])

Donc je veux que la requête me retourne les enregistrements dont le montant est >= 1000 si par exemple je choisis la valeur ">=" pour ma cmbListe1 et je rentre la valeur 1000 dans strMontant.

Mais j'ai toujours l'erreur : cette expression présente une syntaxe incorrecte.
J'ai essayé d'ajouter des cotes '' mais rien.
Je ne veux pas 3 requêtes pour chaque opérateur de comparaison puisque j'ai d'autres critères a jouté

Merci de votre aide!

[marot_r]

Bonjour,

Le SQL qui utilise des paramètres ressemble à cela :

Code sql :

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

select TaTable.* from TaTable where TaTable.TonChamp=[paramValeur]

Tu pourrais peut-être essayer :

Code sql :

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

select TaTable.* from TaTable where eval(TaTable.TonChamp & [paramOperateur] & [paramValeur])=true

Je ne suis pas certain que cela marche et que eval soit autorisé dans du SQL. Et attention eval est considéré comme un risque pour la sécurité des applications car il exécute n'importe quoi comme commande.

Si eval ne fonctionne pas tu pourrais sans doute la simuler avec une fonction public. Quelque chose comme

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
public EvaluerValeur(prmValeurReference as variant, prmOperateur as string, prmValeurCherche as variant) as boolean
   dim result as boolean:result=false
 
   if not isnull(prmValeurReference) and not isnull(prmValeurCherche) then
      select case prmOperateur
         case "=":result=prmValeurReference=prmValeurCherche
         case ">=":result=prmValeurReference>=prmValeurCherche
         ' et ainsi de suite
         case else
             error 5 'juste pour attraper les cas que j'aurai manqué
     end select
   end if
 
    EvaluerValeur=result
end function

Code sql :

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

select TaTable.* from TaTable where EvaluerValeur(TaTable.TonChamp, [paramOperateur], [paramValeur])=true

Sinon tu peux générer par code VBA ton SQL. Il y a plusieurs tutoriaux sur ce site à propos des formulaires de sélection multicritère.

A+

[hadrimo]

Merci marot_r la fonction eval fera la faire!
Encore merci!

[marot_r]

Si tu penses en avoir fini, merci d'appuyer sur le bouto en bas de dicussion.

A+