Supprimer le ruban dans Access 2007

Résolu
DevGl Messages postés 151 Statut Membre -  
f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

j'ai réalisé ma base de donée sous access 2007, et je veux quand un utilisateur ouvre ma base , il ne voit que le menu principale qui s'ouvrent directement , pas de volet de navigation , pas de ruban , (la barre qui contien : acceuil , outils base de donée , ... ) ,
alors j'ai pu grace a l'option access ---> base de donée active de supprimer le volet de navigation , maintenant quand j'ouvre ma base je ne voie que le menu principal et le ruban ,
mais moi je ne veux pas voire le ruban :/ :/ !!
comment faire pour le masquer ??? pour que je ne voie que le menu principaal :/
j'ai vu pas mal de tutoriel mais ils sont en access 2010 !! pas de 2007 !
aidez moi s'il vous plaaaaaaait

1 réponse

  1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    'masque Ruban
    Private Sub Cmd_no_ribon_Click()
    DoCmd.ShowToolbar "Ribbon", acToolbarNo
    End Sub

    'affiche Ruban
    Private Sub Cmd_Ruban_on_Click()
    DoCmd.ShowToolbar "Ribbon", acToolbarYes
    End Sub

    'Cache Volet de navigation
    Private Sub Cmd_Windows_Click()
    DoCmd.NavigateTo "acNavigationCategoryObjectType" 'Select Navigation Pane
    DoCmd.RunCommand acCmdWindowHide 'Hide selected
    End Sub

    'Affiche Volet de navigation
    Private Sub Cmd_Windows_Affiche_volet_Navigtion_Click()
    DoCmd.SelectObject acTable, , True
    End Sub
    0
    1. DevGl Messages postés 151 Statut Membre
       
      comment je vais le faire s'il vous plaait??? ou je dois mettre ce petit code??? je créer un formulaire ou quoi??
      0
    2. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      Bonjour,

      Le code fournit est un exemple avec des boutons de commande. Pour vous,

      'code a mettre a l'activation ou ouverture du formulaire qui s'ouvre le premier:
      DoCmd.ShowToolbar "Ribbon", acToolbarNo
      DoCmd.NavigateTo "acNavigationCategoryObjectType" 'Select Navigation Pane
      DoCmd.RunCommand acCmdWindowHide 'Hide selected

      'code a mettre a la fermeture de la base si besoin:
      DoCmd.ShowToolbar "Ribbon", acToolbarYes
      DoCmd.SelectObject acTable, , True
      0