Discussion :

[patb12]

Bonjour,
j'ai réalisé un formulaire qui comporte un bouton à bascule, qui fonctionne très bien.
Mon problème c'est à l’ouverture du formulaire mon bouton par défaut n'est pas activer sur un ou l'autre des options (oui ou non).
Je n'ai pas trouvé comment l'activer par défaut sur (oui -1).
Merci.

[rnd]

Bonjour,

Dans les propriete valeur par defaut de ton bouton tu met bien "=-1", "=oui" fonctionne aussi.
Utilise tu un cadre option? Car dans ce cas c'est sur le cadre qu'il faut atribuer la valeur par defaut.

Cdt, Renaud.

[patb12]

Oui sa marche par contre dans mon bouton j'utilise la fonction.
(Me.un_poteau.Visible = False) pour afficher deux texte différent qui sont un sur l'autre et bien sur a l’ouverture tant que je n'ai pas cliquer sur oui ou non j'ai les deux texte un sur l'autre.
Merci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Bascule237_GotFocus()
Me.Poteau.Visible = False
Me.Applique.Visible = True
Me.une_applique.Visible = True
Me.un_poteau.Visible = False
End Sub
 
Private Sub Bascule238_GotFocus()
Me.Poteau.Visible = True
Me.Applique.Visible = False
Me.une_applique.Visible = False
Me.un_poteau.Visible = True
End Sub

[rnd]

Qu'a tu mis dans les propriétés initiale lors de l'ouverture du formulaire, de tes contrôles visibles ou pas?

Plutôt que de jouer sur les propriétés visible, ce ne serait pas plus simple de changer le libellé (ou la valeur de ton texte)

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Bascule237_GotFocus()
Me.Poteau = "Texte a afficher 1"
Me.Applique = "Texte a afficher 2"
End Sub
 
Private Sub Bascule238_GotFocus()
Me.Poteau = "Texte a afficher 3"
Me.Applique = "Texte a afficher 4"
End Sub

Cdt, Renaud.

Edit Ce serait pas plutôt sur AfterUpdate que GostFocus?

[patb12]

avec ton code sa ne marche pas.
dans mon code si je clique sur Oui de la bascule:
Le code qui suit rend visible une page d'onglet et cache une autre page.

Code :

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

1
2
3
 
Me.Poteau.Visible = False
Me.Applique.Visible = True

idem pour cette deuxième partie qui affiche un texte ou l'outre.

Code :

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

1
2
3
 
Me.une_applique.Visible = True
Me.un_poteau.Visible = False

Et donc c'est l'inverse pour le Non de la bascule.
Comme on le voit sur la photo à l'ouverture j'ai les deux message un sur l'autre et je souhaiterez en avoir q'un comme avec le oui activé (une applique).
Merci.

[rnd]

Bonjour,

Si j'ai bien compris ce que tu cherche à faire, tu souhaite obtenir cela:



Dans ce cas ton approche au niveau de ton code n'est pas bonne. Tes 2 boutons bascule doivent être dans un cadre option (ici Cadre0) avec pour valeur -1 pour Oui et 0 pour Nom;
Un contrôle texte (Texte1) pour le changement de libellé puis affiché/masqué les pages (Page2 et Page3) du contrôle onglet en fonction de l’événement AfterUpdate du Cadre0.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Cadre0_AfterUpdate()
 
If Cadre0 = True Then
    Texte1 = "Une applique"
    Page2.Visible = True
    Page3.Visible = False
Else
    Texte1 = "Un poteau"
    Page2.Visible = False
    Page3.Visible = True
End If
 
End Sub

Initialisé les valeurs défaut sur chargement du formulaire

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_Load()
 
Cadre0 = True
Texte1 = "Une applique"
Page2.Visible = True
Page3.Visible = False
 
End Sub

Cdt, Renaud.