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

时间:2015-03-30 23:07:45

标签: vba ms-access

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

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

的内容
If usrname = X then IDLEMINUTES = 100 
Else IDLEMINUTES = 20
End If

使usrname的空闲时间不同?

提前致谢!

2 个答案:

答案 0 :(得分: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")并且它可以正常工作。

答案 1 :(得分:0)

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

像魅力一样工作。