Discussion :

[Kenia]

Bonjour
Comment faire pour filtrer un état ou formulaire compris entre 2 dates?
J’ai un formulaire frm55Total qui contient tous les enregistrements d’une table représentant les opérations bancaires, avec en pied de page les 2 objets txtDateDébut et txtDateFin. Il me faudrait un bouton de commande pour ouvrir un état, rpt55 p. ex., et filtrer cet état sur la différence entre les 2 dates du formulaire.
Exemple: txtDateDébut= 01/08/2006 et txtDateFin=31/08/2006 pour montrer toutes les opérations bancaires du mois d’août 2006.
J’espère que quelqu’un me pourrait donner une idée. Merci d’avance

[LedZeppII]

Bonjour,

tu pourrai essayer avec le paramètre ConditionWhere des commandes OpenForm ou OpenReport

Code :

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

1
2
3
4
5
6
7
8
 
Dim strCondWhere As String
 
strCondWhere = "DateOperation BETWEEN " & _
    "#" & Format(Me.txtDateDébut, "mm\/dd\/yyyy") & "# AND " & _
    "#" & Format(Me.txtDateFin, "mm\/dd\/yyyy") & "#"
 
DoCmd.OpenReport "rpt55", acViewPreview, , strCondWhere

A+

[Kenia]

Merci LedzeppII pour ta réponse.
J’ai inscrit ton code dans le bouton de commande pour ouvrir l’état, mais à l’ouverture il ne reconnaît pas le filtre. Une fenêtre de dialogue me demande d’inscrire les paramètres ‘dateoperation’.
Le format date doit-il obligatoirement être mmddyyyy, ou bien le format ddmmyyyy est-il possible également ?

[Invité]

Merci LedzeppII pour ta réponse.
J’ai inscrit ton code dans le bouton de commande pour ouvrir l’état, mais à l’ouverture il ne reconnaît pas le filtre. Une fenêtre de dialogue me demande d’inscrire les paramètres ‘dateoperation’.

Etrange le code, LedZeppII, je ne connaissais pas "BETWEEN" !?

Le format date doit-il obligatoirement être mmddyyyy, ou bien le format ddmmyyyy est-il possible également ?

Oui le format date doit obligatoirement être au format américain "mm/dd/yyy"

Sinon essayes ça :

Code :

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

1
2
3
4
 
Dim strCondWhere As String
strCondWhere = "[ChampDate]> #" & Format(Me.txtDateDébut, "mm/dd/yyyy") & "# AND [ChampDate]< #" & Format(Me.txtDateFin, "mm/dd/yyyy") & "#"
DoCmd.OpenReport "rpt55", acViewPreview, , strCondWhere

"ChampDate" est bien sur à remplacer par le nom du champ contenant la date !

A+

[Kenia]

Merci BrunoM
Ca fonctionne.
Ce site est superb! J'en profite pour dire un grand merci à tous ceux qui offrent leur aide sur ce site.

[LedZeppII]

BETWEEN ... AND ... en français c'est Entre ... Et ... .(C'est qq part dans l'aide Référence SQL Microsoft Jet)

tbl1.Chp1 BETWEEN 1 AND 10 équivaut à tbl1.Chp1>=1 AND tbl1.Chp1<=10

A+