我在大多数网站上看到计数器数字从零开始并达到特定数字在 ms 访问 vba 中是否有代码来执行此操作 [关闭]

Question

关闭。 这个问题需要细节或清晰。 它目前不接受答案。

---

想改进这个问题？ 通过编辑此帖子添加详细信息并澄清问题。

3 小时前关闭。

改进这个问题

我在大多数网站上看到计数器数字从零开始并达到特定数字在 ms 访问 vba 中是否有代码来执行此操作

Answer 1

既然我已经有一些代码，我会扔给你一个骨头。

这将只是增加表单文本框中保存的值。 我包括一个计时器延迟，所以你可以看到数字的变化。

Dim x As Integer
Dim Start As Double
Me.tbxHours = Null
For x = 1 To 15
    Me.tbxHours = Nz(Me.tbxHours, 0) + 1
    Start = Timer
    While Timer < Start + 0.1
        DoEvents
    Wend
Next

现在，您在哪里使用该代码以及如何触发它由您决定。