● 设置了安全机制后,如何用代码获取当前用户所在的组名?

duckdon · 发表于 2005-3-23 18:17:00

设置了安全机制后,如何用代码获取当前用户所在的组名?

[此贴子已经被作者于2005-3-31 11:34:03编辑过]

laomao · 发表于 2005-3-24 05:31:00

dim cat as new adox.catalog

dim grpname as string

cat.activeconnection=currentproject.connection

grpname=cat.users(currentuser()).group

duckdon · 发表于 2005-3-25 07:57:00

下面这样为什么不行呢?警告:用户定义类型未定义Private Sub Text0_GotFocus()Dim cat As New adox.catalog

Dim Grpname As Stringcat.ActiveConnection = CurrentProject.Connection

Grpname = cat.users(CurrentUser()).groupText0 = GrpnameEnd Sub

方漠 · 发表于 2005-3-26 02:10:00

Me.Text0 = Grpname

duckdon · 发表于 2005-3-27 05:59:00

还是不行啊!是不是我没看明白,我把文件附上来,请高手帮忙看看,谢谢!

[此贴子已经被作者于2005-3-26 21:59:51编辑过]

duckdon · 发表于 2005-3-29 05:52:00

帮帮忙.

duckdon · 发表于 2005-3-31 07:39:00

还是不行啊!

[此贴子已经被作者于2005-3-30 23:42:06编辑过]

laomao · 发表于 2005-4-5 00:01:00

sorry!我写措了!

一个用户会同时隶属于多个组,所以应该是: cat.users(CurrentUser()).groupS,然后定义一个group对象变量,循环取出每各组名.

duckdon · 发表于 2005-4-7 00:30:00

还是有问题啊，能不能做个例子，谢谢了

test2000 · 发表于 2005-4-7 00:38:00

引用adox引用啦

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[其它] ● 设置了安全机制后,如何用代码获取当前用户所在的组名?

?

本帖子中包含更多资源

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)