有没有延时保存方法?

花落，相依　发表于：2012-04-17 06:59:40 　

复制

各位好，ACCESS有没有有没有延时保存方法? 如等待2秒再自动保存

Top

羽扇子君发表于：2012-04-17 08:34:55

自定义一个延时的函数(过程),大致过程如下:

a.函数需要至少一个参数:延时秒数；

b.函数体大致如下:

1.得到当前时间并存入一个变量；

2.进行While(或其它循环),并检测当前时间-变量<>函数参数；

3.循环内加入DoEvents语句。

Top

羽扇子君发表于：2012-04-17 08:50:13

示例如下:

Sub DelayTime(Optional TimeSecond As Long = 1)
    Dim TempTime As Date
    TempTime = Now()
    Do While DateDiff("s", TempTime, Now()) <= TimeSecond
        DoEvents
    Loop
End Sub

调用时语法如下:设延时3秒时

DelayTime 3

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

有没有延时保存方法?