View original (French)

Timer

Solved
le meruvien -  
Hello,
I would like to create a simple form with a "minute" and "second" field that starts at zero as soon as the form is opened (and a reset button).
Thank you

Configuration: Windows / Chrome 79.0.3945.117

5 answers

  1.  yg_be Contributor
    Hello,
    this can be done by using the TimerInterval property of the form and the Timer event of the form. 
    Private Sub Form_Load() Me.TimerInterval = 1000 'triggers every second End Sub Private Sub Form_Timer() 'modifies the timer display End Sub
    0
    1. le meruvien Author
      Thank you yg-be, but where do I put all this??
      0
      1. yg_be Contributor
        Could you share your file, containing in the form the fields to display the timer, and a button intended for resetting it?
        0
    2. yg_be Contributor
      Here is an example of code to include in the form code, with a button called zero and a label called timer. 
      Option Compare Database Option Explicit Dim start As Date Private Sub Form_Load() start = Now() display_timer Me.TimerInterval = 1000 End Sub Private Sub form_timer() display_timer End Sub Private Sub zero_Click() start = Now() display_timer End Sub Private Sub display_timer() Dim duration As Date, minutes As Long, seconds As Integer duration = Now() - start minutes = Int(duration * 24 * 60) seconds = (duration * 24 * 60 - minutes) * 60 Me.timer.Caption = CStr(minutes) + "min " + CStr(seconds) + "sec" End Sub
      0
      1. le meruvien Author
        well, it's not working!!
        I've attached my file, you can take a look.
        https://www.cjoint.com/c/JAmoybwaIOd
        thank you
        0
        1. yg_be Contributor
          As the error message you received indicates, you have two lines with Option Compare Database; you need to remove one of them.
          I also see that you haven't called the zero button. You need to either rename the button or adjust line 12 of the code.
          0
      3. le meruvien Author
        Hello, and a big THANK YOU!! It works!!
        0