在 Access 表中将用户名设置为默认值答案

【问题标题】：Set username as default value in Access table在 Access 表中将用户名设置为默认值
【发布时间】：2014-10-07 06:12:18
【问题描述】：

我有一个包含username 列的访问表。我有多个用户将在不同时间使用数据库，他们会将行添加到表中。但是每次用户添加新行时，他/她的用户名必须出现在表格的用户名列中，而无需他们自己输入。我尝试将 UCase(Environ("USERNAME")) 作为默认值，但 Environ 是一个未知函数。我在 VBA 中使用 UCase(Environ("USERNAME")) 在导出表时获取用户名。

有什么方法可以将列的默认值设置为用户的用户名？

【问题讨论】：

用户如何向表中添加记录？如果您的答案是直接的，那么您的问题就来了！如果他们正在使用表单，那么您可以使用表单的按钮事件。
他们会像使用普通表格一样添加它，但表格将在表单中查看（表单中的表单）。但谢谢你的提示。我将研究按钮事件，如果这是要走的路，我也不介意使用 VBA 来完成。

标签： vba ms-access

【解决方案1】：

按照here 的描述创建一个公共函数：

Public Function GetUserName() As String
    ' GetUserName = Environ("USERNAME")
    ' Environ("USERNAME") is easily spoofed, see comment by HansUp
    GetUserName = CreateObject("WScript.Network").UserName
End Function

并使用=GetUserName() 作为控件的默认值。

【讨论】：