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
| Public Function User() As Integer
Dim strUser As String
Dim esp As Workspace
On Error Resume Next
strUser = Application.CurrentUser
Set esp = DBEngine.Workspaces(0)
'L'instruction suivante provoque ou non une erreur
strUser = esp.Users(strUser).Groups("admins").Name
If Err.Number = 3265 Then
'élément non trouvé dans cette collection, l'utilisateur n'est pas administrateur
DoCmd.OpenForm "mainmnu", , , , , acWindowNormal
End If
If Err.Number > 0 Then
'autre erreur
User = 0
End If
If Err.Number = 0 Then
'l'utilisateur appartient au groupe 'administrateur'
DoCmd.ShowToolbar "gestocks", acToolbarYes
DoCmd.OpenForm "mainmenu", , , , , acWindowNormal
End If
End Function |
Partager