Office中国论坛/Access中国论坛

标题: 进度条打开的时机 [打印本页]

作者: 好学 时间: 2008-6-19 12:10
标题: 进度条打开的时机
Private Sub Form_Load()
DoCmd.OpenForm "进度条"
' 检查与“数据库”中表的链接
If CheckLinks() = False Then
RefreshLinks
End If
End Sub

由于在连接数据的时间比较长,所以我想打开一个进度条的窗体,但要所有程序执行完窗体才显示,有什么办法可以在执行到这段代码就马上打开进度条窗体呢?

作者: gdfsslec 时间: 2008-6-19 14:46
ACCESS不支持多线程，没办法的。如果时间超过30秒，可以用打开另一个数据库的进度条来实现，有位版主有例程。

作者: 好学 时间: 2008-6-19 15:12

原帖由 gdfsslec 于 2008-6-19 14:46 发表
ACCESS不支持多线程，没办法的。如果时间超过30秒，可以用打开另一个数据库的进度条来实现，有位版主有例程。

不是很明白?要多建一个数据库?有例子吗?谢谢!

作者: tz-chf 时间: 2008-6-19 15:23
合适的地方加DoEvents

作者: 好学 时间: 2008-6-19 15:40
Private Sub Form_Load()
DoEvents
DoCmd.OpenForm "进度条"
' 检查与“数据库”中表的链接
If CheckLinks() = False Then
RefreshLinks
End If
End Sub

比喻上面这样行吗?远行DoEvents后,下面的代码就不再执行的啊?

作者: p51219 时间: 2015-12-3 23:36
学习学习学习学习

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