Base 2000/2010 en mode Exécutable
Tessel75
-
Tessel75 -
Tessel75 -
Bonjour,
A partir d'une Base Access 2000, convertie en Access 2010, je souhaite l'ouvrir en mode "exécutable".
A partir de l'onglet "Fichier/Option/BaseActive", j'ai bien coché la case "Fenêtres Superposées" et décoché le bouton"Afficher le volet de navigation", ainsi que sélectionné le formulaire que je veux pour l'ouverture. Pourtant, si le formulaire d'ouverture s'ouvre bien comme il faut, dès que je passe au 2ème formulaire (commandé par click sur le 1er), le volet de navigation (à gauche) donnant accès à toute la machinerie de la base, apparaît, ce que je ne veux précisément pas.
Quelque chose a dû m'échapper, mais quoi? C'est bien ma question.
En vous remerciant pour vos réponses.
A partir d'une Base Access 2000, convertie en Access 2010, je souhaite l'ouvrir en mode "exécutable".
A partir de l'onglet "Fichier/Option/BaseActive", j'ai bien coché la case "Fenêtres Superposées" et décoché le bouton"Afficher le volet de navigation", ainsi que sélectionné le formulaire que je veux pour l'ouverture. Pourtant, si le formulaire d'ouverture s'ouvre bien comme il faut, dès que je passe au 2ème formulaire (commandé par click sur le 1er), le volet de navigation (à gauche) donnant accès à toute la machinerie de la base, apparaît, ce que je ne veux précisément pas.
Quelque chose a dû m'échapper, mais quoi? C'est bien ma question.
En vous remerciant pour vos réponses.
A voir également:
- Base 2000/2010 en mode Exécutable
- Mode avion - Guide
- Mode sécurisé samsung - Guide
- God mode - Guide
- Mode d'emploi - Guide
- Mode suivi des modifications - Guide
1 réponse
Bonjour,
A defaut faites le par programme, en plus Cache/Affiche Ruban
A defaut faites le par programme, en plus Cache/Affiche Ruban
'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
'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
Néanmoins, je laisse la question ouverte au cas où une autre réponse pertinente se présenterait.
Bonne journée.