如何在 Access vba 中获取登录用户名？

How to get logged-in user's name in Access vba?

提问by Varun Mahajan

Possible Duplicate:
Is there a way for MS Access to grab the current Active Directory user?

可能的重复：
有没有办法让 MS Access 获取当前的 Active Directory 用户？

I want to get the name of the logged-in User via vbain access. What is the best way to do this?

我想通过vbain access 获取登录用户的名称。做这个的最好方式是什么？

---

---

Duplicates of this question:

这个问题的重复：

• Is there a way for MS Access to grab the current Active Directory user?
• Using VB6, how do I get the current user and domain on Windows XP?
• How can I get the currently logged-in windows user in Access VBA?
• Excel 2007 VBA and WMI - Current DOMAIN\USER

• MS Access 有没有办法获取当前的 Active Directory 用户？
• 使用 VB6，如何在 Windows XP 上获取当前用户和域？
• 如何在 Access VBA 中获取当前登录的 Windows 用户？
• Excel 2007 VBA 和 WMI - 当前 DOMAIN\USER

回答by JoshJordan

Try this:

尝试这个：

Function UserNameWindows() As String
     UserName = Environ("USERNAME")
End Function

回答by Mitch Wheat

Public Declare Function GetUserName Lib "advapi32.dll" 
    Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

....

....

Dim strLen As Long
Dim strtmp As String * 256
Dim strUserName As String

strLen = 255
GetUserName strtmp, strLen
strUserName = Trim$(TrimNull(strtmp))

Turns out question has been asked before: How can I get the currently logged-in windows user in Access VBA?

原来之前有人问过这个问题：如何在 Access VBA 中获取当前登录的 Windows 用户？

回答by Sam

In a Form, Create a text box, with in text box properties select data tab

在表单中，创建一个文本框，在文本框属性中选择数据选项卡

Default value =CurrentUser()

Current source "select table field name"

当前源“选择表字段名称”

It will display current user log on name in text box / label as well as saves the user name in the table field

它将在文本框/标签中显示当前用户登录名，并将用户名保存在表字段中