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

Posted 2023-04-19

【中文标题】Access 2010 VBA - 查询开始时打开的对话框，查询完成后关闭

【英文标题】：Access 2010 VBA - Dialogue box that opens when query starts, closes when query is done

【发布时间】：2015-05-27 17:50:03

【问题描述】：

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

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！

【问题讨论】：

其他想法见***.com/questions/5459734/…

@pony2deer 很好的链接，正是我想要的！非常感谢。

【参考方案1】：

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

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

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

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

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

【讨论】：

我同意状态栏非常不引人注意。以至于我什至没有意识到它上面显示了文字，直到有人建议我使用它。无论如何，我实际上还是选择了这条路线，所以我会接受你的作为答案。谢谢！