Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access problème de filtre

problème de filtre

2 réponses
Avatar
Zardoz
Salut
petite question au j'aurai souhaité filtré un fomulaire en continu via un
bouton la filtration se ferai sur trois case a cocher.

le premier bouton devrai afficher les conditions : faux faux faux
le deuxième bouton :vrai faux faux
le troisième bouton :vrai vrai faux

merci d'avance pour le petit bout de code.

zardoz
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Eric
Bonjour/Bonsoir Zardoz,

Si j'ai bien compris, les cases à cocher sont des champs de la
table/requête sous-jacente au formulaire.

Sur le bouton1, tu mets :
Private Sub Commande1_Click()
Me.Filter = "cocher1 = 0 and cocher2 = 0 and cocher3 = 0"
Me.FilterOn = True
End Sub

Pour bouton2 :
Private Sub Commande2_Click()
Me.Filter = "cocher1 = -1 and cocher2 = 0 and cocher3 = 0"
Me.FilterOn = True
End Sub

Pour le bouton3 je te laisse le soin.

Il te faut un 4eme bouton pour enlever le filtre:
Private Sub Commande4_Click()
Me.FilterOn= False
End Sub

Salut
petite question au j'aurai souhaité filtré un fomulaire en continu via un
bouton la filtration se ferai sur trois case a cocher.

le premier bouton devrai afficher les conditions : faux faux faux
le deuxième bouton :vrai faux faux
le troisième bouton :vrai vrai faux

merci d'avance pour le petit bout de code.

zardoz




--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
Zardoz
Impeccable merci beaucoup

"Eric" a écrit dans le message de news:
%
Bonjour/Bonsoir Zardoz,

Si j'ai bien compris, les cases à cocher sont des champs de la
table/requête sous-jacente au formulaire.

Sur le bouton1, tu mets :
Private Sub Commande1_Click()
Me.Filter = "cocher1 = 0 and cocher2 = 0 and cocher3 = 0"
Me.FilterOn = True
End Sub

Pour bouton2 :
Private Sub Commande2_Click()
Me.Filter = "cocher1 = -1 and cocher2 = 0 and cocher3 = 0"
Me.FilterOn = True
End Sub

Pour le bouton3 je te laisse le soin.

Il te faut un 4eme bouton pour enlever le filtre:
Private Sub Commande4_Click()
Me.FilterOn= False
End Sub

Salut
petite question au j'aurai souhaité filtré un fomulaire en continu via un
bouton la filtration se ferai sur trois case a cocher.

le premier bouton devrai afficher les conditions : faux faux faux
le deuxième bouton :vrai faux faux
le troisième bouton :vrai vrai faux

merci d'avance pour le petit bout de code.

zardoz




--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr