DoCmd.Applyfilter dans un groupe d'option

[LaurentD]

* Bonjour, *

Voilà, je suis loin d'être un spécialiste en VBA et j'essaie de me débrouiller avec mes minces connaissances qui ici ne suffisent plus.

Dans un formulaire j'ai un groupe d'options avec pour l'instant 4 choix pour filtrer mon formulaire. Tous / Actif / Inactif / Amis.

Pour les 3 1er le filtre fonctionne parfaitement mais quand je demande de filtrer le champ CATEGORIE avec Amis j'ai une erreur 2501. Voici mon code

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub FiltreMembres_Click()
If FiltreMembres.Value = 1 Then
    DoCmd.ShowAllRecords
    StrSql = "SELECT RQT_Membre.Num_Membre, RQT_Membre.[NomPrenom] " & _
         "FROM RQT_Membre " & _
         "ORDER BY RQT_Membre.[NomPrenom];"
ElseIf FiltreMembres.Value = 2 Then
    DoCmd.ApplyFilter , "[Actif]=" & "True"
    StrSql = "SELECT RQT_Membre.Num_Membre, RQT_Membre.[NomPrenom] " & _
         "FROM RQT_Membre WHERE (((RQT_Membre.[Actif])=True))" & _
         "ORDER BY RQT_Membre.[NomPrenom];"
ElseIf FiltreMembres.Value = 3 Then
    DoCmd.ApplyFilter , "[Actif]=" & "False"
    StrSql = "SELECT RQT_Membre.Num_Membre, RQT_Membre.[NomPrenom] " & _
         "FROM RQT_Membre WHERE (((RQT_Membre.[Actif])=False))" & _
         "ORDER BY RQT_Membre.[NomPrenom];"
Else
    DoCmd.ApplyFilter , "[Categorie]='Amis'"
    StrSql = "SELECT RQT_Membre.Num_Membre, RQT_Membre.[NomPrenom] " & _
         "FROM RQT_Membre WHERE (((RQT_Membre.[Categorie])='Amis')" & _
         "ORDER BY RQT_Membre.[NomPrenom];"
End If
Me.Liste46.RowSource = StrSql
End Sub

A l'ouverture du formulaire j'exécute ce code :

Code :

1
2
3
4
5
6
7
Private Sub Form_Open(Cancel As Integer)
Dim StrSql As String
StrSql = "SELECT RQT_Membre.Num_Membre, RQT_Membre.[NomPrenom] " & _
         "FROM RQT_Membre " & _
         "ORDER BY RQT_Membre.[NomPrenom];"
Me.Liste46.RowSource = StrSql
End Sub

Merci de votre aide

[reedy]

Bonjour,

Je crois qu'il ya une parenthèse en excès dans la clause where:

Code :

(((RQT_Membre.[Categorie])='Amis')"

Cordialement

[robyseb]

Oui il y en a une de trop et Ami devrait av oir des double quote exemple

Code :

((RQT_Membre.[Categorie])="Amis")"

[LaurentD]

Merci pour vos réponses, j'y perds mon latin...

Maintenant je me retrouve avec une erreur d'exécution 424 Objet requis !

Voici le code :

Code :

1
2
3
4
5
Else
    DoCmd.ApplyFilter , ((RQT_Membre.[Categorie]) = "Amis")
    StrSql = "SELECT RQT_Membre.Num_Membre, RQT_Membre.[NomPrenom] " & _
         "FROM RQT_Membre WHERE (((RQT_Membre.[Categorie])='Amis')" & _
         "ORDER BY RQT_Membre.[NomPrenom];"

Je ne sais pas mettre le guillemet après la parenthèse comme vous me l'indiqué. Si je tape mon code comme ceci :

Code :

DoCmd.ApplyFilter , ((RQT_Membre.[Categorie]) = "Amis") "

J'ai une erreur de syntaxe....

Encore merci pour votre aide précieuse.