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

也就是说，降低应用程序速度的设计很差。

延迟时间进入另一种形式

1 个答案: