OVH Cloud OVH Cloud

Bouton Visible/Invisible

3 réponses
Avatar
Samban
Bonjour à tous et toutes.....

J'ai un petit problème tout bête mais sur lequel je ne trouve pas de
solution "logique .......;-)

Sur un formulaire indépendant, j'ai placé un bouton commande (Commande2) et
une zone de texte (Texte1).
J'ai également deux zones de textes avec les propriétés Visible=false.

J'ai une procédure sur Click de Commande2 qui devrait normalement me
permettre d'afficher mes deux zones de texte cachées et rendre non visible
Texte1 ainsi que Commande2.

Private Sub Commande4_Click()
Me.Texte1.Visible = False
Me.Commande2.Visible = False

Me.Texte2.Visible = True
Me.Texte3.Visible = True
Ens Sub


**** Et c'est là que je ne comprends plus ***
Après Clic sur Commande2, Mes zones cachés passent correctement à visible et
Texte1 est caché.
Mais impossible de masquer Commande2.

Est ce que le fait de lancer un code par ce bouton Commande2, l'empêche lui
même d'être modifier par ce code ??
Ou tout simplement existe t-il une autre solution ??

Merci d'avance pour toutes explications complémentaires.

3 réponses

Avatar
Raymond
Bonsoir.

Normal, tu ne peux pas rendre invisible un contrôle qui a le focus. Vu que
tu mets texte2 visible donne-lui le focus avant.
Private Sub Commande4_Click()
Me.Texte2.Visible = True
Me.Texte3.Visible = True
Me.Texte2.SetFocus ' ou texte3

Me.Texte1.Visible = False
Me.Commande2.Visible = False
Ens Sub


--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


" Samban" a écrit dans le message de
news:3f6c911c$0$20947$
Bonjour à tous et toutes.....

J'ai un petit problème tout bête mais sur lequel je ne trouve pas de
solution "logique .......;-)

Sur un formulaire indépendant, j'ai placé un bouton commande (Commande2)
et

une zone de texte (Texte1).
J'ai également deux zones de textes avec les propriétés Visibleúlse.

J'ai une procédure sur Click de Commande2 qui devrait normalement me
permettre d'afficher mes deux zones de texte cachées et rendre non
visible

Texte1 ainsi que Commande2.

Private Sub Commande4_Click()
Me.Texte1.Visible = False
Me.Commande2.Visible = False

Me.Texte2.Visible = True
Me.Texte3.Visible = True
Ens Sub


**** Et c'est là que je ne comprends plus ***
Après Clic sur Commande2, Mes zones cachés passent correctement à visible
et

Texte1 est caché.
Mais impossible de masquer Commande2.

Est ce que le fait de lancer un code par ce bouton Commande2, l'empêche
lui

même d'être modifier par ce code ??
Ou tout simplement existe t-il une autre solution ??

Merci d'avance pour toutes explications complémentaires.




Avatar
Samban
Je me fais une auto-réponse....

En fait, Commande2 ne peut être caché car il est actif lors du clic ( il
conserve donc le focus).
J'ai donc un peu modifier mon code de façon à rendre Texte3 visible puis a
lui passer le Focus, puis simplement après mettre la propriétés Visible de
Commande2 à False.....
ET ça fonctionne

Private Sub Commande4_Click()
Me.Texte1.Visible = False

Me.Texte2.Visible = True
Me.Texte3.Visible = True
Me.Texte3.SetFocus

Me.Commande2.Visible = False

Ens Sub

En espérant que cela serve à d'autres personnes.......mais je suis toujours
preneur pour une meilleure solution.;-)

Bonsoir
Avatar
Samban
Merci Raymond pour tes réponses.mais apparement nos deux post se sont
croisés.
Bonne soirée...