Modifier une condition Where par VBA

Bonjour,

Voici ma requête SQL :

Code:

---

strSql = "SELECT DISTINCTROW * FROM [" & strTable1 & "] LEFT OUTER JOIN ([" & strTable2 & "] LEFT OUTER JOIN ([" & strTable3 & "] LEFT OUTER JOIN [" & strTable4 & "] ON PriceListSan.Equipement = IndicateurSoutien.Sigle_Equipement ) ON DonnéesClient.Sigle_Commercial = IndicateurSoutien.Sigle_Equipement) ON DonnéesClient.reference = DonnéesTechniques.Reference WHERE ...

---

Quand l'utilisateur choisit la table "DonnéesTechniques", plusieurs textBox s'affiche.

Je voudrais que ma requête SQL tienne compte de ces textBox.

J'ai un début de solution :

'Comment faire pour vérifier si une textbox est vide ?

Code:

---

1 2	If Me.matextbox =! 0 Then strSQl = strSQL AND (" & matextbox & ")

---

Pensez-vous que ça marche ? Et quelles sont les syntaxes exactes ? Merci

Si un textbox est vide?!
Si tu est dans le code de ton formulaire :

Code:

---

1 2 3

If NomTextBox.Value <> empty then 'ton code end if

---

Si t'es dans un module :

Code:

---

1 2 3

If Forms!NomForm.NomTextBox <> empty then 'ton code end if

---

De plus si tu veux concaténer utilises :

Code:

---

SQL = SQL & " je veux rajouter ca"

---

Ton code n'est pas correct, tu rajoutes seulement la chaine de caractère "matextbox"

Il faut que pour chaque textbox tu prépares ce que tu veux rajouter dans ta clause WHERE comme par exemple :

Code:

---

1 2 3 4 5 6 7 8 9

If TextBox_Nom.Value <> empty then SQL = SQL & " Nom = """ & TextBox_Nom.value & """" end if   If TextBox_Prenom.Value <> empty then SQL = SQL & " Prenom = """ & TextBox_Prenom.value & """" end if   'et ainsi de suite

---

Et une fois que tu as fini de rajouter ce que tu souhaites il faut que tu fasses :

Code:

---

SQL = SQL & ";"

---

Voila pour ce que j'ai compris

Merci c'est exactement ce que je voulais au niveau du VBA.

En ce qui concerne le SQL, sachant qu'il y aura plusieurs critères, y'a pas un "AND" à mettre quelque part ?


Du genre :

Code:

---

1 2	SQL = SQL & "AND Prenom = """ & TextBox_Prenom.value & """"

---

Si en effet il y a un AND mais le problème c'est que vu que tu ne sais pas combien de text box tu va mettre ni lesquelles il te faut une variable pour te dire si c'est le premier. En gros ton code va ressembler à ca :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Dim strSql as string Dim compteur as boolean compteur = false   strSql = "SELECT DISTINCTROW * FROM [" & strTable1 & "] LEFT OUTER JOIN ([" & strTable2 & "] LEFT OUTER JOIN ([" & strTable3 & "] LEFT OUTER JOIN [" & strTable4 & "] ON PriceListSan.Equipement = IndicateurSoutien.Sigle_Equipement ) ON DonnéesClient.Sigle_Commercial = IndicateurSoutien.Sigle_Equipement) ON DonnéesClient.reference = DonnéesTechniques.Reference WHERE"   If TextBox_Nom.Value <> empty then if compteur = false then strSql = strSql & " Nom = """ & TextBox_Nom.value & """" compteur = true else strSql = strSql & " AND Nom = """ & TextBox_Nom.value & """" end if end if   If TextBox_Prenom.Value <> empty then if compteur = false then strSql = strSql & " Prenom = """ & TextBox_Prenom.value & """" compteur = true else strSql = strSql & " AND Prenom = """ & TextBox_Prenom.value & """" end if   'etc....   strSql = strSql & ";" end if

---

Et le mieux c'est de mettre une msgbox à la fin pour voir si ton code correspond :)

D'accord je vois, merci bien ! :king:

Je teste je mettrais résolu après.

J'aurais peut-etre dû mettre ce que j'avais avant dans le WHERE :oops:

Car en fait j'ai utilisé le tutoriel de loufab pour créer ce formulaire de recherche, et j'ai un peu de mal à intégrer le code.

Donc ma clause WHERE c'est sa :

WHERE((" & strCriteria & "));"

Donc, en reprenant ton code, si je fais :

Code:

---

1 2 3 4 5 6 7 8

If TextBox_Nom.Value <> empty then if compteur = false then strCriteria = strCriteria & " Nom = """ & TextBox_Nom.value & """" compteur = true else strCriteria = strCriteria & " AND Nom = """ & TextBox_Nom.value & """" end if end if

---

Sa passerait ? Je teste mais si t'a une solution qui marche pour ça je prends.

Y'a pas de raisons que ca ne passe pas si tu as vidé le strCriteria au début.
Mais les deux "((" et "))" ils ne sont pas obligatoires.

Enfin test et dis moi si ca marche.
Si ca ne marche pas, mets moi un screenshot d'une msgbox montrant ta requete complète s'il te plait.
:)

Le WHERE affiché est le suivant :

WHERE(());;

Et sa n'affiche rien dans la zone de liste.

Enleve les (()) ils ne servent à rien d'abord et puis si il ne t'affiche rien c'est qu'il n'a rien mis dans la variable. (peu etr une erreur de frappe dans les noms de variables ?!)
Tu es obligé de repasser par strCriteria??! Ma facon ne fonctionnait donc pas?!

En effet une petite erreur, donc là j'ai viré strCriteria (en fait je l'utilisais pour pleins de choses avant mais j'ai tout viré) et repris ta technique.


Cela m'affiche : WHERE Reference = 3xxxxx; Donc sa correspond.

Seulement maintenant cela n'affiche rien dans la zone de liste !

Voici le code :

Code:

---

1 2 3 4 5

Me.lst_resultat.RowSource = strSql ' affecte sql a lst_Resultat Me.lst_resultat.Requery ' recalcule la liste MsgBox strSql

---

Avec ma méthode, tu arrives à afficher la requête SQL entière avec le where correspondant aux textbox que tu as remplis?!
C'est déja pas mal! :)
Après il y a peu être une erreur dans le reste de la requête. Essayes de l'excuter d'une autre manière, avec un recordset par exemple, pour voir si il te donne un message d'erreur ou si tu arrives à avoir un résultat.

Le souci doit étre au niveau de la requête, le WHERE Reference n'est pas pris en compte.

J'essai de régler ça.

Bon bah c'est bon merci.