Как найти все группы безопасности MS Access в VBA? - PullRequest
Новая
       6

Как найти все группы безопасности MS Access в VBA?

0 голосов
/ 03 декабря 2010

Как найти список всех групп безопасности MS Access в моем приложении через VBA?

Я знаю, что могу сделать это, перейдя в Инструменты-> Безопасность-> Учетные записи пользователей и групп, но я бы хотел сделать это через VBA (я бы хотел автоматизировать некоторые из моих процедур создания пользователей).

Я рассмотрел добавление фиктивного пользователя, назначенного для всех групп, и просто извлечение групп, которым он назначен, от пользователя, но должен быть более чистый способ сделать это.

1 Ответ

0 голосов
/ 03 декабря 2010

Нашли! 

Dim curr_group As Group
Dim group_cnt As Long
Dim group_ndx As Long

Dim strGroup As String
Dim strGroupList As String

    strGroupList = ""
    group_cnt = DBEngine(0).Groups.Count
    For group_ndx = 0 To group_cnt - 1
        Set curr_group = DBEngine(0).Groups(group_ndx)
        strGroup = curr_group.Name
        If strGroupList = "" Then
            strGroupList = strGroup
        Else
            strGroupList = strGroupList & ";" & strGroup
        End If
    Next group_ndx
    Me.lbxSysGroups.RowSource = strGroupList
...