VBA基础
Access在规定时间内禁止用户输入
2013-09-30 16:09:13
在防止一些快速刷新的事件，我们都会控制 输入速度的。
下面的示例，自定义了一个函数，这个函数能够控制录入速度，比如禁止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秒种