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