creation d'un menu personnalisé

**aldama** · 07/04/2009, 20h31

bonjour,

après avoir fini mes formulaires, j'ai tenté de créer un menu personnalisé pour mon application à partir de outil ->personnaliser-> nouveau menu dans l'onglé commande.
J'aimerais ajouter le code pour chaque nouvelle commande ajoutée de sorte à afficher un formulaire en cliquant sur une commande. comment s'y prendre?

De plus, j'aimerais que lorsqu'un formulaire est ouvert, la barre de menu soit grisé, de sorte à empêcher l'utilisateur à ouvrir deux formulaire en même temps.

Y a t-il une autre manière de créer un menu? si oui, comment?

Comment imposer un formulaire au démarrage de l'application?

merci d'avance pour votre aide

Invité · 07/04/2009, 20h36

Bonjour

Pour créer un menu tu as une autre possibilité, et un super tuto sur le sujet

: Personnaliser vos barres de commandes dans Access

Philippe

**aldama** · 07/04/2009, 20h43

ok, je vais y faire un tour
merci

**aldama** · 08/04/2009, 00h05

je viens de lire le tutoriel mais je suis pas plus avancé. en effet meme si je sais ecrire le code de creation d'un nouveau menu, je sais pas trop où écrire le code. en effet, cè sur quel formulaire ou partie de l'application écrire ce code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Sub CreerMenu()
' ======================================================================================
' Auteur : Starec - Philippe JOCHMANS - http://starec.developpez.com
' Description : Création d'une barre de menu
'=======================================================================================
' ==== déclaration =====
Dim cmb As Office.CommandBar
' ===== affectation =====
Set cmb = Application.CommandBars.Add("MaBarre", msoBarTop, True, True)
' ===== rendre la barre visible =====
cmb.Visible = True
End Sub

?

De plus, une fois créé le nouveau menu, quel code permet d'appeler un formulaire en cliquant sur une commande de mon menu?

je l'ai pas trouvé sur le tutoriel.

je veux que mon menu soit sous la forme:

Code :

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

fichier |gestion des ventes|dépenses|

lorsque je clique sur la gestion de ventes, je veux que le formulaire qui permet d'enregistrer les ventes s'affiche.

merci

Invité · 08/04/2009, 04h49

Re

En général on crée les barres aux démarrages, il faut mettre le tout dans une fonction (oui une fonction) déclarée en public dans un module.
Ensuite utiliser une macro AutoExec avec l'instruction ExecuterCode et là sélectionner la fonction.

De plus, une fois créé le nouveau menu, quel code permet d'appeler un formulaire en cliquant sur une commande de mon menu?

Dans la partie qui parle de OnAction, tu as les éléments, en général comme j'ai un module pour les menus, j'ai une fonction qui lance chaque formulaire avec une instruction (DoCmd.OpenForm....), et cette fonction est appelée sur le OnAction.

je veux que mon menu soit sous la forme:

As-tu bien tout lu, car tu as de nombreux exemples, comme à partir de cette partie : http://starec.developpez.com/tuto/barrecommande/#LV-A

Philippe

**aldama** · 08/04/2009, 13h40

j'ai essayé de créer le menu à l'aide du module sur la forme:

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Public Sub CreerMenu()
 
 
    ' ==== déclaration =====
    Dim cmb As Office.CommandBar
    Dim btn As Office.CommandBarButton
 
    On Error Resume Next
    Application.CommandBars("MaBarre").Delete
 
    ' ===== affectation =====
    Set cmb = Application.CommandBars.Add("Menu", msoBarTop, True, True)
 
    ' ===== ajout de boutons =====
    Set btn = cmb.Controls.Add(msoControlButton)
    With btn
        .Caption = "Fichier"
        .Style = msoButtonCaption
    End With
    Set btn = cmb.Controls.Add(msoControlButton)
    With btn
        .Caption = "Gestion du cheptel"
        .Style = msoButtonCaption
    End With
    Set btn = cmb.Controls.Add(msoControlButton)
    With btn
        .Caption = "GEstion des ventes"
        .Style = msoButtonCaption
    End With
 
    ' ===== rendre la barre visible =====
    cmb.Visible = True
End Sub

lorsque j'execute je recois un message d'erreur:

Code :

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

type défini par l'utilisateur on défini

en reference à

Code :

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

1
2
Dim cmb As Office.CommandBar
    Dim btn As Office.CommandBarButton

cmment les définir?
merci

Invité · 08/04/2009, 13h44

Bonjour

Comme je te l'ai dit, il serait bon de lire le tuto, plusieurs fois s'il faut, il manque une référence, c'est écrit ici : http://starec.developpez.com/tuto/barrecommande/#LII

Philippe

**aldama** · 09/04/2009, 11h18

j'ai relu plusieur fois le tutoriel, j'avoue que je vois pas le paramètre en question.

Invité · 09/04/2009, 13h32

La référence, voir pièce jointe

**aldama** · 09/04/2009, 21h26

merci, j'ai fini par voir ce que tu me montrer, cool
mais c'est mon premier projet sur access; je sais donc pas comment se referer à une bibliothèque.

j'ai fini par créer un menu à partir de outil -> personnalier -> ...

lorsque je lance l'application, le menu créé s'affiche. Il me reste à inserrer les code pr qu'a chaque commande selectionnée, il s'affiche un formulaire.
Du moment ou j'ai pas créé ce menu par module, comment inserrer du code pour afficher mes formulaire?

merci

Invité · 10/04/2009, 02h43

Re

Envoyé par aldama

merci, j'ai fini par voir ce que tu me montrer, cool
mais c'est mon premier projet sur access; je sais donc pas comment se referer à une bibliothèque.

Bon dans l'éditeur VB, tu vas dans le menu Outils/Référence, et dans la liste tu cherches la référence, et tu coches la case en face.

j'ai fini par créer un menu à partir de outil -> personnalier -> ...

Quel dommage

lorsque je lance l'application, le menu créé s'affiche. Il me reste à inserrer les code pr qu'a chaque commande selectionnée, il s'affiche un formulaire.
Du moment ou j'ai pas créé ce menu par module, comment inserrer du code pour afficher mes formulaire?

merci

Si tu le fais par l'assistant, tu peux en mode création sur un click droit des boutons, dans le menu contextuel, tu as les propriétés, et là tu sélectionnes ce que tu veux.

En fait lorsque tu crées tes boutons, tu peux choisir les formulaires dans la liste, dans ce tuto ( http://warin.developpez.com/access/tutorielcontext1/ ) tu auras des exemples manuels.

Donc tu restes sur une création manuelle du menu ?

Philippe

**aldama** · 10/04/2009, 15h21

comme je suis là pour apprendre, je vais essayer la methode par code.
seulement, je dois refererer la bibliotheque 11.0 car j'utilise access 2003.
cmtle faire? j'ai besoin de cela pour continuer par code.

merci