Discussion :

[caro2552]

bonjour
j'ai un form "compagnie" et un sous form"budget" comportant plusieurs lignes comptable .Je voudrais par une macro appliquer un filtre sur le sous formulaire or pour l'instant le filtre ne veut s'appliquer qu'au formulaire. La macro ne fonctionne que si j'ouvre directement le sous form.
Merci pour votre aide

[FreeAccess]

Bonjour,

...par une macro appliquer un filtre sur le sous formulaire........le filtre ne veut s'appliquer qu'au formulaire

...Peut être qu'un peu plus d'explication sur ta "macro" nous permettrait de mieux y voir.......

Sinon, pense également à faire quelques recherches dans les anciens posts [Menu Recherche situé en haut de chaque page]

C'est du VBA......mais bien mieux qu'une "macro".....
http://www.developpez.net/forums/sho...ous+formulaire
http://www.developpez.net/forums/sho...ous+formulaire

Bonne lecture..et à bientôt pour plus de précisions....

[Invité]

Bonjour

En plus des liens fournis par FreeAccess, peux-tu nous dire quel est le rapport entre les données de ton formulaire et celles de ton sous-formulaire.

Suivant le cas on peut avoir des méthodes différentes, qui peuvent être très simples.

Starec

[caro2552]

re bonjour
form= ffichetechnique et ssform=sflignebudget .ils sont lies par un champ commun "clespectacleass". Le filtre porte sur une case a cocher du ssform
La macro "mffichetechnique" s'applique a un bouton du ssform :"appliquer filtre" avec argument :[tbudget]![utilisation du type]=Vrai

Mon probleme c'est qu'à chaque fois il tente d'appliquer le filtre au form et ne trouve aucun champ qui correspond.

jE joins un raccour ci de ma base au cas ou mon histoire ne serait pas tres claire

En tout cas merci a vous 2

[Renardo]

Bonjour
Essai de remplacer la ligne de ta macro par celle ci

Code :

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

[Formulaires]![ffichetechnique]![tbudget Sous-formulaire].[Formulaire]![utilisation du type]=Vrai

[caro2552]

j'ai essaye de suivre les conseils de freeaccess et cela semble marcher.

Code :

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

1
2
3
4
Private Sub Commande10_Click()
Me.Filter = "[utilisation du type]=true"
  Me.FilterOn = True
End Sub

eT pour repondre a renardo sa solution fonctionne aussi

Je vous remercie tous les 3 .Cette histoire aura eu le merite de me faire ecrire une 1/2 LIGNE DE code