除非在换档键旁路模式下,否则不显示进度条

时间:2012-05-04 13:12:13

标签: ms-access vba

我有一个数据库在打开时不显示数据库窗口。相反,它显示一个交换机。我确实有一些查询和报告需要一段时间才能运行,并希望向用户显示进度条。我可以显示进度条的唯一方法是使用shift键旁路进入数据库以调出数据库窗口。然后,进度条显示并且工作得很好。如何在数据库窗口未显示时显示它?

我使用以下内容初始化进度条:

Application.SysCmd acSysCmdInitMeter, "Progress:", 500

然后在循环内部我使用以下内容来更新进度条:

TempRecordCount = TempRecordCount + 1
Application.SysCmd acSysCmdUpdateMeter, TempRecordCount

然后,一旦不再需要,我执行以下操作:

Application.SysCmd acSysCmdRemoveMeter

1 个答案:

答案 0 :(得分:6)

工具 - >启动... - > [x]显示状态栏

我怀疑当您取消选中“启动”选项中“显示数据库窗口”旁边的框时,您也取消选中“显示状态栏”旁边的框。由于进度表显示在状态栏中,因此您需要确保选中该选项。