Masquer sousformulaire avec liste déroulante

**Rickhq** · 04/10/2013, 17h17

Bonjour,

J'ai bien essayé avec ce qu'il y avait sur le forum mais il semble me manquer un petit quelque chose... Je désire afficher un sousFormulaire(A) à partir d'un choix sur une liste déroulante d'un autre sousFormulaire(B).

Code :

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

1
2
3
4
5
6
7
Private Sub Justification_AfterUpdate()
 
If Justification.Value = "Probation 63 jrs" Then
Me![F_SousFormProbation63].Visible = True
 
End If
End Sub

Merci à l'avance!!!!

**ClaudeLELOUP** · 04/10/2013, 17h47

Bonjour,

Est-ce que "F_SousFormProbation63" est bien le nom du container de sous-formulaire ?

**Rickhq** · 04/10/2013, 18h14

Parfaitement.

**ClaudeLELOUP** · 04/10/2013, 18h22

On va tester pour trouver l'origine du problème.

Dans ton formulaire principal, ajoute 2 boutons :

sur le clic de l'un tu mets

Code :

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

Me![F_SousFormProbation63].Visible = True

et sur l'autre :

Code :

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

Me![F_SousFormProbation63].Visible = False

Si quand tu les cliques, tu obtiens le résulat voulu, c'est ton test sur le contenu de la liste qui n'est pas correct (des espaces par exemple).

**Rickhq** · 04/10/2013, 19h10

Les deux boutons fonctionnent très bien sur le formulaire.

**ClaudeLELOUP** · 04/10/2013, 19h45

Ta zone de liste affiche "Probation 63 jrs", est-ce que cette valeur se trouve bien dans la colonne qui est liée ?

**Rickhq** · 04/10/2013, 19h49

J'ai recréé la même zone de liste directement sur le formulaire et çà fonctionne. Mais on dirait qu'à partir d'un sousform à un autre sousform rien ne va...

**ClaudeLELOUP** · 04/10/2013, 20h53

Mais on dirait qu'à partir d'un sousform à un autre sousform rien ne va...

Flute ! J'avais mal lu ton premier poste.

Puisque la zone de liste dont tu parles se trouve dans un sous-formulaire et qu'il faut rendre visible un autre sous-formulaire, alors la syntaxe est

Code :

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

Me.Parent![F_SousFormProbation63].Visible = True

**Rickhq** · 04/10/2013, 21h34

Un Pro c'est un Pro!!!

Çà marche

Merci merci merci!!!!!!!!!!

**Rickhq** · 08/10/2013, 17h40

Bonjour je me permet une dernière petite ajout. SVP.

J'ai transposé le code sur une autre liste déroulante (Modifiable142) celle-ci sur le formulaire principale afin d'obtenir le même résultat. Mais quelque chose semble bloquer...

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Modifiable142_AfterUpdate()
If [Justification].Value = "Probation 63 jrs" Then
Me.Parent![F_SousFormProbation63].Visible = True
End If
If [Justification].Value <> "Probation 63 jrs" Then
Me.Parent![F_SousFormProbation63].Visible = False
 
End If
End Sub

Note: Le champ "Justification" se trouve sur un sous formulaire "F_SousFormCote" et le "F_SousFormProbation63" est le truc à faire apparaitre ou disparaitre selon la valeur du champ "Justification".

Pas simple...

**ClaudeLELOUP** · 08/10/2013, 18h37

Bonjour,

Pas facile de te suivre !
Le code que tu affiches se trouve dans Modifiable142 qui est sur le principal =>
Pour te référer à Justification qui est dans une sous-formulaire "F_SousFormCote"
Tu dois écrire :

Code :

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