Discussion :

[sylv20]

Bonjour,

Je croit avoir un probleme de syntaxe dans ce code. Pourtant j'ai essayé un peu tout : quelle bazarre cette syntaxe

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
32
 
Dim ligne As Integer
Dim nbr_ligne_liste As Integer
 
 
Dim val_reference As String
Dim val_monte As String
 
Dim my_filtre As String
Dim strList As String
 
nbr_ligne_liste = Liste9.ListCount - 1
 
 
strList = ""
 
For ligne = 0 To nbr_ligne_liste
        val_reference = Liste9.Column(0, ligne)
        val_monte = Liste9.Column(1, ligne)
 
        strList = strList & "or(([Eléments testés].Référence= " & val_reference & ") and ([Eléments testés].[N° monte]=" & val_monte & "))"
 
Next ligne
 
 
 
strList = Right(strList, Len(strList) - 2) ' enlève le ,' du début.
 
my_filtre = strList
 
 
DoCmd.OpenReport "TRAVAUX PAR ELEMENTS TESTES DOC GE 10 016 tous", acViewPreview, , my_filtre

PS : en mode création requete ceci fonctionne :

Code :

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

WHERE ((([Eléments testés].Référence="4306592F1") And ([Eléments testés].[N° monte]="1")) Or (([Eléments testés].Référence="3014210x1") And ([Eléments testés].[N° monte]="1")));

[sylv20]

c'est bon j'ai trouvé

Code :

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

        strList = strList & "or(([Eléments testés].Référence= '" & val_reference & "') and ([Eléments testés].[N° monte]='" & val_monte & "'))"

[funkidog33]

les variables val_reference et val_monte quand tu les affiche avec une MsgBox elles contiennent les bonnes valeurs ?

Aussi, regarde au niveau de la concaténation de chaines, et l'insertion de variables dans une chaine, du coté de "' & lavariable & '"

[funkidog33]

plus rapide que moi, et autant pour moi '" & variable & "' bien vu