Cách nhận tên người dùng đã đăng nhập trong Access vba?

Question

thể trùng lặp:
Is there a way for MS Access to grab the current Active Directory user?

Tôi muốn để có được tên của qua đăng nhập tài khoản vba trong access. Cách tốt nhất để làm việc này là gì?

---

Bản sao của câu hỏi này:

• 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

Answer 1

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)) 

Hóa ra câu hỏi đã được hỏi trước: How can I get the currently logged-in windows user in Access VBA?

Answer 2

Hãy thử điều này:

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

Answer 3

Trong một Form, Tạo một hộp văn bản, với các tính hộp văn bản chọn dữ liệu tab

Default value =CurrentUser() 

Hiện tại sou rce "chọn tên trường bảng"

Nó sẽ hiển thị tên người dùng hiện tại trên tên trong hộp văn bản/nhãn cũng như lưu tên người dùng trong trường bảng