Discussion :

[flash2590]

Bonjour,

Je dois créer une interface utilisateur pour la gestion d'une discothèque via access permettant la consultation, l'édition ou la modification d'une base de données suivant le type d'utilisateur.
A la différence de ce que j'ai lu sur la sécurité sous access ou l'on utilise le menu sécurité, et ou c'est access qui ce charge de vous demander avec son propre menu les identifiants et les vérifies dans son propre fichier, je souhaiterai que ce soit mon propre menu qui soit chargé (jusque la pas de problème).
Que l'accès aux autres menus ce fasse une fois l'id et le mot de passe vérifiés dans ma propre table (pas de problème non plus) qui fait partie de ma bdd bien sur.
Si c'est un adhérent qui ce connecte, il n'a que le droit de consultation au travers des formulaires. Donc access doit être chargé sans les outils d'éditions. Pareille si c'est le disquaire, les possibilités supplémentaires sont gérées directement par les formulaires. Par contre si c'est un administrateur les menus d'édition doivent apparaitre.
C'est la tous le problème, comment gérer les droits et changer le mode d'access une fois la bdd lancée? (Cela supposerai que access ce lance avec les droits minimum dès le départ).
Merci d'avance

[Tofalu]

A la différence de ce que j'ai lu sur la sécurité sous access ou l'on utilise le menu sécurité, et ou c'est access qui ce charge de vous demander avec son propre menu les identifiants et les vérifies dans son propre fichier, je souhaiterai que ce soit mon propre menu qui soit chargé (jusque la pas de problème).

Je veux bien que tu parles de personnalisation de l'interface mais pas de sécurité. Cette protection se craque en moins de 10 secondes avec les codes et les outils de ce forum

A toi de voir si tu veux une solution sécurisée ou pas

[flash2590]

Cette bdd n'est qu'un simple tp, donc il n'y a aucun impératif de sécurité. La table qui contient les mots de passe n'est même pas cryptée. Je voulais juste savoir comment faire quand je lance ma base de données, pour qu'access ce lance par défaut avec des droits minimum, et que, une fois la connexion faite au travers mon formulaire, si c'est un administrateur qui ce connecte, les outils de modification de bdd ce charge. Je suppose que l'on doit pouvoir faire tous ceci directement en vba, mon idée était de compléter les fonctions suivantes qui sont les fonctions appelées une fois la connexion faite suivant la catégorie de l'utilisateur. On peut voir d'ailleurs que je grise certaine possibilité à partir du menu générale quand c'est un adhérent qui ce connecte, il faudrait rajouter l'impossibilité de modifier la bdd. Est ce que je vous ai un peu plus éclairé sur ce que je voulais faire?

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
Public Sub ConnectAdherent()
    Dim cDataBase As Database
    Set cDataBase = CurrentDb
    DoCmd.OpenForm "menu_general"
    'cDataBase.Updatable = False
    Forms!FMenuGeneral!SAdherent.Enabled = False
    Forms!FMenuGeneral!AAdherent.Enabled = False
    Forms!FMenuGeneral!adherents.Enabled = False
    Forms!FMenuGeneral!Autres.Enabled = False
    'Forms!FMenuGeneral!Editions.Activate = False
    Forms!FMenu.Visible = False
End Sub
 
'connexion d’un disquaire
Public Sub ConnectDisquaire()
    Dim cDataBase As Database
    Set cDataBase = CurrentDb
    DoCmd.RunMacro "menu_general"
    'cDataBase.Updatable = True
    Forms!FMenuGeneral!SAdherent.Enabled = True
    Forms!FMenuGeneral!AAdherent.Enabled = True
    Forms!FMenuGeneral!adherents.Enabled = True
    Forms!FMenuGeneral!Autres.Enabled = True
    Forms!FMenu.Visible = False
End Sub
 
'connexion d’un Admin
Public Sub ConnectAdmin()
    Dim cDataBase As Database
    Set cDataBase = CurrentDb
    DoCmd.RunMacro "menu_general"
    'cDataBase.Updatable = True
    Forms!FMenuGeneral!SAdherent.Enabled = True
    Forms!FMenuGeneral!AAdherent.Enabled = True
    Forms!FMenuGeneral!adherents.Enabled = True
    Forms!FMenuGeneral!Autres.Enabled = True
    Forms!FMenu.Visible = False
End Sub