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

Question

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

有什么办法可以将列的de​​afult值设置为用户的用户名吗？

Answer 1

按照here：

所述创建公共功能

init(coder:)

并使用Public Function GetUserName() As String ' GetUserName = Environ("USERNAME") ' Environ("USERNAME") is easily spoofed, see comment by HansUp GetUserName = CreateObject("WScript.Network").UserName End Function 作为控件的默认值。