Discussion :

[tuxdiver]

Bonjour,

Je travaille "toujours" sur un planning de formation.
Cela se présente sous la forme d'un formulaire "f_formation" avec en partie haute les outils pour modifier, créer, supprimer des formations qui sont mises à jour dans le sous formulaire "sf_formation" situé en dessous qui lui reflète la table.

Le sous formulaire est lié "père/fils" par l'équipe

j'ai créé une liste déroulante qui permet de filtrer le sous formulaire au mois

Code :

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

1
2
3
4
5
6
Private Sub Filtre_Mois_Change()
Dim strwhere As String
strwhere = "MoisForm = '" & FiltreMois & "'"
    Me.Filter = strwhere
    Me.FilterOn = True
End Sub

quand la liste est située dans le sous formulaire tout fonctionne

maintenant je souhaiterais mettre la liste déroulante dans le formulaire afin de mettre le sous formulaire en mode feuille de donnée
et là je ne sais plus
je mets le focus sur le sous formulaire mais ça ne suffit pas, il ne reconnait plus "MoisForm"

Code :

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

1
2
3
4
5
6
7
Private Sub FiltreMois1_Change()
Me.sf_formation.SetFocus
Dim strwhere As String
strwhere = "Formulaire![st_formation]![MoisForm] = '" & FiltreMois1 & "'"
    Me.Filter = strwhere
    Me.FilterOn = True
End Sub

merci pour vos lumières !

[madefemere]

Bonsoir,

Tu veux appliquer ton filtre dans le sous-formulaire, donc, il faut faire référence la propriété Filter du sous-formulaire à partir du formulaire. Ton code ressemblerait à :

Code :

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

1
2
3
4
5
6
Private Sub FiltreMois1_Change()
Dim strwhere As String
strwhere = "[MoisForm] = '" & FiltreMois1 & "'"
    Me.[st_formation].Form.Filter = strwhere
    Me.[st_formation].Form.FilterOn = True
End Sub

Cordialement,

[tuxdiver]

tout simplement !!

Merci madefemere