V
Vayse
Hi
I want to enable a button if the user is a member of the Managers group.
How can I determine through code what Groups a user is in?
Thanks
Vayse
P.S. Here's what I have so far
Dim accUser As dao.User
Const conMANAGER As String = "Managers"
Dim iLoop As Integer
accUser.Name = CurrentUser ' Fails here
For iLoop = 0 To accUser.Groups.Count
If accUser.Groups(iLoop).Name = conMANAGER Then
Me.cmdDelete.Enabled = True
End If
Next
I want to enable a button if the user is a member of the Managers group.
How can I determine through code what Groups a user is in?
Thanks
Vayse
P.S. Here's what I have so far
Dim accUser As dao.User
Const conMANAGER As String = "Managers"
Dim iLoop As Integer
accUser.Name = CurrentUser ' Fails here
For iLoop = 0 To accUser.Groups.Count
If accUser.Groups(iLoop).Name = conMANAGER Then
Me.cmdDelete.Enabled = True
End If
Next