进入另一种形式之前的延迟时间

Question

我需要一个代码来延迟它背后的形式进入另一种形式。例如，将在您的名称中键入一个表单，然后会有一个单击按钮以显示所有详细信息（这意味着它将首先执行dlookup）。在进入下一个表单之前，我需要延迟此人确认详细信息是否正确。

Private Sub btnLog_Click()
Me.txtName.Value = DLookup("FullName", "tblUsers", "txtIC = " & "IC")

我可以在这里输入什么来延迟表格，然后执行下面的命令

DoCmd.BrowseTo acBrowseToForm, "fblMenu"

Answer 1

使用此API调用（在代码模块的声明部分中）：

' API call for sleep function.
#If VBA7 Then
    Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#Else
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If

然后，在您的代码中，以毫秒为单位插入睡眠时间：

Sleep 2000

也就是说，减慢应用程序的设计很糟糕。