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

Question

我想知道是否可以使用下面 link 中提到的“检测空闲时间”方法，但要使其特定于用户。 MS Link for Detect idle time code: http://support.microsoft.com/en-us/kb/128814

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

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

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

提前致谢！

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

Answer 2

我有 table 的用户，我将空闲时间字段作为整数。我选择允许的用户 idle-time。因此不限于逻辑 if 或 EVEN 情况。

很有魅力。

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

VBA/Access - User Specific Detect Idle Time

ms-access

vba