Discussion :

[Angelle]

bonjour tout le monde.

pour ma base access j'aimerai bien personnalisé l'affichage (onglet visible ou non, pareil pour certains contrôles...) tout ça en fonction du groupe auquel appartient l'utilisateur en cours
j'ai essayé plusieur codes (en m'inspirant de la faq et du forum) mais ça ne marche pas (erreur "Utilisation incorrecte de la propriété")
voilà le code que j'ai pour l'instant:

Code :

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

1
2
3
4
5
6
Private Sub Form_Load()
Dim user As DAO.user, groupe As DAO.Groups
Set user = DBEngine.Workspaces(0).Users(DBEngine.Workspaces(0).UserName)
groupe = user.Groups
  Select Case groupe
[...]

merci par avance ^_^

[Muhad'hib]

Salut,

Moi j'utilise une fonction pour tester si un utilisateur appartient ou non à un groupe :

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
Function fAppartientGroupeAccess(strNomUtil As String, strNomGroupe As String) As Boolean
 
    Dim wrkCurrent As Workspace
    Dim usrCurrent  As user
    Dim gruCurrent As Group
    Dim intCpt As Integer, intCpt2 As Integer
 
 
   On Error GoTo fAppartientGroupeAccess_Error
 
    fAppartientGroupeAccess = False
    intExisteNomUtil = False
 
    Set wrkCurrent = DBEngine(0)
    'trouve le bon user
    For intCpt = 0 To wrkCurrent.Users.Count - 1
        Set usrCurrent = wrkCurrent.Users(intCpt)
        If strNomUtil = usrCurrent.Name Then
 
            'test si la collection des groupes liée à l'utilisateur contient strNomGroupe
            For intCpt2 = 0 To usrCurrent.Groups.Count - 1
                Set gruCurrent = usrCurrent.Groups(intCpt2)
                If strNomGroupe = gruCurrent.Name Then fAppartientGroupeAccess = True
            Next intCpt2
 
        End If
 
    Next intCpt
 
 
 
 
 
   On Error GoTo 0
 
fAppartientGroupeAccess_Exit:
 
    Set wrkCurrent = Nothing
    Set usrCurrent = Nothing
    Set gruCurrent = Nothing
 
    Exit Function
 
fAppartientGroupeAccess_Error:
 
 
    MsgBox "Erreur inatendue N°" & Err.Number & " (" & Err.Description & ") dans la fonction/procedure fAppartientGroupeAccess du module Module1"
 
    GoTo fAppartientGroupeAccess_Exit:
 
 
End Function

Que tu peux utilisée comme ça :

Code :

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

1
2
 
Me.Bc_Svg.Visible = fAppartientGroupeAccess(CurrentUser, "DEVELOPPEUR")

Si l'utilisateur en cours appartient au groupe "Developpeur" alors le controle "bc_svg" sera visible.

A+

[Angelle]

merci beaucoup pour ta réponse, ça à l'air de marcher impec!!