Discussion :

[PAUL87]

bonjour,
dans un formulaire. je souhaite qu'un bouton d'option s'il est coché fasse apparaître une liste modifiable.
Quel code dois-je appliquer a

Code :

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

1
2
Private Sub Option1_Click()
End Sub

Merci

[pgz]

Bonsoir

Code :

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

Me.MaListe.Visible = Me.Option1

Par exemple. Mais je choisirais plutôt l'évènement après mise à jour.

pgz

[PAUL87]

merci...
mais comment fait-on pour après mise à jour...?

[pgz]

Re,

Comme pour sur click, dans les propriétés de ton bouton d'option, onglet évènement, ligne sur mise à jour, les 3 petits points, et code.

Bon courage,

pgz

[PAUL87]

Merci c'est ok..
encore une derniere question svp
a l'ouverture du formulaire,
je souhaite que seul le bouton d'option soit visible," en attente"...et donc pas d'affichage de la zone modifiable
Merci

[pgz]

En mode création du formulaire,
bouton d'option : valeur par défaut = false
liste de choix : visible = non.

CA devrait aller;

Bon courage,

pgz

[PAUL87]

c'est ok ça marche tres bien....merci beaucoup..et à bientôt

[pgz]

Avec plaisir! Et à bientôt.

pgz

[PAUL87]

Re-bonjour...
dans la meme logique, j'ai essayé d'appliquer le memes codes...non plus à un bouton d'option...qui ouvre ou ferme une zone de liste mod....mais
à un groupe d'option..qui selon le bouton selectionné (4 boutons) ouvre une zone de liste mod différente...
et là rien...ça ne marche pas
merci...

[pgz]

Bonsoir,

Si tu montres ce que tu as fait, on pourra plus facilement t'aider.

pgz

[PAUL87]

eh bien pour chaque bouton d'option,

Code :

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

1
2
3
4
 
Private Sub Option31_AfterUpdate()
Me.Modifiable39.Visible = Me.Option31
End Sub

j'ai donc 4 boutons d'option et 4 modifiables..
donc meme opération pour les 4
un petit détail...hier mes essais se faisaient sur access97...et maintenant je devellope sur access2003....y a t'il un lien...?

[PAUL87]

j'ai bien mis pour les zones modifiables " visible=non"
mais pour les options je ne trouve plus "valeur par défaut=false" dans 2003
et ce n'est plus un bouton d'option seul...mais un groupe d'otion avec cadre

[PAUL87]

si quelqu'un avait une idee

[User]

Salut,

agit sur ton groupe d'option:

exemple:

je suppose que ton groupe comporte 4 bouton d'option

bouton1
Option value = 1

bouton2
Option value = 2

bouton3
Option value = 3

bouton4
Option value = 4

et ton groupe:

Groupe1.DefaultValue=1

et sur click de ton groupe1:

Code :

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

1
2
3
4
5
6
7
Private Sub groupe1_Click()
 
   if groupe1.value=2 Then
   malistel.Visible = False
   end if
 
End Sub

@+

[PAUL87]

Bonsoir,...et merci
cela marche nettement mieux maintenant...
seulement une derniere chose...svp
lorsque je coche une case option, cela ouvre sans probleme la liste modifiable qui lui est attribuée.
Par contre lorsque je coche une autre case option (parmi les autres), cela ouvre bien la liste modifiable qui lui est attribuée...MAIS cela ne ferme pas la liste modifiable ouverte en premier...et qui n'a plus lieu d'etre..et ainsi de suite..pour les autres boutons options.
En fait je ne souhaite une action ON/OFF des listes modif en fonction des boutons options...
je ne sais pas si je suis bien clair
merci

[User]

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
22
23
24
25
26
27
28
29
30
Private Sub groupe1_Click()
 
   select case groupe1.value 
   case 1
   malistel1.Visible = True
   malistel2.Visible = False
   malistel3.Visible = False
   malistel4.Visible = False
 
   case 2
   malistel1.Visible = False
   malistel2.Visible = True
   malistel3.Visible = False
   malistel4.Visible = False
 
   case 3
   malistel1.Visible = False
   malistel2.Visible = False
   malistel3.Visible = True
   malistel4.Visible = False
 
   case 4
   malistel1.Visible = False
   malistel2.Visible = False
   malistel3.Visible = False
   malistel4.Visible = True
 
   end select 
 
End Sub

@+

[PAUL87]

Merci...j'aurais pu y penser...qu'il fallait invalider les autres ...
Merci beaucoup...ça marche...
Merci
a bientot

[User]

penses au tag résolu