环境(“用户名”)返回错误的用户名
环境(“用户名”)返回错误的用户名
提问于 2016-02-10 19:53:08
当我在交替的会话中执行我的Access应用程序时，函数Environ("username")返回我部门中的一个人的用户名，而不是我当前用来执行代码的机器的实际用户的用户名。
在整个程序中，不发生其他类型的用户名操作。
知道这怎么可能吗？
回答 1
Stack Overflow用户
发布于 2016-02-11 03:05:19
这将使用Windows函数返回当前登录的用户的名称。
'// API Declarations
Private Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) _
As Long
Function UserName() As String
'// Returns the name of the logged-in user
Dim Buffer As String * 100
Dim BuffLen As Long
BuffLen = 100
GetUserName Buffer, BuffLen
UserName = Left(Buffer, BuffLen - 1)
'MsgBox UserName
End Function检索登录用户名
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/35324653
复制相关文章
相似问题
腾讯云开发者
