Access 2010 VBA - 查询开始时打开的对话框，查询完成后关闭

Question

我有一个查询需要一些时间才能完成。我的用户在单击按钮后并没有意识到正在发生查询，因为没有对话框或文本解释该过程的步骤。我的问题是：

Is it possible to create a dialogue box that appears when a query begins, and closes when a query ends?

如果可以更新对话框（即，当我的第一个子表单正在更新时，让框说Updating User information，当我的第二个子表单正在更新时，它会说 Calculating Monthly Suggestions) 在 VBA 中。我在我的 Access 2010 数据库中使用它。

TIA！

Answer 1

虽然 pony2deer 的链接提供了 Application.StatusBar 解决方案。我发现状态栏并没有引起用户的注意，而且经常完全被忽视。

我建议使用在查询执行前显示，然后在查询完成运行后隐藏的表单。如果您已经打开了一个表单（听起来像您这样做），您可以简单地向表单添加一个标签并更新标题。在执行查询之前将其更新为下面的#1。然后在查询完成处理后立即将其再次更新为 #2。

1.) labelStatus.Caption = "正在处理您的查询，请稍候..."

2.) labelStatus.Caption = "成功！您的查询已完成处理。"

增加字体大小，使其色彩鲜艳等。您真的希望状态跳出，这样您的用户就不会到处点击并影响您的应用程序的性能。