Successive field does not populate and last field does not get result (Elapsed Time)

[Alphix]

Hi, I have tried and tried and tried and still have not figured out how to apply code to my elapsed time form.

The code suppose to allow the user to do the following:

(1) press the start button (capture time stamp)


(2) press stop button (capture time stamp)
(3) press start button (capture time stamp)

(4) Now calculate down time put result in available field

(5) After several start and stop times - at the very end give me the total start time and total down time.


Please see attachment.


Thank you in advance.

[June7]

The form is not bound to table. Set the form RecordSource property. The textboxes on the form are not bound to fields. They have the textbox name in the ControlSource, not the field names. After binding the form, set the ControlSource property of each textbox to appropriate field.

Then expression in ControlSource property of each third textbox would be like:

=DateDiff("h",[Time1],[Time2])

Now VBA behind the buttons could be like:

Private Sub Command12_Click()
Me.Text0 = Now
End Sub

Suggest you give the controls more meaningful names, such as btnEvent1Start and tbxEvent1Start.

This table structure allows only 3 pairs of start/stop times. This is not a normalized data structure. What if you need a fourth or more pairs?

[Alphix]

Yes I see, this was a sample database. My intention was to make several more buttons to reflect different event types a few more time capture fields.

I was trying to get total down time and up time per shift per employee and make this query capable.

[Alphix]

As each click of the button how does the form know to place the next time in the next succeeding blank field?

[June7]

A button for each field/textbox. Change the code as appropriate to reference the correct field/textbox.

Move to new record when you want to start entry for next employee.

BTW, need field in table for employee ID. And combobox on form to select employee. But first need a table of employees.

Why do you care about 'down' time?