Add Timer in Access Form and store data in a table

[Haleakala17]

All,



I am requesting if anyone can help me insert a timer in the PropertyFrm Form in the Access Database attached to this message. When a user opens the PropertyFrm form I want the timer to record the number of hours, minutes, and seconds each user spend time on a record including the current dateand have the data stored in the Timer table. When a user goes to another record, I want the timer to reset and store the hours, minutes, seconds, and current date on another record in the Timer Table and so on. If the fields and data types in the Timer table is not created properly, please feel free to make modifications.

I do not want the time and current date to be displayed on the PropertyFrm Form. I want the information to be stored in the Timer table.I do not want the user to see the hours, minutes, seconds and current date information on thePropertyFrm Form

I appreciate your time and I will be waiting for your reply.

Haleakala17

[June7]

Consider:

Change fields in Timer table to DateTimeRec and ParcelNum1.

Code behind form:
Private Sub Form_Current()
CurrentDb.Execute "INSERT INTO Timer(DateTimeRec, ParcelNum1) VALUES(#" & Now() & "#, '" & Me.ParcelNumber1 & "')"
End Sub
Private Sub Form_Close()
CurrentDb.Execute "INSERT INTO Timer(DateTimeRec, ParcelNum1) VALUES(#" & Now() & "#, 'Close')"
End Sub

Query:
SELECT Timer.ID, Timer.ParcelNum1, Timer.DateTimeRec, Query1.DateTimeRec, DateDiff("s",[Timer].[DateTimeRec],[Query1].[DateTimeRec]) AS Seconds
FROM Timer LEFT JOIN (SELECT [ID]-1 AS ID2, Timer.DateTimeRec
FROM Timer) As Query1 ON Timer.ID = Query1.ID2
WHERE (((Timer.ParcelNum1)<>"Close"));

Note this query assumes no gaps in the pk ID sequence.

[Haleakala17]

June 7,

You are a savior! I appreciate your help again. I have started learning some VBA so I hope I get better in the future. I appreciate your help

Thank You,

Haleakala17