Vba 如何管理Access中加载条的事件

我用VBA创建了一个Access（2013）应用程序。该应用程序对网站进行爬网，并将一些记录插入数据库。但这需要太多的时间

我的解决方案是让负载条等待。但目前我使用事件

表单_Current（）

；当我设置加载条的值时（这是我的功能）

setBarLoadValue（25）

屏幕上不会显示任何内容。为什么？因为我的函数还没有运行

---

我的问题是：我如何管理事件以实时模拟加载栏？（不想等到函数结束时才看到100%）。

以下链接有一个设计精美的进度状态栏

---

代码的作者提供了一个类，在这个类中，您有一个充当仪表的窗体，并且基本上可以设置值。它可能是实时的，看一看。我在应用程序中使用它，效果非常好

我终于找到了解决办法

解决方案 步骤1 您必须在代码中输入此代码

DoCmd.SelectObject acForm, Me.Name
Me.Repaint
DoEvents

使用此代码，可以立即显示表单

步骤2 现在，当您想要显示某些内容时，您必须这样做：

DoEvents

使用

DoEvents

时，表单将刷新，您可以显示进度条的新状态

---

---

注意：此解决方案适用于Access 2013。其他版本可能不支持此功能。

您的功能是否包含DoEvents？这允许屏幕刷新，从而显示进度条的进度。