Discussion :

[lazidus]

Bonjour,
J'ai réalisé un formulaire de recherche multicritères grâce au très fameux tutoriel
:http://cafeine.developpez.com/access...echerchemulti/.

Cependant j'ai un problème, en effet, J'ai un champs qui peut contenir plusieurs valeurs séparés par des points virgules et je souhaites réaliser une "recherche" dans ce champs. Lors de mes essais, il me renvoi cette erreur :

"Erreur d'exécution '3831'
Le champ a plusieurs valeurs
"T_Fabricant!SousCatégorieN°1" ne peut pas être utilisé dans une clause WHERE ou HAVING."

Voici mon code :

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
Private Sub RefreshQuery()
 Dim SQL As String
 Dim SQLWhere As String
 
 SQL = "SELECT N°Fabricant, NomFab, CatégorieN°1, CatégorieN°2, CatégorieN°3, CatégorieN°4, NomFab, Commentaire, Ville, CodePostal, SousCatégorieN°1, SousCatégorieN°2, SousCatégorieN°3, SousCatégorieN°4 FROM T_Fabricant Where T_Fabricant!N°Fabricant <> 0 "
 
 
If Me.case_NomFabricant Then
    SQL = SQL & "And T_Fabricant!NomFab = '" & Me.chk_NomFabricant & "' "
End If
 
If Me.case_Famille Then
    SQL = SQL & "And T_Fabricant!CatégorieN°1 = " & Me.chk_Famille & " "
    SQL = SQL & "Or T_Fabricant!CatégorieN°2 = " & Me.chk_Famille & " "
    SQL = SQL & "Or T_Fabricant!CatégorieN°3 = " & Me.chk_Famille & " "
    SQL = SQL & "Or T_Fabricant!CatégorieN°4 = " & Me.chk_Famille & " "
End If
 
If Me.case_Catégorie Then
    SQL = SQL & "And T_Fabricant!SousCatégorieN°1 = '" & Me.chk_Catégorie & "' "
End If
 
If Me.case_Ville Then
    SQL = SQL & "And T_Fabricant!Ville = '" & Me.chk_Ville & "' "
End If
 
If Me.case_Contact Then
    SQL = SQL & "And T_Fabricant!Contact = " & Me.chk_Contact & " "
End If
 
If Me.case_Commentaire Then
    SQL = SQL & "And T_Fabricant!Commentaire like '*" & Me.txt_Commentaire & "*' "
End If
 
If Me.case_CodePostal Then
    SQL = SQL & "And T_Fabricant!CodePostal like = " & Me.txt_CodePostal & " "
End If
 
    SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
    SQL = SQL & ";"
 
Debug.Print SQL
 
 Me.lblStats.Caption = DCount("*", "T_Fabricant", SQLWhere) & " / " & DCount("*", "T_Fabricant")
 Me.Lstresultat.RowSource = SQL
 Me.Lstresultat.Requery
 
End Sub

L'erreur se situe ici :

Code :

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

1
2
3
If Me.case_Catégorie Then
    SQL = SQL & "And T_Fabricant!SousCatégorieN°1 = '" & Me.chk_Catégorie & "' "
End If

Tous les autres champs fonctionnent, mais celui-ci vu qu'il peut contenir plusieurs valeurs, la recherche ne peut s'effectuer...Comment puis-je faire ?

Merci d'avance pour vos réponses.

ps : je bosse sur Access 2007

[Invité]

Bonjour

Vu que tes champs comportent des caractères spéciaux (°), entoure tes champs de [].

Philippe

[lazidus]

Bonjour

Vu que tes champs comportent des caractères spéciaux (°), entoure tes champs de [].

Philippe

Code :

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

SQL = SQL & "And T_Fabricant![CatégorieN°1] = " & Me.chk_Famille & " "

Comme cela ?... Merci pour l'info mais ça m'aide pas pour le soucis citer ci-dessus...

[lazidus]

Si ça peut aider des gens, j'ai trouvé la solution

Code sql :

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
Private Sub RefreshQuery()
 Dim SQL As String
 Dim SQLWhere As String
 
SQL = "SELECT Min(N°Fabricant), NomFab, Min(CatégorieN°1), Min(CatégorieN°2), Min(CatégorieN°3), Min(CatégorieN°4), Min(Commentaire) AS Commentaire, Min(Ville) AS Ville, Min(CodePostal) AS CodePostal, Min(SousCatégorieN°1.Value), Min(SousCatégorieN°2.Value), Min(SousCatégorieN°3.Value), Min(SousCatégorieN°4.Value) FROM T_Fabricant Where T_Fabricant!N°Fabricant <> 0"
 
If Me.case_NomFabricant Then
    SQL = SQL & "And T_Fabricant!NomFab = '" & Me.chk_NomFabricant & "'"
End If
 
If Me.case_Famille Then
    SQL = SQL & "And (T_Fabricant![CatégorieN°1] = " & Me.chk_Famille & " Or T_Fabricant![CatégorieN°2] = " & Me.chk_Famille & " Or T_Fabricant![CatégorieN°3] = " & Me.chk_Famille & " Or T_Fabricant![CatégorieN°4] = " & Me.chk_Famille & ") "
End If
 
If Me.case_Ville Then
    SQL = SQL & "And T_Fabricant!Ville = '" & Me.chk_Ville & "' "
End If
 
If Me.case_Contact Then
    SQL = SQL & "And T_Fabricant!Contact = " & Me.chk_Contact & " "
End If
 
If Me.case_Commentaire Then
    SQL = SQL & "And T_Fabricant!Commentaire like '*" & Me.txt_Commentaire & "*' "
End If
 
If Me.case_CodePostal Then
    SQL = SQL & "And T_Fabricant!CodePostal = " & Me.chk_CodePostal & " "
End If
 
If Me.case_Catégorie Then
    SQL = SQL & "And T_Fabricant!SousCatégorieN°1.Value = " & Me.chk_Catégorie & " "
End If
 
    SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
 
    SQL = SQL & " GROUP BY NomFab;"
 
Debug.Print SQL
 
 Me.lblStats.Caption = DCount("*", "T_Fabricant", SQLWhere) & " / " & DCount("*", "T_Fabricant")
 Me.Lstresultat.RowSource = SQL
 Me.Lstresultat.Requery
 
End Sub