在Access Query中选择用户名

Question

我有一个Access DB，我想在打开它时捕获用户的名字。我创建了一个函数来返回从另一个Stack Overflow问题解除的用户名：

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

这可以使我在即时窗口中看到我的用户名。但是，当我尝试查询时，我得不到任何回复 - 没有用户名，也没有错误消息。

    INSERT INTO tblUser(UserName,Logindate)
SELECT UserNameWindows(),  Date()   ;

我正在使用Access 2016.日期进入日志表而不是用户名;我知道哪里出错了？

Answer 1

您需要将函数名称设置为username的值。你的错误是一个错字。请参阅下面的小编辑：

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