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 tri sur date

tri sur date

4 réponses
Avatar
zardoz
Salut a tous
je voudrai savoir comment en VBA je pourrai trier une date sur son année
pair ou impair cela en deux boutons.
Merci d'avance

zardoz
Signaler un problème avec ce contenu

4 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
bonjour

applique un filtre sur la valeur du résultat de year(tadate) mod 2

années impaires : résultat = 1
années paires : resultat = 0


--
A+
Arnaud
----------------------------------------
-------> http://www.mpfa.info <-------
----------------------------------------


"zardoz" a écrit dans le message de news:
Salut a tous
je voudrai savoir comment en VBA je pourrai trier une date sur son année pair ou impair cela en deux boutons.
Merci d'avance

zardoz



Avatar
zardoz
Merci de ta réponse
j'ai bien affiché dans mon formulaire la date au format année avec
year(date).
Mais je suis pas au top en vba pour les boutons sur procd event sur clic je
mets quoi.?
<Anor> a écrit dans le message de news:
%
bonjour

applique un filtre sur la valeur du résultat de year(tadate) mod 2

années impaires : résultat = 1
années paires : resultat = 0


--
A+
Arnaud
----------------------------------------
-------> http://www.mpfa.info <-------
----------------------------------------


"zardoz" a écrit dans le message de news:

Salut a tous
je voudrai savoir comment en VBA je pourrai trier une date sur son année
pair ou impair cela en deux boutons.
Merci d'avance

zardoz







Avatar
re

dans l'événement clic de chacun des 3 boutons :

Private Sub bouton_impaires_clic()
Me.Filter = "year([champdate]) mod 2=1)"
Me.FilterOn = True
End Sub

Private Sub bouton_paires_clic()
Me.Filter = "year([champdate]) mod 2=0)"
Me.FilterOn = True
End Sub

Private Sub bouton_toutes_clic()
Me.Filter = ""
Me.FilterOn = False
End Sub

si ça ne marche pas, rajouter un champ expr1:year(champdate) mod 2 dans la requete source
et utiliser l'expression du filtre sous la forme
Me.Filter = "[expr1]=0)"

--
A+
Arnaud
----------------------------------------
-------> http://www.mpfa.info <-------
----------------------------------------

"zardoz" a écrit dans le message de news:
Merci de ta réponse
j'ai bien affiché dans mon formulaire la date au format année avec year(date).
Mais je suis pas au top en vba pour les boutons sur procd event sur clic je mets quoi.?
<Anor> a écrit dans le message de news: %
bonjour

applique un filtre sur la valeur du résultat de year(tadate) mod 2

années impaires : résultat = 1
années paires : resultat = 0


--
A+
Arnaud




Avatar
zardoz
TOP MERCI BEAUCOUP
<Anor> a écrit dans le message de news:

re

dans l'événement clic de chacun des 3 boutons :

Private Sub bouton_impaires_clic()
Me.Filter = "year([champdate]) mod 2=1)"
Me.FilterOn = True
End Sub

Private Sub bouton_paires_clic()
Me.Filter = "year([champdate]) mod 2=0)"
Me.FilterOn = True
End Sub

Private Sub bouton_toutes_clic()
Me.Filter = ""
Me.FilterOn = False
End Sub

si ça ne marche pas, rajouter un champ expr1:year(champdate) mod 2 dans la
requete source
et utiliser l'expression du filtre sous la forme
Me.Filter = "[expr1]=0)"

--
A+
Arnaud
----------------------------------------
-------> http://www.mpfa.info <-------
----------------------------------------

"zardoz" a écrit dans le message de news:

Merci de ta réponse
j'ai bien affiché dans mon formulaire la date au format année avec
year(date).
Mais je suis pas au top en vba pour les boutons sur procd event sur clic
je mets quoi.?
<Anor> a écrit dans le message de news:
%
bonjour

applique un filtre sur la valeur du résultat de year(tadate) mod 2

années impaires : résultat = 1
années paires : resultat = 0


--
A+
Arnaud