none
[AIDE] barre de menus Access disparue RRS feed

  • Question

  • bonjour,

    EN voulant supprimer la barre de menus dans une de mes bases, cette barre de menus a disparu dans toutes mes bases Access,.

    En appliquant la réponse présentée dans un forum, j'ai ajouté la commande ci-dessous dans le formulaire de démarrage de cette base et maintenant cette barre apparaît bien dans les autres bases


    Private Sub Form_Load()
    CommandBars("Menu Bar").Enabled = True
    End Sub

     

    Le problème est que si je sors d'Access, la barre a de nouveau disparu pour ces bases.

    Comment puis-je solutionner ce problème ?

    A noter que diverses propositions visant à faire apparaître la barre : Alt + F11 ou Alt + a ou Alt + G ne fonctionnent pas chez moi ?????

    merci d'avance pour votre aide.

    A noter que je suis sous Access 2003.

    vendredi 10 juin 2011 07:25

Réponses

  • Bonjour,

    Il vous suffit d'employer la procédure suivante :

    Public Sub ShowMenuBar(ByVal ShowIt As Boolean)
      DoCmd.ShowToolbar "Menu Bar", IIf(ShowIt, 0, 2)
    End Sub
    

    Avec le paramètre voulu...


    Argy
    vendredi 10 juin 2011 12:47
    Modérateur
  • Le mieux est d'appeler la procédure depuis le formulaire de démarrage s'il en existe un.

    Vous pouvez aussi l'inclure comme fonction dans une macro AutoExec() en exécutant la macro ExécuterCode() auquel cas il faudra remplacer l’occurrence"Sub" par "Function".

    Le paramètre voulu est True ou False selon le besoin :

    'Affiche la barre de menu
    ShowMenuBar True
    'Masque la barre de menu
    ShowMenuBar False
    


     


    Argy
    mardi 14 juin 2011 08:34
    Modérateur
  • merci pour ton aide.
    • Marqué comme réponse ibowl77 mardi 14 juin 2011 12:46
    mardi 14 juin 2011 08:43

Toutes les réponses

  • Bonjour,

    Il vous suffit d'employer la procédure suivante :

    Public Sub ShowMenuBar(ByVal ShowIt As Boolean)
      DoCmd.ShowToolbar "Menu Bar", IIf(ShowIt, 0, 2)
    End Sub
    

    Avec le paramètre voulu...


    Argy
    vendredi 10 juin 2011 12:47
    Modérateur
  • Bonjour,

    Sachant que la barre de menus a disparu dans toute mes bases, où dois-je placer ce code et pour qu'ils s'exécute, à quel évènement dois-je rattacher ?

    Vous indiquez aussi "avec le paramètre voulu": de quel paramètre parlez-vous ?

    cordialement

    vendredi 10 juin 2011 13:07
  • Le mieux est d'appeler la procédure depuis le formulaire de démarrage s'il en existe un.

    Vous pouvez aussi l'inclure comme fonction dans une macro AutoExec() en exécutant la macro ExécuterCode() auquel cas il faudra remplacer l’occurrence"Sub" par "Function".

    Le paramètre voulu est True ou False selon le besoin :

    'Affiche la barre de menu
    ShowMenuBar True
    'Masque la barre de menu
    ShowMenuBar False
    


     


    Argy
    mardi 14 juin 2011 08:34
    Modérateur
  • merci pour ton aide.
    • Marqué comme réponse ibowl77 mardi 14 juin 2011 12:46
    mardi 14 juin 2011 08:43