Reset de checkbox dans formulaire (triple état)

Résolu/Fermé
zed1936 Messages postés 12 Date d'inscription lundi 22 août 2016 Statut Membre Dernière intervention 4 avril 2017 - 3 mars 2017 à 13:00
zed1936 Messages postés 12 Date d'inscription lundi 22 août 2016 Statut Membre Dernière intervention 4 avril 2017 - 11 mars 2017 à 19:20
Bonjour,
Dans un formulaire de recherche, j'ai un bouton qui fait un reset sur ma recherche actuelle:

Private Sub BtTout_Click()
Dim ctl As Control
For Each ctl In Me.Controls
If Left(ctl.Name, 6) = "filtre" Then
Me(ctl.Name) = Null
End If
Next ctl
Me.Requery
End Sub


Je crois me souvenir qu'il a été créé par HDU (encore merci!); il fonctionne très bien avec certains champs texte mais pas du tout avec des checkboxes qui, lorsque je clique sur mon bouton reset, devraient se "griser" et donc mettre les cases à cocher en oui, non et oui-non...

Merci!
A voir également:

2 réponses

yg_be Messages postés 22717 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 22 avril 2024 1 476
3 mars 2017 à 13:21
bonjour, quels sont les noms de tes checkboxes?
0
zed1936 Messages postés 12 Date d'inscription lundi 22 août 2016 Statut Membre Dernière intervention 4 avril 2017 2
10 mars 2017 à 17:19
Bonjour et désolé de répondre si tard!
Il y en aura beaucoup mais pour ma phase de test, je me suis cantonné à

checkmembre
checkmembreindirect
checkpartenaire

j'ai hâte de voir ta réponse puisque je rame sur cette question depuis des lunes et les contributions sur Internet sont quelque peu sibyllines...
merci!
0
yg_be Messages postés 22717 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 22 avril 2024 1 476
10 mars 2017 à 23:32
et si tu changes
If Left(ctl.Name, 6) = "filtre" Then

en
If Left(ctl.Name, 6) = "filtre" or Left(ctl.Name, 5) = "check" Then
0
zed1936 Messages postés 12 Date d'inscription lundi 22 août 2016 Statut Membre Dernière intervention 4 avril 2017 2 > yg_be Messages postés 22717 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 22 avril 2024
11 mars 2017 à 19:20
c'est vraiment excellent, ça fonctionne nickel!! j'ai bien compris la nuance, je te citerai dans les crédits de ma db :)
0