Discussion :

[Axelmore]

Bonjour a tous

je reviens vers vous car je bloque a nouveau sur un code vba.

J'ai ce sous-formulaire :


j'ai déjà les boutons a droite de toute les couleurs pour filtrer en fonction du statut de l’événement, la aucun problème, j'utilise ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Commande120_Click()
Me!Integr_event.Form.Filter = "[Statut]='En Commande'"
Me!Integr_event.Form.FilterOn = True
End Sub

par contre je n'arrive pas à filtrer en fonction d'une date.

Ce que j'aimerais c'est filtrer la colonne < Échéance > en fonction de la date d'aujourd'hui.
Ce qui veux dire que quant je click sur le bouton ( gris Échéance ) le sous-formulaire m'affiche uniquement les enregistrement avec l'échéance d'aujourd'hui.

Référence :
Bouton : Commande122_Click()
Sous-Formulaire : Integr_event
Champ a filtrer : Echeance

Merci d'avance pour vos réponses

[hyperion13]

Salut
A tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Commande122_Click()
Me!Integr_event.Form.Filter = "Echeance = #" & Format(Now(), "mm/dd/yyyy") & "#"
Me!Integr_event.Form.FilterOn = True
End Sub

[Axelmore]

Super merci beaucoup, ca fonctionne parfaitement