Ouvrir un état selon donnée pointée dans une zone de liste

Dans un formulaire, j'ai créé une zone de liste reprenant quelques dates (issues d'une requête regroupement).
Je souhaiterais ouvrir un état paramétré, en cliquant sur un bouton, dont le paramètre est une ou plusieurs dates figurant dans la liste.
Comment adapter mon code ?

Private Sub Commande15_Click()
DoCmd.OpenReport "E_MonEtatavecFraisGroupeParDateReçus_Frais", acViewPreview, , " = DateReçus_Frais" & Liste.Value
End Sub

Merci pour toute aide

Bonsoir,

Code:

---

DoCmd.OpenReport "E_MonEtatavecFraisGroupeParDateReçus_Frais", acViewPreview, , " = DateReçus_Frais" & Liste.Value

---

c'était presque bon :

Code:

---

1 2 3

Private Sub Commande15_Click() DoCmd.OpenReport "E_MonEtatavecFraisGroupeParDateReçus_Frais", acViewPreview, , "DateReçus_Frais = #" & Me.Liste.Value & "#" End Sub

---

j'ai supposé que la date dans l'état est DateRecus_Frais et que la zone de liste s'appelle Liste, sans oublier les # pour retransformer en date (car la date est transformée en texte dans la zone de liste) sinon çà ne fonctionne pas.

Bonjour.

Comme tu mentionnes plusieurs date possibles, il va falloir faire un peu de code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

dim critere as string   Dim i As Integer   For i = 0 To me.TalListe.ListCount - 1 if critere<>"" then critere=critere & ", " end if   If me.TaListe.Selected(i) Then critere=critere & "#" & me.TaListe.List(i) & "#" End If Next i   critere = "[DateReçus_Frais] in(" & critere & ")"   DoCmd.OpenReport "E_MonEtatavecFraisGroupeParDateReçus_Frais", acViewPreview, , Critere

---

Je ne l'ai pas testé mais cela devrait marcher.

Attention à propos des dates, parfois Access confond le jour et le mois. 01/02/2016 peut être interprété comme le 1 février 2016 ou le 2 janvier 2016.
Personnellement, quand je passe une date en critère à Access je m'assure qu'elle soit au format aaaa/mm/jj afin d'éviter les ambiguïtés.

A+
A+

Bonsoir marot_r,
tu as mille fois raison, comme le format de référence de la date dans l'environnement VBA est toujours le format US, j'aurai du proposer la solution avec la conversion dans ce format. A l'époque ou je développais en Access (c'était il y a longtemps !) je le faisais systématiquement. Et comme évidemment j'ai testé avec une date 01/01/ c'est passé, sinon j'aurai vu que çà ne fonctionnait pas

Code:

---

DoCmd.OpenReport "E_MonEtatavecFraisGroupeParDateReçus_Frais", acViewPreview, , "DateReçus_Frais = #" & Cdate(Format(Me.Liste.Value, "mm/dd/yyyy")) & "#"

---

Cela étant, cette solution est valable pour une zone de liste déroulante et pas pour une zone de liste comme tu le suggères.

Super, super,
grand merci tee-grandbois et marot_r pour votre aide. C'est excellent, ça marche (avec adaptation des dates).