Access在规定时间内禁止用户输入_access模块-access类模块-access函数-access VBA

Access在规定时间内禁止用户输入

时间：2013-09-30 16:09 来源：office中国作者：tmtony 阅读：次

在防止一些快速刷新的事件，我们都会控制输入速度的。
下面的示例，自定义了一个函数，这个函数能够控制录入速度，比如禁止5秒钟，5秒后就可以继续输入了

新建一个模块，把代码放在里面，

Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Sub BlockUserInput(lTime As Long)

'禁止鼠标和键盘输入

BlockInput True

'等待多少秒

Sleep lTime

'允许输入

BlockInput False

End Sub

最后调用函数：然在你的窗体中调用以下 call BlockUserInput(3) '禁止3秒种

(责任编辑：admin)

顶一下

(0)

踩一下

(0)