Access 2007 - Masquer en VBA
Philou18
-
Philou18 -
Philou18 -
Bonjour,
Je suis sous access 2007 et je voulais savoir comment traduire ca en VBA :
Sur ouverture du formulaire, si j'ai cliquer sur bouton1 du formulaire1 alors je cache bouton2 et bouton3 du formulaire2 (formulaire en cours) et si j'ai cliquer sur bouton2 alors je cache bouton1 du formulaire2.
Sachant que bouton1 et bouton2 du formulaire1 permettent tous les deux, d'ouvrir le formulaire2. C'est juste que je voulais cacher des boutons du formulaire2 selon si j'y accede par le bouton1 ou le bouton2 (du formulaire1).
Cela est il possible ? et comment ?
Merci pour l'aide que vous pourrez m'apporter.
MAJ:
En faite je sais comment le rendre invisible.
Mais mon problème est plutot comment savoir si j'ai ouvert le formulaire2 par le bouton1 ou bouton2 du formulaire1. C'est surtout la decu que je peine.
Une petite idée ou un lien ?
Je suis sous access 2007 et je voulais savoir comment traduire ca en VBA :
Sur ouverture du formulaire, si j'ai cliquer sur bouton1 du formulaire1 alors je cache bouton2 et bouton3 du formulaire2 (formulaire en cours) et si j'ai cliquer sur bouton2 alors je cache bouton1 du formulaire2.
Sachant que bouton1 et bouton2 du formulaire1 permettent tous les deux, d'ouvrir le formulaire2. C'est juste que je voulais cacher des boutons du formulaire2 selon si j'y accede par le bouton1 ou le bouton2 (du formulaire1).
Cela est il possible ? et comment ?
Merci pour l'aide que vous pourrez m'apporter.
MAJ:
En faite je sais comment le rendre invisible.
Mais mon problème est plutot comment savoir si j'ai ouvert le formulaire2 par le bouton1 ou bouton2 du formulaire1. C'est surtout la decu que je peine.
Une petite idée ou un lien ?
1 réponse
-
Bonjour,
Je pense que ton probleme viens du setfocus sur le formulaire 2,
exemple
sur ton bouton 1 form 1 on click
DoCmd.OpenForm "Form2"
Forms!Form2!text2.SetFocus
Forms!Form2!BT2.Visible = False
le bouton 2 du form2 est hide-
Bonjour nono,
Tout d'abord merci beaucoup pour ta réponse, désolé j'avais trouver ma soluce avnt de lire la tienne.
Donc mon coté, si ca peut aider quelqu'un j'ai mis cela :
Sur chargement du formulaire2Dim RecupBtn RecupBtn = Forms("formulaire1").ActiveControl.Name If RecupBtn = "bouton1" Then Me.bouton2.Visible = False Me.bouton3.Visible = False Else Me.bouton1.Visible = False End If
-
