Problème avec un Menu Access

Version imprimable

18/12/2013, 11h21
AUDOMAROIS

Problème avec un Menu Access

Bonjour,

C'est mon premier Post sur ce Forum.
Voici mon problème.

J'utilisais Access 2003 et ensuite Access 2007. Dans ma base j'avais un MENU général qui s'ouvrait automatiquement à l'ouverture de la base. Ce MENU, j'avais trouvé les options pour qu'il s'ouvre sans laisser voir la liste des tables, requêtes, formulaires et états, dans la partie gauche de l'écran. L'utilisateur utilisait la base en se servant des boutons des différents menus que j'avais créés (formulaires).
Avec Access 2010, j'ai réussi à créer un MENU général qui s'ouvre automatiquement (tout est dans les options du menu fichiers).
Mais je ne trouve pas l'endroit où je peux bloquer à l'ouverture la listes des tables, etc... :cry:
Un MENU général n'a d'intérêt, selon moi, que si on ne peut pas accéder aux tables, etc... autrement que par ce MENU.

Qui peut m'aider ?

Merci d'avance.
B
18/12/2013, 12h30
Gado2600

Bonjour,
Les options que tu cherches se trouvent dans :
Fichier
=> Options
==> Base de données active
===> Option de l'application
====> Décoche Activer le mode Page
====> Autoriser les modifications de structure des tables en mode Feuille de données

===> Navigation
====> Décoche Afficher le volet de navigation

Après, il existe un code pour verrouiller tout ça avec un bouton.
Ne pas oublier de redémarrer la base de données ensuite :)
18/12/2013, 17h46
AUDOMAROIS

Citation:

Envoyé par Gado2600

Bonjour,
Les options que tu cherches se trouvent dans :
Fichier
=> Options
==> Base de données active
===> Option de l'application
====> Décoche Activer le mode Page
====> Autoriser les modifications de structure des tables en mode Feuille de données

===> Navigation
====> Décoche Afficher le volet de navigation

Après, il existe un code pour verrouiller tout ça avec un bouton.
Ne pas oublier de redémarrer la base de données ensuite :)
18/12/2013, 17h48
AUDOMAROIS

Merci pour la réponse.
Je vais voir tout cela.

Je devrai sans doute devoir revenir pour avoir des explication sur le dernier paragraphe de votre mail.

@+
B
18/12/2013, 18h09
AUDOMAROIS

Merci Gado, j'ai essayé les manipulations et cela fonctionne.:ccool:

Petit bémol cependant.
Dans les versions précédentes l'utilisateur qui ouvrait la BDD ne pouvait pas recocher les cases que j'avais décochées.
Pour avoir de nouveau la main sur la BDD intégrale il fallait l'ouvrir en appuyant sur la touche MAJUSCULE du clavier. Et tout le monde ne connaissait pas la manip.

D'après la fin de ton mail, il y aurait un code pour verrouiller tout cela à l'aide d'un bouton !!!
Puis-je en savoir plus ?

Merci.:)
B
18/12/2013, 18h33
Tofalu

Voir dans la FAQ comment inhiber la touche maj ;)
18/12/2013, 19h55
AUDOMAROIS

Merci Tofalou,

J'ai trouvé la manip dans les FAQs, mais je ne vois pas à quoi elle pourrait me servir.
L'utilisateur de ma base rentre normalement dedans, il ne voit pas la liste des objets (tables, requêtes etc ...) à gauche de l'écran, il ne se déplace dans la BDD que par le biais des MENUS. Par contre s'il connaît le truc, il va dans Fichier/Options, il décoche ce que j'avais décoché, et il voit tout.

J'attends la réponse de Gado, sur ce bouton dont il parle à la fin de son mail.

@+

B
19/12/2013, 07h53
madefemere

Bonjour à tous,

Tu cherches ce genre de code ?

Bonne continuation

Bonjour,
Dsl pour l'absence :)
Je parlais plutôt de ce code là qui reprend les fonctionnalités que cherchait AUDOMAROIS :

Code:

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
Private Sub Commande46_Click()
    DoCmd.SetWarnings False
        If CurrentDb.Properties("StartUpShowDBWindow") Then
            ' On masque le ruban
            ' On masque les tables etc
            CurrentDb.Properties("StartUpShowDBWindow") = False
            DoCmd.RunSQL "UPDATE T_Verrouillage SET Verrouiller=0 WHERE [N°]=1"
        Else
            ' On masque le ruban
            ' On masque les tables etc
            CurrentDb.Properties("StartUpShowDBWindow") = True
            DoCmd.RunSQL "UPDATE T_Verrouillage SET Verrouiller=-1 WHERE [N°]=1"
        End If
    DoCmd.SetWarnings True
        ' Fermeture de la base de données pour application les changements
        Application.Quit
End Sub
 
Private Sub Commande47_Click()
    DoCmd.SetWarnings False
    DoCmd.ShowToolbar "Ribbon", acToolbarYes
    DoCmd.RunSQL "UPDATE T_Verrouillage SET Verrouiller=0 WHERE [N°]=1"
    DoCmd.SetWarnings True
End Sub
 
Private Sub Commande48_Click()
    DoCmd.SetWarnings False
    DoCmd.ShowToolbar "Ribbon", acToolbarNo
    DoCmd.RunSQL "UPDATE T_Verrouillage SET Verrouiller=-1 WHERE [N°]=1"
    DoCmd.SetWarnings True
End Sub

A savoir que j'ai une table qui contrôle le verrouillage de l'application pour je ne sais plus quoi qui s'affichait par défaut à l'ouverture de la base.
Bref, voilà ;)

19/12/2013, 17h54
AUDOMAROIS

Bonsoir,

Merci à tous pour vos interventions.

Cependant mes connaissances en code VBA étant ce qu'elles sont, à savoir au niveau de zéro, je vais m'abstenir et en rester à décocher quelques options comme décrites par Gado.

Encore MERCI. :ccool: