如何登录用户'；Access vba中的名称？

可能重复：

我想通过登录获取已登录用户的名称。最好的方法是什么

---

此问题的副本：

试试这个：

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

---

原来之前有人问过这个问题：

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

Default value =CurrentUser()

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

---

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

请记住，这可以由用户/应用程序更改…它可能不是每次都100%安全，但老实说，我们谈论的是VBA。我举个例子，选择简单的方法：）@Eric+1在这里。如果你这么担心的话，一开始就不应该使用Access。太好了。这对我很有用；如果它不安全，我一点也不在乎。谢谢你，伙计！我看不出以前有人问过这个问题。谢谢，无论如何，我们知道，

Declare

在64位访问中不可用。您能显示

TrimNull

的代码吗？请下行投票人留下评论。这不会显示当前用户名；它返回“数据库当前用户的名称”。除非您已建立启用安全性的工作组，否则默认为“Admin”。

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

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

Default value =CurrentUser()