可不可以在VBA中设定一个事件运行完成后延迟30秒钟再运行下一个事件?

真主 · 发表于 2004-9-17 19:10:00

ngw123 · 发表于 2004-9-17 19:14:00

声明Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)在第一个事件后调用Call Sleep(1000)再执行第二个事件

Benjamin_luk · 发表于 2004-9-17 19:43:00

DoCmd.Hourglass True

也可插入以下的代码实现Dim Stime As Date

Stime = Now()

CheckTime:

If DateDiff("s", Stime, Now()) = 30 Then

MsgBox "时间到了,请运行你的程序" '插入你要运行的代码

Else

GoTo CheckTime

End If

DoCmd.Hourglass False[em05]

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[其它] 可不可以在VBA中设定一个事件运行完成后延迟30秒钟再运行下一个事件?

群介绍
主题无相 (随机显示版	同地区群块其他地区)