如何管理在 Access 中创建加载栏的事件

How to manage event for made a load bars in Access

我使用 VBA 创建了一个带有 Access (2013) 的应用程序。此应用程序抓取网站并将一些记录插入数据库。但是太费时间了。

我的解决办法是制作等待的加载条。但目前我使用事件 Form_Current();当我设置负载栏的值（这是我的功能）时 setBarLoadValue (25) 屏幕上没有显示任何内容。为什么 ？因为我的函数运行还没.

我的问题是：我如何管理事件以实时模拟负载条？（不想等到函数结束才能看到 100% ).

下面link有一个设计精美的Progress状态栏。 http://www.access-programmers.co.uk/forums/showthread.php?t=265537

代码的作者提供了一个 Class，其中您有一个充当仪表的表单，您基本上可以设置这些值。它可能足够实时，看看。我在我的应用程序中使用它并且效果很好。

终于找到解决办法了！

解决方案

第一步

您必须在您的代码中输入此代码

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

使用此代码，您会立即显示表单

第 2 步

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

当您使用DoEvents表单刷新时，您可以显示进度条的新状态。

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