Supprimer le ruban dans Access 2007

Résolu
DevGl Messages postés 136 Date d'inscription   Statut Membre Dernière intervention   -  
f894009 Messages postés 17277 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

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
DevGl Messages postés 136 Date d'inscription   Statut Membre Dernière intervention  
 
comment je vais le faire s'il vous plaait??? ou je dois mettre ce petit code??? je créer un formulaire ou quoi??
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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