Discussion :

[Pharmacos]

Bonjour,

J'ai une requête liée à un formulaire : 2 champs (1 produit, 1 numéro)

Je cherche toutes les lignes de ma table où Produit & Numéro correspondent.
Cependant si je veux laisser mon produit vide, car un numéro peut avoir plusieurs produits :

- j'ai essayé * sur le produit
- j'ai essayé % sur le produit

mais rien de concluant.... comment puis je faire pour lui dire de sélectionner toutes les valeurs sans changer ma requête ?

Merci
P.

[Taoueret]

quel est le SQL de ta requête ?

[Pharmacos]

Tout un blabla de récupération de champs et à la fin j'ai un where :

Code :

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

WHERE Produit=Formulaire!Produit AND Numero=Formulaire!Numero

Sachant que c'est une requête qui fait la recherche uniquement quand le Produit et le Numéro sont renseigné.
Je veux juste l'utiliser sans le produit, sans modifier la requête et en spécifiant un "comme *" en vba

[Taoueret]

si tu es en VBA, il te manque des guillemets pour séparer la chaine sql de tes variables. Tu peux utiliser le like. Si tu mets pas de *, ce sera comme un = :

Code :

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

"WHERE Produit like " &iif(not isnull(Formulaire!Produit),Formulaire!Produit,"*") &" AND Numero=" &Formulaire!Numero

[Jean-Philippe André]

salut,

encore mieux que le

Code :

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

iif(not isnull(Formulaire!Produit),Formulaire!Produit,"*")

le

Code :

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

Nz(Formulaire!Produit,"*")

[Pharmacos]

Bonjour,

Je me suis mal exprimé.
J'ai une requête fixe qui attends 2 paramètres venant d'un formulaire.

J'aimerais créer un nouveau bouton qui lance la même requête mais avec un seul des 2 paramètres.

Je n'écris pas ma requête en vba
Je voudrais juste mettre en vba l'équivalent de "like *" pour faire la recherche sur tout.

Merci,
P.

[Taoueret]

la fonction NZ peut aussi être utilisé dans ta requête SQL

si tu fais afficher ta requête en mode sql, tu peux saisir directement

Code :

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

1
2
 
WHERE produit like Nz(Formulaires![nom_de_ton_formulaire]!Produit,"*")

si tu saisi en mode édition de requête, dans la zone Critères, il faut mettre

Code :

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

1
2
3
 
like Nz(Formulaires![nom_de_ton_formulaire]!Produit;"*")
'la , est remplacée par ; dans l'appel des fonctions en mode editeur

[Taoueret]

je crois que je viens de comprendre.

Pour avoir tous les produits, il te suffit de rajouter à ta requête

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
16
17
18
19
 
dim sql as string
sql  = currentdb.QueryDefs("nomDeTaRequete").SQL
'suppression du ; final
sql = left(sql, instrrev(sql,";")-1)
sql = sql &" OR (produit like '*' AND <tonchamp2> = <ton param2>) "
'cela marche à la condition qu'il n'y ait rien à la fin de ta clause WHERE (pas de ORDER BY, GROUP BY...) 
 
'soit tu modifie ta requête original
currentdb.QueryDefs("nomDeTaRequete").SQL = sql
 
'soit tu ouvre un recordset dessus
set rs = currentdb.openrecordset (sql)
 
'soit tu affecte cette source de données à un formulaire
docmd.openform "FormQuery"
forms("formQuery").recordsource = sql
 
...