[AC-2003] Masquer un bouton en VBA [Résolu]

[ortiz]

Bonjour,

Dans un formulaire client j'ai un champ "C-Sites" format oui/non que je souhaite cocher si mon client à des succursales.

J'ai également dans ce formulaire, 2 boutons qui ouvrent, pour l'un, la liste de succursales rattachés à ce client et pour l'autre la liste des visites réalisées dans ses succursales.

Mon objectif est de rendre invisible ces deux boutons si j'ai coché "C-Sites", ainsi quand on visualise le formulaire client, si les 2 boutons sont visibles c'est qu'il y a des succursales.

Donc j'ai écris le code suivant:

Code :

1
2
3
4
5
6
7
8
Private Sub C_Sites__oui_non_Click()
If Me.C_Sites__oui_non = True Then
 Me.Commande170.Visible = False
If Me.C_Sites__oui_non = False Then
 Me.Commnade170.visbile = True
  End If
  End If
End Sub

Lorsque je clic sur "C-Sites" le 1er bouton est invisible, mais le problème c'est que je ne peux plus décocher "C-Sites" si je veux faire réapparaître le bouton 1.
Sauriez-vous me dire où est l'erreur dans mon code et comment ajouter dans ce code le bouton 2 ?

Merci d'avance

[nico84]

Bonjour,

le 2e if n'est jamais exécuté car il est dans le 1er

Tu peux écrire + simplement

Code :

Me.Commande170.Visible = not Me.C_Sites__oui_non

[ortiz]

Bonjour nico84,

Merci pour ta réponse. Effectivement le code est plus simple et quand je coche "C_Sites_oui_non" les 2 boutons disparaissent.

MAIS, après avoir enregistrer le formulaire, lorsque je le rouvre la case est toujours cochée mais les boutons ont reparus, donc l'info n'est pas enregistrée.

Que dois-je faire ?

[mc.schmer]

Bonjour,
je ne suis pas pro mais pour ma part je testerai la valeur de "C_Sites__oui_non" au chargement du formulaire afin de déterminer la propriété visible du contrôle.
J'ai deja appliquer cette méthode pour un sous formulaire et ca marche nickel...

Tu peux écrire + simplement

Code :

Me.Commande170.Visible = not Me.C_Sites__oui_non

[OtObOx]

Envoyé par ortiz

Bonjour nico84,

Merci pour ta réponse. Effectivement le code est plus simple et quand je coche "C_Sites_oui_non" les 2 boutons disparaissent.

MAIS, après avoir enregistrer le formulaire, lorsque je le rouvre la case est toujours cochée mais les boutons ont reparus, donc l'info n'est pas enregistrée.

Que dois-je faire ?

Si tes boutons apparaissent au chargement du formulaire, c'est qu'ils sont visibles par défaut.
Donc, en mode Edition, il faut que tu sélectionnes les 2 boutons à cacher, que tu ailles dans leurs propriétés et que tu règles les propriétés Visible à False.
Ainsi, au chargement du formulaire, les boutons seront invisibles et n'apparaîtront que si tu les rends visibles avec monBouton.visible=True dans ton code.

Tu peux aussi les rendre invisibles par code au chargement du formulaire, dans la procédure Formulaire_AuChargement (je ne me rappelle plus le terme exact) monBouton.visible=False