Discussion :

[lito74]

bonjour
j'ai un formulaire avec un sous-formulaire associé. je souhaiterai que lorsque je change un champ du formulaire principal, un filtre s'execute dans le sous formulaire...

j'ai écrit le code suivant :
Filtredate = Me![1erjourMois]

Forms![Pilotage Situations Chantier].Form![Métré Chantier sous-formulaire].Form.Filter = "Période Métré" = Filtredate

Forms![Pilotage Situations Chantier].Form![Métré Chantier sous-formulaire].Form.FilterOn = True

Forms![Pilotage Situations Chantier].Form![Métré Chantier sous-formulaire].Requery

Malheuresement, j'ai une erreur : "Incompatibilité de type"
Quelqu'un peut-il m'aider ? Merci

[mrleuleu]

Bonjour,

Je ne sais pas s'il s'agit d'une erreur de retranscription, mais ton expression affectée au filtre est bizarre:

il faudrait plutôt mettre :
"Période Métré = #" & cstr(cdate(Filtredate)) & "#"

Si Période Métré est le nom de ton champ, de type Date.
Je crois que les # st nécessaires pour les dates.
Met si besoin est, [Période Métré], les espaces sont à éviter dans les noms de champ.

Il faut aussi se méfier car les dates sont parfois formattées à l'américaine. Le critère de date peut alors devenir farfelu.

Cordialement

[=JBO=]

Bonjour,

Petite contribution pour synthétiser la réponse de mrleuleu.

Code :

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

1
2
3
4
5
6
7
Filtredate = Me![1erjourMois]
 
With Me.[Métré Chantier sous-formulaire].Form
    .Filter = "[Période Métré]=#" & Format(FiltreDate, "mm/dd/yy") & "#"
    .FilterOn = True
    .Requery
End With

=JBO=

[lito74]

Merci JBO, ton code fonctionne super bien