Discussion :

[fabrice57100]

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 :

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

"WHERE & StrFiltreliste41 &" & _

Celui ci ne renvoie rien dans ma liste...

lorsque je remplace le code par ca:

Code :

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

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

ou par ca:

Code :

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

"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 :

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
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;"

[Invité]

Bonsoir

Code :

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

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

et

Code :

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

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

si je traduis bien cela fait

Code :

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

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

Il ne doit pas y avoir besoin de deux where.

Code :

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

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

[fabrice57100]

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....

[fabrice57100]

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 :

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

"WHERE " & StrFiltreliste41 & " "

deux gillemets manquaient !!!

merci