VBA kode til at checke bruger eksistens

Denne funktion fortæller om en bruger findes i arbejdsgruppen:

Public Function InGroup(Gruppe As String) As Boolean
    On Error Resume Next

    Dim wrkDefault As Workspace
    Dim Usr As User
    Set wrkDefault = DBEngine.Workspaces(0)

    For Each Usr In wrkDefault.Groups(Gruppe).Users
        If Usr.Name = CurrentUser Then InGroup = True
    Next Usr
   
   
End Function

Koden kræver reference til DAO

kigger lige på listen over brugere....

Her er den. den skriver bare listen i Immidiate-vinduet:
Public Function ListUsersInWorkgroup()
    Dim n As Long
    Dim wrkDefault As Workspace
    Dim Usr As User
    Set wrkDefault = DBEngine.Workspaces(0)
    For n = 0 To wrkDefault.Users.Count - 1
        Debug.Print wrkDefault.Users(n).Name
    Next n
End Function

Der var vist en overflødig linie:

Public Function ListUsersInWorkgroup()
    Dim n As Long
    Dim wrkDefault As Workspace
    Set wrkDefault = DBEngine.Workspaces(0)
    For n = 0 To wrkDefault.Users.Count - 1
        Debug.Print wrkDefault.Users(n).Name
    Next n
End Function

Jeg takker og bukker.

Anytime :o)