Discussion :

[vete25]

Bonjour,

J'ai créé un formulaire de recherche multi critères (sur le modèle de celui de Caféine) dans lequel j'ai inséré 3 combobox et 5 boutons radio pour faire des filtres.
Les combobox donnent le résultat voulu donc je n'en parlerai pas.
Mon soucis concerne les boutons radio:
L'ensemble des résultats des 5 boutons radio correspond à l'ensemble de la liste de la requête qui sert à mon formulaire.
Chaque bouton pris individuellement fonctionne bien, mais moi ce que j'aurai voulu c'est pouvoir en sélectionner autant que je veux voire même tous (pour avoir la liste complète) et que la liste cumule les résultats au fur et à mesure que je sélectionne ?!?

Actuellement je peux en sélectionner plusieurs mais la liste se rafraichit sur le dernier bouton coché, ou alors elle n'affiche rien du tout.

Est ce que quelqu'un sait comment je dois procéder, ou ce que je dois rajouter dans mon code pour que les click sur les boutons radio se cumulent?

Le code que j'ai entré est celui-ci:

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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
 
Private Sub optActifs_AfterUpdate()
RefreshQuery
End Sub
 
Private Sub optActifs_Click()
If Not Me.optActifs Then
Me.optActifs.Value = False
Else
Me.optActifs.Value = True
End If
End Sub
 
 
Private Sub optDetaches_AfterUpdate()
RefreshQuery
End Sub
 
Private Sub optDetaches_Click()
If Not Me.optDetaches Then
Me.optDetaches.Value = False
Else
Me.optDetaches.Value = True
End If
End Sub
 
Private Sub optRetraites_AfterUpdate()
RefreshQuery
End Sub
 
Private Sub optRetraites_Click()
If Not Me.optRetraites Then
Me.optRetraites.Value = False
Else
Me.optRetraites.Value = True
End If
End Sub
 
Private Sub optSorties_AfterUpdate()
RefreshQuery
End Sub
 
Private Sub optSorties_Click()
If Not Me.optSorties Then
Me.optSorties.Value = False
Else
Me.optSorties.Value = True
End If
End Sub
 
Private Sub optSympathisants_AfterUpdate()
RefreshQuery
End Sub
 
Private Sub optSympathisants_Click()
If Not Me.optSympathisants Then
Me.optSympathisants.Value = False
Else
Me.optSympathisants.Value = True
End If
End Sub
 
Private Sub RefreshQuery()
 Dim sql As String
 Dim SQLWhere As String
 
 'SQL = "SELECT IDPersonne, Civilite, Nom, Prenom... Service FROM RQTListeUnionAdhSymp WHERE RQTListeUnionAdhSymp.IDPersonne <> 0 "
  sql = "SELECT  IDPersonne, Civilite, Nom, Prenom, Sympathisant, Actif, Retraite, Sortie, Poste, Service, Filiere, Detache FROM RQTListeUnionAdhSymp WHERE RQTListeUnionAdhSymp.IDPersonne <> 0 "
 
 If Me.chkDivisions Then
    sql = sql & "And RQTListeUnionAdhSymp!Poste like '" & Me.cmbDivisions & "' "
 End If
 If Me.chkServices Then
    sql = sql & "And RQTListeUnionAdhSymp!Service like '" & Me.cmbServices & "' "
 End If
 If Me.chkFiliere Then
    sql = sql & "And RQTListeUnionAdhSymp!Filiere like '" & Me.cmbFiliere & "' "
 End If
 If Me.optActifs Then
    sql = sql & "And RQTListeUnionAdhSymp!Actif "
 End If
 If Me.optRetraites Then
    sql = sql & "And RQTListeUnionAdhSymp!Retraite "
 End If
 If Me.optSorties Then
    sql = sql & "And RQTListeUnionAdhSymp!Sortie "
 End If
 If Me.optDetaches Then
    sql = sql & "And RQTListeUnionAdhSymp!Detache "
 End If
 If Me.optSympathisants Then
    sql = sql & "And RQTListeUnionAdhSymp!Sympathisant "
 End If

[vete25]

Peut être cela n'est pas possible avec des boutons radio.
Je vais essayer avec autre chose, les cases à cocher par exemple , juste pour voir si ça ne viendrai pas de ça.