Discussion :

[setegue]

Bonjour à tous,

Je développe en ce moment une base ACCESS et je suis bloqué à cause d'un sous-formulaire.

Voilà mon problème :

J'ai un formulaire A avec un champ "type" (sous forme d'une liste déroulante avec 12 choix possibles)).
Sur ce formulaire, j'ai aussi des onglets.

Un de mes onglets contient un sous-formulaire.
Je souhaite faire varier le contenu de ce sous formulaire en fonction de la valeur de ma liste déroulante. Pour ça, j'ai pour chaque thème un formulaire qui s'applique et qui est déja créer.

ex : si je choisis dans ma liste le choix "riri", je veux que mon sous formulaire "riri" apparaissent dans mon onglet. Si je change de choix, il doit par conséquent changer le sous-formulaire qui est appelé.


Il me semble que c'est possible (je crois avoir vu ça sur le net mais sans pouvoir remettre la main dessus) mais je ne vois pas comment faire ni où mettre le code.

Merci de votre aide.

[helas]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub ListeDeroulante_Change()
 Dim s As String
 Select Case Me!ListeDeroulante
 Case "riri"
  s = "FormulaireRiri"
 Case "roro"
  s = "FormulaireRoro"
 case else
  s = "FormulaireNeutre"
 End Select
 Me!SousFormulaire.SourceObject = s
 Me!SousFormulaire.Requery
End Sub

[setegue]

Merci pour la rapidité de la réponse Helas.

Par contre, où je place ce code?

Seb

[helas]

Clic droit sur la liste deroulante puis Créer code evenement puis Générateur de codes puis OK
Dans la deuxieme liste deroulante (liste des evenements) sélectionner Change
Ecrire le code

[setegue]

Bonjour,

Ca ne marche pas tout à fait.

Lorsque dans ma liste je choisis la valeur "riri", le sous-formulaire "riri" apparait bien.

Par contre, lorsque je passe à un autre individu (j'ai 26 clients renseignés), c'est toujours le formulaire "riri" qui apparait sans tenir compte de ma liste déroulante. Si je change de choix pour mon deuxieme client, ça applique le même choix à tous mes clients;

comment faire pour que le formulaire que j'indique via ma liste déroulante reste en mémoire même quand je passe au client suivant.

Merci

[setegue]

Personne ne sait comment je peux débloquer la situation?


Merci

[Invité]

Bonjour

La solution serait de mettre tes trois sous-formulaires sur ton formulaire et d'utiliser l'instruction que ta donné helas, en jouant sur la propriété visible du sous-formulaire

Une autre solutions (si tes sous-formulaires sont en mode feuille de donnée) c'est de changer la propriété RowSource

Starec

[setegue]

il n'existe aucun moyen de présenter ça sous la forme :

If ListeDeroulante ="riri" then sousFormulaire ="FormulaireRiri"
If ListeDeroulante ="loulou" then sousFormulaire ="Formulaireloulou"

etc.... sachant que j'ai 6 possibilités de sous-formulaire


Seb

[Invité]

Re

A mon avis non, soit tu changes la source, soit tu jours sur la visibilité, mais il existe peut-être un autre solution, on en apprend tous les jours.

Attend le passage d'un plus performant, je suis sûr que Caféine à une solution pour toi

Starec

[setegue]

merci de ton aide en tout cas.

je suis débutant en VB avec juste qq notions de programmations donc parfois les idées sont là mais la réalisation ne suis pas toujours.

Seb

[Invité]

Re

Je sais c'était comme cela au début, on cherche, on cherche, mais il faut persévérer

Starec

[setegue]

Pour ceuxque ça pourrait interesser, j'ai trouvé la solution grâce aux conseils de Starec.

Voilà la méthode que j'ai utilisé.
Code sur le formulaire :

Private Sub Form_Current()
If ListeDeroulante = "toto" Then toto.Visible = True
If Not ListeDeroulante = "toto" Then toto.Visible = False

le code est reproduit pour chaque individu de ma liste.

Ce n'est surement pas très conventionnel mais ça marche.
Mes 6 sous formulaires s'affichent et se masquent en fonction du choix de ma liste déroulante.

Attention, le même code est à placer aussi dans MAJ en tant que "Procédure evenementielle" (clic droit ->propriété de ListeDeroulante) pour que la donnée soit actualisée si on change une valeur.


Merci en tout cas pour l'aide précieuse que chacun a bien voulu m'apporter.

Seb