Discussion :

[yann3131]

Bonjour,
J'essaie de créer un formulaire avec plusieurs onglets. Pour chaque onglet, correspond un formulaire différent. J'ai donc associé chaque formulaire aux onglets correspondants, cela fonctionne très bien.
J'ai du créer énormément de formulaire structurellement identiques, la différence entre les formulaire est le filtre appliqué. Le problème est que lorsque je veux modifier la trame du formulaire type, je suis obligé de modifier tous les autres, ce qui est très long car la base que j'ai créé est partagée sur le réseau.

Je souhaiterais optimiser ce système: Je voudrais avoir un seul sous-formulaire type qui sert à tous les onglets et lorsque je sélectionne l'onglet, celui-ci applique un filtre sur ce formulaire. J'ai essayé beaucoup de méthode, via les boutons de navigation, les sous-formulaires, vartemp... mais sans succès.
Pourriez-vous me donner une solution à ce problème?
Merci d'avance
A bientôt, Yann

[marot_r]

Que n'es-tu pas arrivé à faire :

Appliquer un filtre à un sous-formulaire ?

Détecter le changement d'onglet ?

A+

[marot_r]

Et pourrais-tu indquer quelle version d'Access tu utilises ?

A+

[yann3131]

Bonjour,

De retour de quelques jours de vacances, je me re-penche sur le sujet que je n'ai toujours pas réussit à résoudre.
J'utilise Access 2010.

Questions posées:
- Appliquer un filtre à un sous-formulaire ?
- Détecter le changement d'onglet ?

Je souhaite utiliser un sous-formulaire commun pour tous mes onglets. Je veux appliquer un filtre à ce sous-formulaire lorsque je clique sur les différents onglets. J'aurais pu utiliser des formulaires double affichage comme je l'ai fait dans d'autres programmes mais ici, je veux garder l'utilisation d'onglet car j'en ai besoin pour le reste du programme.
Au final, je veux juste que les onglets appliquent des filtres sur le sous-formulaire commun.

Merci d'avance pour votre aide.
Slts,
Yann

[marot_r]

Ok finalement il faut répondre aux 2 questions.

- Appliquer un filtre à un sous-formulaire ?

J'essairai :

Code :

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

1
2
3
me.NomTonSousForm.Form.Filter="Ici ton filtre"
me.NomTonSousForm.Form.FilterOn=true
me.NomTonSousForm.Form.refresh 'Je pense que c'est optionnel

- Détecter le changement d'onglet ?

Il y a un événement Sur changement au niveau du contrôle 'Onglet'. Attention pas sur un onglet particulier mais sur le groupe d'onglets.
La propriété value te donne l'onglet qui est actuellement actif.
Je ferai un code qui resemble à cela dans l'événement OnChange

Code :

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

1
2
3
4
5
6
7
8
select case me.MonControleOnglet.value
    case 0
        call AppliquerFiltreSousForm("Ici Ton filtre pour page 0")
    case 1
        call AppliquerFiltreSousForm("Ici Ton filtre pour page 1")
    case else
        error 5 'Cas impossible, seulement pour détecter si j'ai oublié un case
end select

pour rendre ton code plus lisible tu pourrais remplacer 0, 1 etc. par des constantes figuratives du type

Code :

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

cont PAGE_ACHAT_ACTION as long = 1 'Page qui affiche les achats d'actions.

ton case devient alors

case=PAGE_ACHAT_ACTION ce qui est plus facile à comprendre que case=0

A+

[yann3131]

Bonjour,
Je me suis servit de votre idée et j'ai trouvé la solution.
Merci

Yann