Zone de liste VBA et Variable

Bonjour à tous,


j' aurai besoin d' une petite aide sur une base que je crée:
la solution doit etre évidente mais je butte, pour vous les pros ce sera réglé en 3 secondes.Donc voilà:

j ai un problème avec ma clause where de mon code:

Code:

---

"WHERE & StrFiltreliste41 &" & _

---

Celui ci ne renvoie rien dans ma liste...

lorsque je remplace le code par ca:

Code:

---

"WHERE (((T_Machines.Secteur)=2)) " & _

---

ou par ca:

Code:

---

"WHERE (((T_Machines.Secteur)=" & intSecteur & ")) " & _

---

...ca fonctionne tres bien .Je pense que le problème vient de ma syntaxe

Ca m' embete car mon but est de concatener plusieurs critères sur ma close Where, et là des le premier ca bug...

si quelqu un peut me donner la soluce...
merci d' avance.



voici le code:
(le code posant probleme est en rouge)

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 28 29 30 31

Private Sub btnSoudureLaser_GotFocus() intSecteur = 2 StrFiltreliste41 = "WHERE (((TblSecteurs.NASecteur) = " & intSecteur & "))" SelectionListe41 SelectionMachine End Sub ------------ Public Sub SelectionListe41() MsgBox StrFiltreliste41 With Me.Liste41 ' Précise le type de source de la liste .RowSourceType = "Table/Requête" ' Indique le nom de la source de la liste .RowSource = "SELECT TblSO.N°ASO, TblSO.ShopOrder, TblSO.[Quantité à produire], TblSO.N°article, T_Machines.Secteur, T_Machines.N°AMachine, TblOpérateurs.N°AOpérateur, TblSecteurs.NASecteur " & _ "FROM TblSecteurs " & _ "INNER JOIN (TblOpérateurs " & _ "INNER JOIN (T_Machines " & _ "INNER JOIN (TblSO " & _ "INNER JOIN (TblFicheJournalière " & _ "INNER JOIN TblDetailFicheJournaliere " & _ "ON TblFicheJournalière.[N°Afiche journalière] = TblDetailFicheJournaliere.[N°Afiche journalière]) " & _ "ON TblSO.N°ASO = TblDetailFicheJournaliere.[Numero SO]) " & _ "ON T_Machines.N°AMachine = TblFicheJournalière.Machine) " & _ "ON TblOpérateurs.N°AOpérateur = TblDetailFicheJournaliere.N°Opérateur) " & _ "ON (TblSecteurs.NASecteur = T_Machines.Secteur) " & _ "AND (TblSecteurs.NASecteur = T_Machines.Secteur) " & _ "WHERE & StrFiltreliste41 & " & _ "ORDER BY TblSO.N°ASO;"

---

Bonsoir

Code:

---

StrFiltreliste41 = "WHERE (((TblSecteurs.NASecteur) = " & intSecteur & "))"

---

et

Code:

---

1 2 3

"AND (TblSecteurs.NASecteur = T_Machines.Secteur) " & _ "WHERE & StrFiltreliste41 & " & _ "ORDER BY TblSO.N°ASO;"

---

si je traduis bien cela fait

Code:

---

"WHERE WHERE (((TblSecteurs.NASecteur) = " & intSecteur & "))"

---

Il ne doit pas y avoir besoin de deux where. ;)

Code:

---

1 2 3

"AND (TblSecteurs.NASecteur = T_Machines.Secteur) " & _ " & StrFiltreliste41 & " & _ "ORDER BY TblSO.N°ASO;"

---

merci GAYOT pour ta reponse hyper rapide et juste!

c est vrai que je me retrouve avec deux where, j' ai fais la correction...
par contre, j ai toujours une liste vide ....
pourtant les deux autres codes fonctionnent et affichent les résultats voulus!
j ai du faire un bêtise tellement grosse que j e ne la vois pas !!!!!
bon je continue à cercher....

oui euh je m' apercois d' un truc si je revoie le code de la requete dans un textbox voilà le résultat:

SELECT TblSO.N°ASO, TblSO.ShopOrder, TblSO.[Quantité à produire], TblSO.N°article, T_Machines.Secteur, T_Machines.N°AMachine, TblOpérateurs.N°AOpérateur, TblSecteurs.NASecteur FROM TblSecteurs INNER JOIN (TblOpérateurs INNER JOIN (T_Machines INNER JOIN (TblSO INNER JOIN (TblFicheJournalière INNER JOIN TblDetailFicheJournaliere ON TblFicheJournalière.[N°Afiche journalière] = TblDetailFicheJournaliere.[N°Afiche journalière]) ON TblSO.N°ASO = TblDetailFicheJournaliere.[Numero SO]) ON T_Machines.N°AMachine = TblFicheJournalière.Machine) ON TblOpérateurs.N°AOpérateur = TblDetailFicheJournaliere.N°Opérateur) ON (TblSecteurs.NASecteur = T_Machines.Secteur) AND (TblSecteurs.NASecteur = T_Machines.Secteur) & StrFiltreliste41 & ORDER BY TblSO.N°ASO;
comment faire pour que :WHERE (((TblSecteurs.NASecteur) =2)) se retrouve dans ma requete...

et j ai trouvé la solution:

Code:

---

"WHERE " & StrFiltreliste41 & " "

---

deux gillemets manquaient !!!

merci