VBA /访问 - 用户特定检测空闲时间

Question

我想知道是否可以使用下面的链接中提到的检测空闲时间方法，但使其成为用户特定的。 MS链接检测空闲时间码：http://support.microsoft.com/en-us/kb/128814

我的数据库（Access 2010中）当前记录网络usrname，将有可能使用类似

If usrname = X then IDLEMINUTES = 100 
Else IDLEMINUTES = 20 
End If 

，使每usrname空闲时间不同？

在此先感谢！

Answer 1

是的，你可以做到这一点，使用您链接到代码：

Dim IdleMinutes as Integer 
If Environ("UserName") = "jdoe" Then IdleMinutes = 100 
    Else IdleMinutes = 20 
End If 

请注意，我定义IdleMinutes作为一个变量，而不是一个常数，因为他们在自己的示例代码显示。那是因为你不能重新定义（从Microsoft）恒定：

Once a constant is declared, it cannot be modified or assigned a new value. 

此外，虽然Access有一个叫CurrentUser（），你不想调用，因为这告诉你访问用户名的方法，这通常是“管理员”，除非您使用的访问安全，这是不常见的。 如果你不想使用环境变量，你可以使用WinAPI调用shown here，虽然我使用Environ("UserName")，它工作正常。