Discussion :

[catherineFR27]

Bonjour à tous,

Je m'en remets à vous pour solutionner mon problème avoir cherché sans succès... Voici ma question :

Comment faire pour savoir sur quel élément de menu l'utilisateur a cliqué ?

J'ai créé pour mon application une barre d'outils personnalisée (via l'interface Access et non via le code), contenant plusieurs menus, dont l'un est destiné à l'édition d'états. Pour éditer ces états l'utilisateur doit saisir des paramètres dans un formulaire dédié.

Mon but : ouvrir le formulaire de saisie des paramètres en affichant ou masquant certains des contrôles du formulaire selon l'élément de menu sur lequel l'utilisateur a cliqué.

J'avais l'intention de créer une procédure attachée à l'événement Open ou Load du formulaire pour modifier les propriétés des contrôles, mais comment faire pour savoir sur quel élément de menu l'utilisateur a cliqué ?

Merci d'avance pour votre aide !

Catherine

[FreeAccess]

Bonjour,

..savoir sur quel élément de menu l'utilisateur a cliqué ?

Comment "déclenche" tu l'événement associé a tes différents boutons de ta barre d'outils...

Pour exemple:

-Une barre d'outils personnalisée (perso) avec trois contrôles.
Dans les propriétés de chaque contrôle, en face de "sur action"...:
==> 1er contrôle = Etat1
==> 2ème contrôle = Etat2
==> 3ème contrôle = Etat3

-Dans un module, tu va créé le code suivant qui sera déclenché lors du clic sur un contrôle de ta barre d'outils..:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function Etat1()
DoCmd.OpenForm "Formulaire1", , , , , , "Etat1"
End Function
 
Function Etat2()
DoCmd.OpenForm "Formulaire1", , , , , , "Etat2"
End Function
 
Function Etat3()
DoCmd.OpenForm "Formulaire1", , , , , , "Etat3"
End Function

Puis sur l'événement "Sur ouverture" de ton formulaire "Formulaire1"...:

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
Private Sub Form_Open(Cancel As Integer)
'En fonction de l'argument passé par OpenArgs.
'...on ouvre le formulaire et on cache tel ou tel élément
Select Case OpenArgs
    Case "Etat1"
        Me.texte1.Visible = True
        Me.texte2.Visible = False
        Me.texte3.Visible = False
    Case "Etat2"
        Me.texte1.Visible = False
        Me.texte2.Visible = True
        Me.texte3.Visible = False
    Case "Etat3"
        Me.texte1.Visible = False
        Me.texte2.Visible = False
        Me.texte3.Visible = True
End Select
End Sub

..voila, ceci est une possibilité......

[catherineFR27]

Bonjour !

C'est parfait !
C'est exactement ce qu'il me fallait, sauf que je ne savais pas trop comment m'y prendre pour placer au bon endroit et faire référence aux arguments à l'ouverture (il me manquait la propriété "OpenArgs"), fonction à créer et propriété "sur action"...

Merci d'avoir éclairé ma lanterne !

Catherine