Office中国论坛/Access中国论坛

标题: ● 设置了安全机制后,如何用代码获取当前用户所在的组名? [打印本页]

作者: duckdon 时间: 2005-3-23 18:17
标题: ● 设置了安全机制后,如何用代码获取当前用户所在的组名?
设置了安全机制后,如何用代码获取当前用户所在的组名?

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

作者: laomao 时间: 2005-3-24 05:31
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
下面这样为什么不行呢?警告:用户定义类型未定义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
Me.Text0 = Grpname

作者: duckdon 时间: 2005-3-27 05:59
标题: ?
还是不行啊!是不是我没看明白,我把文件附上来,请高手帮忙看看,谢谢!

[attach]9604[/attach]

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

作者: duckdon 时间: 2005-3-29 05:52
帮帮忙.

作者: duckdon 时间: 2005-3-31 07:39
还是不行啊!

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

作者: laomao 时间: 2005-4-5 00:01
sorry!我写措了!

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

作者: duckdon 时间: 2005-4-7 00:30
还是有问题啊，能不能做个例子，谢谢了

[attach]9775[/attach]

作者: test2000 时间: 2005-4-7 00:38
引用adox引用啦

作者: test2000 时间: 2005-4-7 00:39
引用adox引用啦 [em49]

作者: duckdon 时间: 2005-4-7 16:17
不懂啊，咋弄啊

[attach]9791[/attach]

作者: jesse1112000 时间: 2007-6-18 23:59
看看

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)