VBA에서 모든 MS Access 보안 그룹을 찾을 수있는 방법

Question

VBA를 통해 응용 프로그램의 모든 MS Access 보안 그룹 목록을 찾으려면 어떻게합니까?

도구 -> 보안 -> 사용자 및 그룹 계정으로 가면 알 수 있지만 VBA를 통해 수행하고 싶습니다. (사용자 생성 루틴을 자동화하고 싶습니다.)

나는 모든 그룹에 할당 된 더미 사용자를 추가하고 사용자가 할당 한 그룹을 끌어 올리는 것을 고려해 보았지만이를 수행하는 더 깨끗한 방법이 필요합니다.

Answer 1

발견!

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