Discussion :

[scorpking]

Bonjours,

malgré mes recherche je n'arrive pas à trouver quel est l'objet qui contrôle la fenêtre de base de donnée en vba, j'aimerai pouvoir contrôler l'affichage de cette dernière a partir de mon code plutôt que par le fichier de sécurité ou les options de démarrage, j'aimerai aussi pouvoir n'afficher que un seul des objets

comme pour les barres de commandes avec le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.CommandBars(X).Enabled = False/True

Est ce au moins possible?

merci a ceux qui pourront m'eclairer

[jimbolion]

scorpking bonsoir,

Est ce que cette discussion règle ton problème

http://www.developpez.net/forums/d58...n-commandbars/

JimBoLion

[scorpking]

non j'ai donner l'exemple des barre de commande car elles je les ai trouvé.

Je cherche a faire la même chose sur la fenêtre de base de donnée pour pouvoir cacher les formulaire les tables laisser par exemple les macro et les requêtes de préférence en vba ou par une config qui n'ai pas besoin d'un fichier de sécurité car on as pas besoin que les utilisateur se log juste de leur afficher les bons outils en fonction de leur niveau d'accès

[jimbolion]

En 2003 si je ne me trompe on est encore en mdb

Donc tu utiliseras la gestion des groupes et utilisateurs (mdw)

sinon une lecture de ce fil de discussion devrait t'éclairer

http://www.developpez.net/forums/d13...curite-lappli/

JimBoLion

[LedZeppII]

Bonjour,

Je cherche a faire la même chose sur la fenêtre de base de donnée pour pouvoir cacher les formulaire les tables laisser par exemple les macro et les requêtes de préférence en vba ou par une config qui n'ai pas besoin d'un fichier de sécurité car on as pas besoin que les utilisateur se log juste de leur afficher les bons outils en fonction de leur niveau d'accès

Dans la fenêtre des objets base de données, on sait masquer des objets avec Application.SetHiddenAttribute.
Il faut cependant que dans les options, on n'ait pas activé l'affichage des objets cachés.

Sinon, pour faire quelque chose de simple, je cacherai la fenêtre de base de données et je créerai un formulaire pour s'y substituer.
Si le nombre d'objets n'est pas trop grand, tu crée un bouton pour chaque objet.
Ensuite, selon le niveau de privilège de l'utilisateur, tu désactives des boutons.
Pour un grand nombre d'objets, je passerai par une zone de liste.

A+

[scorpking]

Merci pour vos réponses je vais étudier ces possibilités

l'idée du bouton et du sethidden est un bonne voie car je doit donner un droit d'édition de requête à un administrateur mais je ne veux pas qu'il accèdes aux autre requêtes de fonctionnement du programme ni aux formulaires ou au code

aurai tu des lien pour m'aider a comprendre cette substitution car j'ai déjà réfléchit à cette option mais je n'ai pas vu comment faire ni si c'était possible

edit : un peu de recherche dans les actions possible et j'ai réussi

voici mon code si celà peux un jour servir à quelqu'un

ouvrir créer et supprimer sont des boutons

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
32
33
34
35
36
37
38
Private Sub Ouvrir_Click()
    ouvrir_query
End Sub
 
 
Private Sub Creer_Click()
    DoCmd.RunCommand acCmdNewObjectQuery
End Sub
 
Private Sub supprimer_Click()
    DoCmd.SelectObject acQuery, Me.Liste_query.Column(0, Me.Liste_query.ItemsSelected), True
    DoCmd.RunCommand acCmdDelete
    Call refresh_liste
End Sub
 
Private Sub Form_Current()
   Call refresh_liste
End Sub
 
Private Sub Liste_query_DblClick(Cancel As Integer)
    ouvrir_query
End Sub
 
Private Sub refresh_liste()
     Me.Liste_query.RowSource = ""
    Dim db As DAO.Database, qd As DAO.QueryDef
 
    Set db = CurrentDb
    For Each qd In db.QueryDefs
        If (Left(qd.Name, 1) <> "~") And (Left(qd.Name, 7) <> "program") Then
           Me.Liste_query.AddItem qd.Name
        End If
    Next
End Sub
 
Sub ouvrir_query()
    DoCmd.OpenQuery Me.Liste_query.Column(0, Me.Liste_query.ItemsSelected), acViewDesign
End Sub