ส่วนวันนี้มีคนถามคำถามเกี่ยวกับ Users ใน *.mdw ว่ามีใครบ้างที่ http://www.quicktechusa.com/msgboard/wwwboard.pl?read=17071 ความจริง User ทุกคนจะอยู่ในกลุ่ม Users Group ด้วย จึงสามารถที่จะแสดงชื่อของ User ทุกคนจาก Group ดังกล่าวได้ ผมได้ให้ตัวอย่างโค้ดไว้ดังนี้ Sub GetAllUsers() Dim wsp As Workspace Dim usr As User, grp As Group On Error Resume Next ' Return referenct to default workspace. Set wsp = DBEngine.Workspaces(0) ' Return reference to current database. For Each grp In wsp.Groups Debug.Print grp.Name For Each usr In grp.Users Debug.Print "---->" & usr.Name Next usr Next grp Set wsp = Nothing End Sub