ถามไว้ที่ http://www.utteraccess.com/forums/showflat.php?Cat=&Board=access_97&Number=169493&page=0&view=collapsed&sb=5&o=7&fpart=1 
 
เขาใช้ User-Level Security และต้องการที่จะว่า ผู้ใช้คนปัจจุบันอยู่ใน User Group ไหน 
 
ผมให้โค้ดเขาไปดังนี้ครับ 
 
Function GetCurrentGrp(Optional strUser As String) As String 
Dim wsp AsWorkspace 
Dim usr As User, grp As Group 
Set wsp = DBEngine.Workspaces(0) 
If Len(Trim(strUser)) = 0 Then 
    strUser = CurrentUser 
End If 
For Each grp In wsp.Groups 
    For Each usr In grp.Users 
        If usr.Name = strUser Then 
            GetCurrentGrp = grp.Name 
            Exit Function 
        End If 
    Next usr 
Next grp 
wsp.Close 
Set wsp = Nothing 
End Function  *** Edited by Supap Chaiya *** 7/8/2546 8:06:57