آیا تابعی هست که گروه کاربر جاری را نشان دهد؟

[saeedyaz]

سلامی به گرمی یک شومینه در یک کلبه کوهستانی در زمستانی پر برف.....

دوستان میشود گروه مربوط به کاربرجاری را در جایی داشت واستفاده کرد؟
مانندcurrentuser()

[شاپرک]

منظور از گروه چیه؟

[شاپرک]

یک تابع مفید :


Environ(i)
Result=====

i=1 ALLUSERSPROFILE=C:\Documents and Settings\All Users
i=2 APPDATA=C:\Documents and Settings\bbaskara\Application Data
CLIENTNAME=Console
CommonProgramFiles=C:\Program Files\Common Files
COMPUTERNAME=BENOY-RAJ
ComSpec=C:\WINDOWS\system32\cmd.exe
HOMEDRIVE=C:
HOMEPATH=\Documents and Settings\benoy
LOGONSERVER=\\PILOT03
NUMBER_OF_PROCESSORS=1
OS=Windows_NT
Path=C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\Sys tem32\Wbem;C:\Program Files\Microsoft SQL Server\80\Tools\BINN;C:\MSSQL7\BINN;C:\Program Files\Microsoft SQL Server\80\Tools\Binn\
PATHEXT=.COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WS F;.WSH
PROCESSOR_ARCHITECTURE=x86
PROCESSOR_IDENTIFIER=x86 Family 6 Model 7 Stepping 3, GenuineIntel
PROCESSOR_LEVEL=6
PROCESSOR_REVISION=0703
ProgramFiles=C:\Program Files
SESSIONNAME=Console
SystemDrive=C:
SystemRoot=C:\WINDOWS
TEMP=C:\DOCUME~1\benoy\LOCALS~1\Temp
TMP=C:\DOCUME~1\benoy\LOCALS~1\Temp
USERDNSDOMAIN=
USERDOMAIN=
USERNAME=benoy
USERPROFILE=C:\Documents and Settings\benoy
VS80COMNTOOLS=C:\Program Files\Microsoft Visual Studio 8\Common7\Tools\
windir=C:\WINDOWS

[saeedyaz]

سلام
درسیستمهای workgroup اکسس ماگروههایی داریم مانند read only-admin-edit able,... حالا ما می خواهیم این گروه را بازشناسی کنیم در اکسس شناسایی کاربر جاری را دارد که تابع آن curentuser() میباشد ولی برای گروه ندارد.

[mahdif123]

سلام

شاپرك عزيز مي شود نحوه استفاده از اين تابع مفيدتان را هم بيان فرمائيد .

با تشكر

[شاپرک]

Control Source یک TextBox رو مساوی


=Environ("computername")

یا


=Environ("USERNAME")

قرار بدید تا یک نمونه از این تابع مفید رو مشاهده کنید.

[saeedyaz]

شاپرک جون هنوز تو ویندوری...
بیا تو اکسس...
من به کاربران ویندوز کاری ندارم. من میخوام گروه های کاری وکاربران داخل mdw را استفاده کنم.

[شاپرک]

من با گروه های کاری خیلی کار نکردم ولی شاید این توابع بدرد بخوره :



Function faq_ListUsersInSystem()
Dim ws As Workspace
Dim i As Integer

Set ws = DBEngine.Workspaces(0)
For i = 0 To ws.Users.Count - 1
Debug.Print ws.Users(i).Name
Next i
End Function

'List Groups in System:
Function faq_ListGroupsInSystem()
Dim ws As Workspace
Dim i As Integer

Set ws = DBEngine.Workspaces(0)
For i = 0 To ws.Groups.Count - 1
Debug.Print ws.Groups(i).Name
Next i
End Function

'List Members of Group:
Function faq_ListUsersOfGroup(strGroupName As String)
Dim ws As Workspace
Dim grp As Group
Dim i As Integer

Set ws = DBEngine.Workspaces(0)
Set grp = ws.Groups(strGroupName)
For i = 0 To grp.Users.Count - 1
Debug.Print grp.Users(i).Name
Next i
End Function

'List Groups User is a member of:
Function faq_ListGroupsOfUser(strUserName As String)
Dim ws As Workspace
Dim usr As User
Dim i As Integer

Set ws = DBEngine.Workspaces(0)
Set usr = ws.Users(strUserName)
For i = 0 To usr.Groups.Count - 1
Debug.Print usr.Groups(i).Name
Next i
End Function

'Determine if a User is in a given Group:
Function faq_IsUserInGroup(strGroup As String, strUser As String) As Integer
' Returns True if user is in group, False otherwise
' This only works if you're a member of the Admins group.
Dim ws As Workspace
Dim grp As Group
Dim strUserName As String

Set ws = DBEngine.Workspaces(0)
Set grp = ws.Groups(strGroup)
On Error Resume Next
strUserName = ws.Groups(strGroup).Users(strUser).Name
faq_IsUserInGroup = (Err = 0)
End Function

[saeedyaz]

سلام شاپرک جان
میشه بفرمایید چگونه از این کد ها استفاده کنم

[شاپرک]

در این لینک همه چیز توضیح داده شده :
http://support.microsoft.com/kb/210331

[saeedyaz]

شاپرک جون خیلی لطف کردید
من طبق دستورالعمل ماکروسافت عمل کردم ولی وقتی اینتر میزنی پیغام زیر رو میده
به نظرت مشکل چیه
The account used to create the workspace does not exist

[saeedyaz]

شاپرک جون سلام
خیلی متشکرم
کد ها رو تومحیط ماژول اجرا کردم
حالا سئوال من اینست که این رو چه جوری تو کویری یا کمبو بیاریم
من فانکشن رو تو کویری آوردم ولی جواب نداد
قربونت