如何设计SUB运行超过一段时间 自动退出？

olderdream2007@

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

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

tmtony

dim dblStart as double
dblStart=Timer

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

olderdream2007@

谢谢高人的指点，请问下我原来的代码放到哪个位置？  个人现在理解放到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

放到循环中吧

tmtony

都可以的

roych

建议放在A处。

olderdream2007@

谢谢各位 学了了{:soso_e179:}{:soso_e179:}