vba - 等待表单在 MS Access VBA 中完成更新

Question

我正在开发一个 Access 应用程序，我在其中运行一个将一堆文本文件导入 Access 的进程，并且我想显示该进程的进度表。

我构建了一个简单的进度条:我有一个包含五个矩形和一个文本框的表单。当五分之一的文本文件导入完成时，文本框显示“已导入文件的百分之二十”并且其中一个矩形变为可见。当第二个五分之一完成时，它会再次更新，依此类推。

我遇到的问题是表单仅在 60% 和 100% 时更新。其他增量的代码有效，但表单未更新。我怀疑当我运行像

这样的 VBA 语句时

Forms("ImportingData")!Box1.Visible = True

在继续运行之前，直到框在屏幕上可见，脚本才真正暂停。它只是在内部更改属性或其他内容。我试图通过让它暂停 1 秒来解决这个问题

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


Sub UpdateStatusForm(fifth As Integer)

    If fifth = 1 Then
        Forms("ImportingData")!PctComp.Caption = "20 percent of txt files imported"
        Forms("ImportingData")!Box1.Visible = True
    ElseIf fifth = 2 Then ...
    Sleep(1000)
End Sub

但是没有效果。还有其他建议吗？

谢谢!

Answer 1

查看 DoEvents。如果您想在进程运行时更新 GUI，这是一个不错的选择