Get User Group Name from CurrentUser
กระทู้เก่าบอร์ด อ.สุภาพ ไชยา

 266   1
URL.หัวข้อ / URL
Get User Group Name from CurrentUser

ถามไว้ที่ 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

1 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R06682
   
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.0564s