Zur Hauptseite ... Zum Onlinearchiv ... Zum Abonnement ... Zum Newsletter ... Zu den Tools ... Zum Impressum ... Zum Login ...

Gruppen und Benutzer

Im vorliegenden Beitrag finden Sie einige Informationen ber die Verwaltung von Gruppen und Benutzern. Dazu gehrt das Anlegen, Entfernen, Anzeigen von Benutzern und Gruppen per VBA mit DAO und ADO. Dieser Beitrag unterliegt regelmigen Erweiterungen.

Ausgabe aller Benutzer (ADO)

Die folgende Funktion gibt die Namen aller Benutzer der mit der Verbindung cnn verbundenen Datenbank aus.

Public Function AlleBenutzer()

    Dim cnn As ADODB.Connection

    Dim cat As New ADOX.Catalog

    Dim Benutzer As User

    Set cnn = CurrentProject.Connection

    Set cat.ActiveConnection = cnn

    For Each Benutzer In cat.Users

        Debug.Print Benutzer.Name

    Next Benutzer

End Function

Ausgabe aller Gruppen eines Benutzers (ADO)

Die folgende Funktion gibt alle Gruppen aus, zu denen der Benutzer mit dem im Parameter strBenutzername angegebenen Namen gehrt.

Public Function GruppeErmitteln(strBenutzername As String) As String

    Dim cnn As ADODB.Connection

    Dim cat As New ADOX.Catalog

    Dim Gruppe As Group

    Set cnn = CurrentProject.Connection

    Set cat.ActiveConnection = cnn

    For Each Gruppe In cat.Users(strBenutzername).Groups

        Debug.Print Gruppe.Name

    Next Gruppe

End Function

berprfen, ob ein Benutzer Mitglied einer bestimmten Gruppe ist

Mit nachfolgende Funktion knnen Sie berprfen, ob der Benutzer strBenutzer der Gruppe strGruppe angehrt.

Public Function IstGruppenmitglied(strBenutzer As String, strGruppe As String) As Boolean

    Dim cnn As ADODB.Connection

    Dim cat As New ADOX.Catalog

    Dim Gruppe As Group

    Set cnn = CurrentProject.Connection

    Set cat.ActiveConnection = cnn

    For Each Gruppe In cat.Users(strBenutzer).Groups

        If Gruppe.Name = strGruppe Then

            IstGruppenmitglied = True

            Exit Function

        End If

    Next Gruppe

End Function

Um herauszufinden, welcher Gruppe der aktuelle Benutzer angehrt, kann folgender Aufruf verwendet werden, wobei <Gruppenname> durch den gewnschten Gruppennamen ersetzt werden muss:

IstGruppenmitglied(CurrentUser, <Gruppenname>)

© 2003-2015 André Minhorst Alle Rechte vorbehalten.