VBA/Access - 用户特定检测空闲时间答案

【问题标题】：VBA/Access - User Specific Detect Idle TimeVBA/Access - 用户特定检测空闲时间
【发布时间】：2015-03-30 23:07:44
【问题描述】：

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

我的数据库（Access 2010）当前记录了一个网络用户名，可以使用类似

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

使每个用户名的空闲时间不同？

提前致谢！

【问题讨论】：

标签： vba ms-access

【解决方案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() 的方法，但您不想调用它，因为它会告诉您 Access 用户名，通常是“Admin”，除非您使用 Access Security，它不是t 很常见。如果你不想使用环境变量，你可以使用 WinAPI 调用 shown here，虽然我使用 Environ("UserName") 并且它工作正常。

【讨论】：

【解决方案2】：

我有一个用户表，其中空闲时间字段为整数。我选择允许的用户空闲时间。因此不限于逻辑 if 或 EVEN 情况。

像魅力一样工作。

【讨论】：