Fatal编程技术网
  • vba/
  • Vba 在数据输入表单中创建秒表

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

vba ms-access

Vba 在数据输入表单中创建秒表,vba,ms-access,ms-access-forms,Vba,Ms Access,Ms Access Forms,我对在Access中使用VBA相当陌生。我想做的是记录一个人从开始到完成一个数据输入表单所需的时间。我有一个文本框，里面有一个计时器，它会在窗体打开时启动，但在关闭之前不会停止/重置 计时器应该从他们从表单中的组合框中进行选择的那一刻开始，并在他们单击保存按钮的那一刻结束。当计时器再次启动数据输入过程时，计时器应复位/启动。我使用的Save按钮中已经有一些代码，可以更新一个表并将数据插入另外两个表中。任何帮助都将不胜感激 下面是我在表单中的计时器代码 Private Sub Form_Timer

我对在Access中使用VBA相当陌生。我想做的是记录一个人从开始到完成一个数据输入表单所需的时间。我有一个文本框，里面有一个计时器，它会在窗体打开时启动，但在关闭之前不会停止/重置

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

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

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

您想解决的问题是什么？在您的userform中创建一个
ComboBox\u Change
方法来检测用户何时做出选择，然后从那里调用计时器启动方法。创建
UserForm\u停用
和/或
UserForm\u终止
方法，并从那里关闭计时器。感谢PeterT的完美工作！！