Discussion :

[ComputingFroggy]

Dans un formulaire (MonForm), j'affiche une liste d'une table pour les éléments inférieur à une date donnée
Ex :

Code SQL :

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

SELECT id, Nom, dtCrea FROM P where DtCrea <= Date()

je veux remplacer Date() par une date saisie par l'utilisateur.
J'aurai aimé utiliser un champ défini dans l'en-tête du formulaire (laDtCrea - champ indépendant, pas associé à la source de données), en écrivant le requête :

Code SQL :

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

SELECT id, Nom, dtCrea FROM P where DtCrea <= [Forms]![formDate]![laDtCrea]

Bien sur, je peux créer un autre formulaire et/ou utiliser un sous-formulaire ... mais j'aurai préféré obtenir une solutions plus élégante, avec un seul formulaire !
Quelqu'un sait-il faire cela ?

[madefemere]

Bonjour,

Définir comme source du formulaire la table SANS filtre. donc les champs (id, Nom, dtCrea).
Ensuite sur l'évènement Après mise à jour du champ [laDtCrea] mettre le code :

Code :

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

1
2
3
4
5
6
If IsDate(laDtCrea) then
     Me.Filter = "[dtCrea]=#" & Format(Me.laDtCrea,"yyyy/mm/dd") & "#"
     Me.FilterOn = True
Else
     MsgBox "LaValeur saisie n'est pas une date !"
End If

Ne pas oublier de créer un bouton pour annuler ce filtre avec le code :

Code :

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

1
2
     Me.Filter = ""
     Me.FilterOn = False

Cordialement.

[ComputingFroggy]

Ca l'a fait ! !

C'était pas comme ça que je voyais les choses (ce qui est probablement pourquoi je ne trouvais pas de solution) mais ça fonctionne ! !

Encore merci.