Office中国论坛/Access中国论坛

标题: 判断当前登陆用户的问题 [打印本页]

作者: chacoo 时间: 2004-9-23 21:25
标题: 判断当前登陆用户的问题
我看到可以使用以下的方法判断当前登陆用户,但是有没有更简单的方法?

Dim rst As New ADODB.Recordset

Set rst = CurrentProject.Connection.OpenSchema(adSchemaProviderSpecific, , _

"{947bb102-5d43-11d1-bdbf-00c04fb92675}")

While Not rst.EOF

      Debug.Print rst!COMPUTER_NAME

      Debug.Print rst!LOGIN_NAME

      Debug.Print rst!CONNECTED



      rst.MoveNext

Wend

作者: Benjamin_luk 时间: 2004-9-23 23:08
如果是工作组可以用 CurrentUser() 取得用户名[em05]

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