Gruppen und BenutzerIm vorliegenden Beitrag finden Sie einige Informationen über die Verwaltung von Gruppen und Benutzern. Dazu gehört das Anlegen, Entfernen, Anzeigen von Benutzern und Gruppen per VBA mit DAO und ADO. Dieser Beitrag unterliegt regelmäßigen 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 gehört.
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 Überprüfen, ob ein Benutzer Mitglied einer bestimmten Gruppe istMit nachfolgende Funktion können Sie überprüfen, ob der Benutzer strBenutzer der Gruppe strGruppe angehört.
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 angehört, kann folgender Aufruf verwendet werden, wobei <Gruppenname> durch den gewünschten Gruppennamen ersetzt werden muss:
IstGruppenmitglied(CurrentUser, <Gruppenname>) |
