www.softwaredevelopmentdeveloper.com
옥션 아이폰/아이팟 집에서 즐기기 롯데마트 11번가 주민등록번호 도용사실이 있는지 확인해 보세요! CJmall 회원가입 도메인 NO.1-호스팅 NO.1 든든한 웹파트너 가비아 ! 건담 전문몰 건담샵 No.1 중고차 쇼핑몰! SK엔카
아래출처는 http://ad.web2r.net/r.php?c=shop 입니다.
******************************************************************************************************
Users (list all Users in workspace)
******************************************************************************************************
Option Compare Database
Option Explicit
'Lists all users in a workspace
Sub ShowAllUsers()
Dim ws As Workspace
Dim usr As User
Set ws = DBEngine.Workspaces(0)
ws.Users.Refresh
For Each usr In ws.Users
Debug.Print "User: " & usr.Name
Next usr
End Sub
'Lists all Groups in a Workspace
Sub ShowAllGroups()
Dim ws As Workspace
Dim grp As Group
Set ws = DBEngine.Workspaces(0)
ws.Groups.Refresh
For Each grp In ws.Groups
Debug.Print "Group: " & grp.Name
Next grp
End Sub