Discussion :

[camille2703]

Bonjour à tous,

Je suis débutante sur Access, je souhaite qu'un champ devienne visible lorsque je fais un choix dans ma liste déroulante.

J'ai mon champ : "Gestion médicaments à domicile" qui est une liste déroulante avec trois possibilités :
-"Seul"
-"Liste de médicaments"
-"Aide"

Je souhaite faire apparaître le champ : "Qui Aide" lorsqu'on sélectionne "Aide" dans la liste déroulante.

J'ai déjà essayé ça, sans résultat :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Form_Current()
 
If Me.Gestion médicaments à domicile= "aide" Then
Me.Qui Aide.Visible = True
Me.Qui Aide_Étiquette.Visible = True
Else
Me.Qui Aide.Visible = False
Me.Qui Aide_Étiquette.Visible = False
End If
 
End Sub
 
Private Sub Gestion médicaments à domicile_AfterUpdate()
If Me.Gestion médicaments à domicile= "aide" Then
Me.Qui Aide.Visible = True
Me.Qui Aide_Étiquette.Visible = True
Else
Me.Qui Aide.Visible = False
Me.Qui Aide_Étiquette.Visible = False
End If
End Sub

Merci d'avance.

[nico84]

Bonjour,

L'espace est le séparateur syntaxique, il est à proscrire dans les noms de champs !
Il est préférable d'éviter aussi les accentués...

[camille2703]

Merci pour votre réponse.

Mon code ne fonctionne toujours pas pourtant j'ai enlevés les accents et les espaces.

[Marcello5255]

Bonjour Camille,

Ta relation est peut-être établie sur l'identifiant colonne clé cachée, et au lieu de "aide" dans ton code, tu devrais indiquer l'identifiant. Tu peux trouver facilement le numéro correspondant dans la table.

[Gdal]

Bonsoir,

Une 1ère chose à vérifier c'est que ton code soit exécuté.
Par exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Gestion médicaments à domicile_AfterUpdate()
MsgBox("Test")
If Me.Gestion médicaments à domicile= "aide" Then
Me.Qui Aide.Visible = True
Me.Qui Aide_Étiquette.Visible = True
Else
Me.Qui Aide.Visible = False
Me.Qui Aide_Étiquette.Visible = False
End If
End Sub

Ou bien tu places un point d'arrêt...

Ensuite, il est utile de nommer ces contrôles (voir Conventions générales concernant le nom des contrôles)
lbl: Label
txt: Zone de texte
cbo: Combobox
Etc..

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub cboGestionMedicamentsDomicile_AfterUpdate()
MsgBox("Test")
      If Me.cboGestionMedicamentsDomicile.value = "aide" Then
            Me.txtQuiAide.Visible = True
            Me.lblQuiAide.Visible = True
      Else
            Me.txtQuiAide.Visible = False
            Me.lblQuiAide.Visible = False
      End If
 
End Sub

Pour ne pas répéter un code, tu peux appeler la procédure:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Form_Current()
      ' Afficher
       Call cboGestionMedicamentsDomicile_AfterUpdate()
End If
 
End Sub
 
Private Sub cboGestionMedicamentsDomicile_AfterUpdate()
MsgBox("Test")
      If Me.cboGestionMedicamentsDomicile.value = "aide" Then
            Me.txtQuiAide.Visible = True
            Me.lblQuiAide.Visible = True
      Else
            Me.txtQuiAide.Visible = False
            Me.lblQuiAide.Visible = False
      End If
 
End Sub

Gdal