Office中国论坛/Access中国论坛

标题: 如何设计SUB运行超过一段时间自动退出？ [打印本页]

作者: olderdream2007@ 时间: 2015-2-14 22:26
标题: 如何设计SUB运行超过一段时间自动退出？

我有一段ACCESS代码从SQL数据库提取数据，然后导入表。一般10多分钟可以完成，但是有时间由于公司服务器等原因，导出数据比较慢或卡死。

现在设想代码运行时间超过60分钟，则自动退出。请各位高人指导下有无具体代码参考下？非常感谢

作者: tmtony 时间: 2015-2-14 23:34
dim dblStart as double
dblStart=Timer

'中间加判断
doevents
if timer-dblstart>60*60*1000 then '时间你具体算一下，我未试过
exit sub
end if

作者: olderdream2007@ 时间: 2015-2-14 23:43
谢谢高人的指点，请问下我原来的代码放到哪个位置？个人现在理解放到C位置。。非常感谢！

SUB TEST()
dim dblStart as double
dblStart=Timer
A位置
'中间加判断
doevents
if timer-dblstart>60*60*1000 then '时间你具体算一下，我未试过
exit sub
B位置
end if
C位置
END SUB

作者: zpy2 时间: 2015-2-15 05:05
放到循环中吧

作者: tmtony 时间: 2015-2-15 08:08
都可以的

作者: roych 时间: 2015-2-15 09:25
建议放在A处。

作者: olderdream2007@ 时间: 2015-2-15 23:26
谢谢各位学了了{:soso_e179:}{:soso_e179:}

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)