在数据输入表单中创建秒表

时间:2019-10-04 12:19:43

标签: vba ms-access access-vba ms-access-forms

我对在Access中使用VBA相当陌生。我要做的是记录某人从头到尾完成数据输入表单所花费的时间。我有一个带有计时器的文本框,该框从打开表单的那一刻开始,但是直到关闭后它才会停止/重置。

计时器应该从他们从我在表单中的组合框中进行选择的那一刻起开始,并在他们单击“保存”按钮时结束。然后,当计时器再次开始数据输入过程时,计时器应复位/启动。我已经有了“保存”按钮,其中有一些代码可以更新一个表并将数据插入另外两个表中。任何帮助将不胜感激。

下面是表单中计时器的代码。

Private Sub Form_Timer()
    Static TimeCountStart
    If TimeCountStart = Empty Then
        TimeCountStart = Now
    End If
    Me!Count = Now() - TimeCountStart
    Me.TimerInterval = 1000
End Sub

非常感谢

0 个答案:

没有答案