Discussion :

[setegue]

Bonjour,

J'ai rencontré la semaine dernière un pb pour rendre visible/invisible un sous-formulaire en fonction de la valeur d'une liste déroulante.

Ce problème est résolu.
Je cherche à créer un état qui reprend le même principe que pour le sous-formulaire sur la base du code que j'ai utilisé pour le sous-formulaire.

Pour rappel, mon code donnait ça :

Code :

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

1
2
3
4
Private Sub Form_Current()
If ListeDeroulante = "toto" Then toto.Visible = True
If Not ListeDeroulante = "toto" Then toto.Visible = False
End Sub

J'ai essayé sur le même principe d'appliquer ce code à un sous-état mais je ne trouve pas où placer une procédure évenementielle dans les propriétés de mon objet "sous état".

Comment faire pour que si mon champ ListeDeroulante = "toto", mon sous état "toto" apparaissent et qu'il ne soit pas visible si ListeDeroulante n'est pas "toto"?

Merci de votre aide.

Seb



Seb

[loufab]

Bonjour,

L'événement est Sur Formatage de l'état (et non du sous-état).

Le test doit être fait sur le formulaire.

Code :

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

if forms.monform.maliste = "toto" then

Cordialement,

[setegue]

J'ai finalement trouvé la solution...

Le problème venait de l'endroit où j'appliquais mon code.

En l'appliquant à la partie Détail de mon état ça marche. Le code donne ça pour ceux qui chercheraient un jour à résoudre le même problème :

Code :

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

1
2
3
4
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
If ListeDeroulante= "toto" Then ss_etat_toto.Visible = True
If Not ListeDeroulante= "toto" Then ss_etat_tot.Visible = False
End Sub

Seb