Discussion :

[xycoco]

Bonsoir à tous,

j'ai un groupe d'option avec 4 cases à cocher. Sous ce groupe, un sous-formulaire qui me liste des plats (ID plat) et leur type (type) Je souhaites à l'aide des cases à cocher faire une sélection des enregistrements du sous-formulaire par type : Ex. si je coche la case dessert, le sous-formulaire (en mode feuille de donnée) me montre toute la liste des desserts.

Sur Clic de mon groupe d'option, j'ai inséré ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Cadre24_Click()
Select Case Cadre24
Case 1
Me![liste des plats].Form.Filter = "((type = 1))"
Case 2
Me![liste des plats].Form.Filter = "((type = 2))"
Case 3
Me![liste des plats].Form.Filter = "((type = 3))"
Case 4
Me![liste des plats].Form.Filter = "((type = 4))"
End Select
End Sub

Cela ne marche pas, le filtre ne s'applique pas.

J'ai fais une erreur, mais où????

Merci d'avance pour votre aide.

[niclalex]

essaye avec :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Cadre24_Click()
Select Case Cadre24
Case 1
Me![liste des plats].Form.Filter = "((type = 1))"
Case 2
Me![liste des plats].Form.Filter = "((type = 2))"
Case 3
Me![liste des plats].Form.Filter = "((type = 3))"
Case 4
Me![liste des plats].Form.Filter = "((type = 4))"
End Select
 Me![liste des plats]!Requery
End Sub

[xycoco]

cela ne marche pas, merci quand même.

En plus je crois que c'est :

Code :

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

Me![liste des plats].Requery

[Tofalu]

La propriété Filtrage autorisé de ton sous formulaire est t'elle bien définit à oui ? De plus, est ce que tes formulaires sont correctement liés avec les champs pères et les champs fils ?

[xycoco]

Flitrage autorisé sur OUI
le formulaire est basé sur ma Tblplat
mon sous-formulaire aussi
liaison par type OK

rien y fait, les enregistrements ne sont pas limités.

Normalement je ne devrais pas faire de liasons puisque les donnéées provienne de la même Tbl, non?

Merci de votre aide

[Faw]

Essaye avec ceci; chez moi ça marche mais ça dépend de ton contexte.

Code :

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

1
2
3
4
5
6
7
8
Private Sub Cadre24_AfterUpdate()
On Error....
 
DoCmd.ApplyFilter "", "[Type] Like '" & _
Me.Cadre24 & "*'"
 
 
End Sub

En espérant que ça t'aide. 8)

[Tofalu]

Quelle est la requête source de ton sous formulaire ?

[xycoco]

C'est bon cela marche en appliquant le code de Faw sur AfterupDate

Merci à vous 3

@++++