时间戳

首页 > 解决方案 > 进入另一种形式之前的延迟时间

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

问题描述

我需要一个代码来延迟它后面的表格进入另一个表格。例如，将有一个表格输入您的姓名，然后将有一个按钮可供单击以显示所有详细信息（这意味着它将首先进行 dlookup）。在进入下一个表格之前，我需要延迟让该人确认详细信息是否正确。

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

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

DoCmd.BrowseTo acBrowseToForm, "fblMenu"

标签： vbams-access

解决方案

使用此 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

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

推荐阅读