Discussion :

[djpit]

salut,

j'ai fais un formulaire mutli-critère qui fonctionne sur une table. J'ai ajouté d'autres contrôles à partir d'autres tables et modifier la lstresult (requête de résultat) en conséquence.
Lors de l'ouverture de formulaire,la requête s'affiche bien mais quand je commence à choisir des critères, plus rien ne s'affiche dans la list box...

Ci dessous le code de refrechquery qui met à jour la list box

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
Private Sub RefreshQuery()
 
Dim SQL As String
 
SQL = "SELECT [Canal 2].NomCanal, [Canal 2].Moyenne, Classe.NumClasse, Classe.Nom, Date.Jour, Date.Mois, Date.Année, [Canal 2].[Type de données]" & _
"FROM ([Date] INNER JOIN (Classe INNER JOIN [Canal 2] ON Classe.NumClasse=[Canal 2].RefClasse) ON Date.NumDate=[Canal 2].RefDate) INNER JOIN (Conditions INNER JOIN DétailDate ON Conditions.NumConditions=DétailDate.RefConditions) ON Date.NumDate=DétailDate.RefDate" & _
"WHERE ((([Canal 2].NumCanal)<>0)) "
 
If Not Me.ChkCanal Then
 
    SQL = SQL & "And [Canal 2].NomCanal = '" & Me.cmbRechCan & "' "
 
End If
 
If Not Me.ChkType Then
 
      SQL = SQL & "And [Canal 2].[Type de données] = '" & Me.cmbRechType & "' "
 
End If
 
If Not Me.ChkClasse Then
 
     SQL = SQL & "And [Classe].[NumClasse] = '" & Me.cmbRechCla & "' "
 
End If
 
If Not Me.chkMois Then
 
     SQL = SQL & "And [Date].[Mois] = '" & Me.cmbRechMois & "' "
 
End If
 
If Not Me.chkJour Then
 
     SQL = SQL & "And [Date].[Jour] = '" & Me.cmbRechJour & "' "
 
End If
 
If Not Me.chkAnnee Then
 
     SQL = SQL & "And [Date].[Annee] = '*" & Me.txtRechAnnee & "*' "
 
End If
 
SQL = SQL & ";"
 
Me.lstResults.RowSource = SQL
Me.lstResults.Requery
 
End Sub

Merci

Pierre

[cafeine]

Hello,

il faut passer au débogage du SQL

debug.print SQL

ou pour aller plus loin regarder mon tuto :

http://cafeine.developpez.com/access...el/debugprint/

[ariesnojf]

Manque pas un (des) espace avant "FROM" et "WHERE" ???

Code :

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

1
2
3
4
5
6
7
8
9
10
SQL = "SELECT [Canal 2].NomCanal, [Canal 2].Moyenne, Classe.NumClasse,
Classe.Nom, Date.Jour, Date.Mois, Date.Année, 
[Canal 2].[Type de données]" & _
" FROM ([Date] INNER JOIN (Classe INNER JOIN [Canal 2] ON 
Classe.NumClasse=[Canal 2].RefClasse) ON 
Date.NumDate=[Canal 2].RefDate) INNER JOIN (Conditions INNER JOIN 
DétailDate ON Conditions.NumConditions=DétailDate.RefConditions) ON 
Date.NumDate=DétailDate.RefDate" & _
" WHERE ((([Canal 2].NumCanal)<>0)) "

au lieu de

Code :

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

1
2
3
4
5
6
7
8
9
SQL = "SELECT [Canal 2].NomCanal, [Canal 2].Moyenne, Classe.NumClasse, 
Classe.Nom, Date.Jour, Date.Mois, Date.Année, [Canal 2].[Type de données]" & _
"FROM ([Date] INNER JOIN (Classe INNER JOIN [Canal 2] ON 
Classe.NumClasse=[Canal 2].RefClasse) 
ON Date.NumDate=[Canal 2].RefDate) INNER JOIN (Conditions INNER JOIN
 DétailDate ON Conditions.NumConditions=DétailDate.RefConditions) ON 
Date.NumDate=DétailDate.RefDate" & _
"WHERE ((([Canal 2].NumCanal)<>0)) "

Sinon ==> debogage

[cafeine]

Si, très juste, c'est le genre de chose qui se voit bien au débogage ...

[djpit]

Hey, j'avais commencé à voir le WHERE par le débogage et là je reviens faire un tour ici et on me confirme le truc....
génial

merci