Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access droits d'acès

droits d'acès

3 réponses
Avatar
Veille Technologique
Bonjour,

J'ai sécurisé un BDD access 2k. Je voudrais savoir :
- Le nom complet de l'utilisateur. Son nom de login, je l'ai par un fonctoin
GetUser, ou UserName (chai plus)
- De quels groupes l'utilisateur fait parti
- quels droits d'accès il a sur les tables
- s'il peut modifier le formulaire qui s'ouvre au démmarrage de ma base
Merci pour les réponses
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
3stone
Salut,

"Veille Technologique"
J'ai sécurisé un BDD access 2k. Je voudrais savoir :
- Le nom complet de l'utilisateur. Son nom de login, je l'ai par un fonctoin
GetUser, ou UserName (chai plus)
- De quels groupes l'utilisateur fait parti
- quels droits d'accès il a sur les tables
- s'il peut modifier le formulaire qui s'ouvre au démmarrage de ma base



Fait beaucoup de questions... ;-)


Et ici, une partie des réponses:
http://access.jessy.free.fr/htm/Admin/Admin.htm



--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------

Avatar
Veille Technologique
Ok, merci pour les billes. La fonction GroupUser m'intéresse. Et la fonction
que je connaissais était CurrentUser.
Merci. Je vais tâter dans l'aide d'access avec l'objet WorkSpace. Vous
tiensinformé de mes solutions.

@+
"3stone" a écrit dans le message de
news:OLao%
Salut,

"Veille Technologique"
J'ai sécurisé un BDD access 2k. Je voudrais savoir :
- Le nom complet de l'utilisateur. Son nom de login, je l'ai par un
fonctoin


GetUser, ou UserName (chai plus)
- De quels groupes l'utilisateur fait parti
- quels droits d'accès il a sur les tables
- s'il peut modifier le formulaire qui s'ouvre au démmarrage de ma base



Fait beaucoup de questions... ;-)


Et ici, une partie des réponses:
http://access.jessy.free.fr/htm/Admin/Admin.htm



--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------







Avatar
Maître Nicolède
Bonjour, c'est toujours moi sous un autre pseudo
Voici comment j'ai résolu mon problème :
code dans le formulaire d'accueil de mon appli (menu général) :
Private Sub Form_Open(Cancel As Integer)

Me.Caption = Me.Caption & " (" & Application.CurrentUser & ")"

Dim iNoUser As Integer, iNoGroup As Integer, iNbUser As Integer, iNbGroups As Integer
Dim oWks As Workspace, oUsr As Users, oGrp As Groups

Set oWks = DBEngine.Workspaces(0): Set oUsr = oWks.Users: iNbUser = oUsr.Count - 1

For iNoUser = 0 To iNbUser
Debug.Print oUsr(iNoUser).Name & " (Utilisateur" & iNoUser & "): ";
Set oGrp = oUsr(iNoUser).Groups: iNbGroups = oGrp.Count - 1
For iNoGroup = 0 To iNbGroups
Debug.Print oGrp(iNoGroup).Name & " (Groupe" & iNoGroup & ")",
Next iNoGroup
Debug.Print
Next iNoUser

On Error Resume Next
Debug.Print oWks.Users(CurrentUser).Groups("Lecture seule").Name
Select Case Err.Number
Case 0
Debug.Print "L'utilisateur " & oWks.UserName & " est en lecture seule"
Case 3265
Debug.Print "L'utilisateur " & oWks.UserName & " N'est PAS en lecture seule"
Case Else
Debug.Print "Erreur " & Err.Number; " : " & Err.Description
End Select

End Sub
Bon, une grande partie est superflue. Elle est présente à titre d'exemple.

Et maintenant son application sur un formulaire :
Private Sub Form_Open(Cancel As Integer)

DoCmd.Maximize ' plein écran
Me.ssfrmColoris.SetFocus ' positionne le focus sur un sous formulaire
' test de l'appartenance de l'utilisateur connecté à la base au groupe "Lecture seule" ayant des droits en lecture seule
If DBEngine.Workspaces(0).Users(CurrentUser).Groups(0).Name = "Lecture seule" Then
' attention, dans mon cas, le groupe par défaut (group(0)) est bien le groupe qui m'intéresse.
' A adapter selon vos cas
Dim oCtrl As Control ' définition d'un objet de type Control
Set oCtrl = Me.btnOpérations: GoSub MajCtrl ' on affecte la variable oCtrl au contrôle du formulaire à traiter
Set oCtrl = Me.btnMinMaj: GoSub MajCtrl ' et on exécute la sous routine interne à la procédure
Set oCtrl = Me.btnMajMetr: GoSub MajCtrl
Set oCtrl = Me.ssfrmContionnements!btnMinMaj: GoSub MajCtrl
Set oCtrl = Me.ssfrmSpeciaux!btnMinMaj: GoSub MajCtrl
Set oCtrl = Me.ssfrmSupplements!btnMinMaj: GoSub MajCtrl
End If
Exit Sub

MajCtrl: ' sous routine de mise à jour du contrôle
With oCtrl ' on désactive le contrôle et on modifie ses propriétés Légende et Texte d'info-bulle
.Enabled = False: .Caption = "Consultation": .ControlTipText = "Tu es en lecture seule"
End With

Return

End Sub


"Veille Technologique" a écrit dans le message de news:c6r5s5$gl7$
| Bonjour,
|
| J'ai sécurisé un BDD access 2k. Je voudrais savoir :
| - Le nom complet de l'utilisateur. Son nom de login, je l'ai par un fonctoin
| GetUser, ou UserName (chai plus)
| - De quels groupes l'utilisateur fait parti
| - quels droits d'accès il a sur les tables
| - s'il peut modifier le formulaire qui s'ouvre au démmarrage de ma base
| Merci pour les réponses
|
|