Discussion :

[marie10]

Bonjour!
Je cherche partout la forme de l'instruction permettant de lancer le filtre d'un sous formulaire depuis le formulaire principal..

j'ai essayé les 2 formes suivantes, qui ne marchent pas:

Code :

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

1
2
3
Forms![Modif_absences]![Modif_Absences sous-formulaire].Filter = "[Code_perso]=" & Me.Code_perso
Forms("Modif_Absences sous-formulaire").FilterOn = True
Forms("Modif_Absences sous-formulaire").Filter = "[date_debut]>=" & Me.Date_debut

Est il également possible de lancer un filtre / requete depuis VBA, avec une requete enregistrée?

Merci!!

[boubignole]

Salut

Si c'est pour restreindre l'affichage d'un sous form en fonction de champs dans le form principal, opurquoi ne pas jouer sur les propriétés champs pères et champs fils ?

Sinon en vba on peut déclarer une requete sql et l'affecter a la propiété recordsource du form

[marie10]

Bin je ne sais pas trop faire avec les champs pere et fils.
Mais il doit y avoir un moyen soit d'executer la requete filtre, soit de determiner le filtre avec VBA, puisquon peut le faire sur une formulaire!!
C'est tres bizar

[Alexandre Sahli]

bonjour la bonne syntaxe est la suivante

Code :

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

1
2
3
 
Forms![Modif_absences]![Modif_Absences sous-formulaire].form.Filter = "[Code_perso]=" & Me.Code_perso 
Forms![Modif_absences]![Modif_Absences sous-formulaire].form.Filteron = true

mais c'est vrai que c'est plus facile d'utliser les relations pères fils

[marie10]

Ok c'est cool ca marche! merci!

Par contre, il ne me prend pas le >= avec les dates... est ce bien normal??
voila le code qui renvoit l'erreur. pourtant toutes les zones sont definies en format Date..

Code :

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

Forms![Modif_absences]![Modif_Absences sous-formulaire].Form.Filter = "[date_debut]>=" & Me.Date_debut

Et juste pour info, comment je peux faire avec les relations pere fils??

[Alexandre Sahli]

Attention avec les dates il faut les mettre avec #

donc

Code :

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

1
2
 
Forms![Modif_absences]![Modif_Absences sous-formulaire].Form.Filter = "[date_debut]>=#" & Format(Me![Date_debut], "mm\/dd\/yyyy")&"#"

peut être qu'il faudra mettre un format

Code :

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

1
2
 
Forms![Modif_absences]![Modif_Absences sous-formulaire].Form.Filter = "[date_debut]>=#" & Format(Me![Date_debut], "mm\/dd\/yyyy") &"#"

pour désigner des contrôles utilise plutôt Me![Date_debut] que Me.[Date_debut]

[marie10]

D'ac super merci beaucoup!!

Et je viens de m'apercevoir qu'il ne me prennait qu'un seul critère a la fois...
Comment faire pour lui indiquer plusieurs critère de filtre??
Du style:
Code:
Forms![Modif_absences]![Modif_Absences sous-formulaire].Form.Filter = "[Code_perso]=" & Me!Code_perso
Forms![Modif_absences]![Modif_Absences sous-formulaire].Form.FilterOn = True
Forms![Modif_absences]![Modif_Absences sous-formulaire].Form.Filter = "[date_debut]>=#" & Format(Me![Date_debut], "mm\/dd\/yyyy") & "#"
Forms![Modif_absences]![Modif_Absences sous-formulaire].Form.FilterOn = True
Forms![Modif_absences]![Modif_Absences sous-formulaire].Form.Filter = "[date_fin]<=#" & Format(Me![Date_Fin], "mm\/dd\/yyyy") & "#"
Forms![Modif_absences]![Modif_Absences sous-formulaire].Form.FilterOn = True

si je fais comme ca, il ne prend en compte finalement que le dernier critère......

[boubignole]

essaye

Code :

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

1
2
 
Forms![Modif_absences]![Modif_Absences sous-formulaire].Form.Filter = "[date_debut]>=#" & Format(Me![Date_debut], "mm\/dd\/yyyy") & "# and [date_fin]<=#" & Format(Me![Date_Fin], "mm\/dd\/yyyy") & "#"

[marie10]

Oui ca marche trop bien!!!
Merci bcq!!!!!!!!!!!!!