进度条打开的时机

好学

Private Sub Form_Load()
    DoCmd.OpenForm "进度条"
' 检查与“数据库”中表的链接
    If CheckLinks() = False Then
       RefreshLinks
    End If
End Sub

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

gdfsslec

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

好学

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

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

tz-chf

合适的地方加DoEvents

好学

Private Sub Form_Load()
  DoEvents
DoCmd.OpenForm "进度条"
' 检查与“数据库”中表的链接
    If CheckLinks() = False Then
       RefreshLinks
    End If
End Sub

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

p51219

学习学习学习学习