Question

我正在使用VBA和Microsoft Access创建成员登录程序。所以我让用户输入他们的信息，然后将所有内容都插入到我的数据库表中。在我这样做之后，我想向用户显示包含一些信息的表单。但是，我只想让它保持15秒然后关闭。有没有办法做到这一点？

这是我尝试过的一个片段。基本上我打开表单，然后设置一个计时器来关闭表单。当我这样做时，表单永远不会实际显示给用户。有什么理由吗？它确实显示我是否删除了最后一行中的关闭。

    Private Sub Form_Load()

    [Forms]![SwipeServiceDatesHidden].Requery

    currentTime = Now()
    setTime = currentTime + TimeValue("00:00:10")
    Do While currentTime < setTime
        currentTime = Now()
    Loop

    DoCmd.Close acForm, "SwipeServiceDatesHidden", acSaveNo

    End Sub

Answer 1

将所有先前的评论放在一起

Private Sub Form_Load()

    setTime = Now + TimeValue("00:00:10")    

    Application.OnTime setTime, "subToCloseForm"

End Sub

Sub subToCloseForm

    DoCmd.Close

End Sub

VBA：如何使表单保持打开一定的秒数

1 个答案: