Elapsed time is best stored in a Number field (Long Integer) for the number
or seconds.
For data entry, you can interface it with 2 unbound text boxes, so the user
can enter minutes and seconds. In this example, the field is named
"Seconds", and the unbound text boxes are named "txtMinutes" and
"txtSeconds".
Private Sub txtMinutes_AfterUpdate()
If Not (IsNull(Me.txtMinutes]) And IsNull(Me.txtSeconds)) Then
Me.Seconds = 60 * Nz(Me.txtMinutes, 0) + Nz(Me.txtSeconds, 0)
End If
End Sub
Private Sub txtSeconds_AfterUpdate()
Call txtMinutes_AfterUpdate
End Sub
Private Sub Form_Current()
If IsNull(Me!Seconds) Then
Me.txtMinutes = Null
Me.txtSeconds = Null
Else
Me.txtMinutes = Me!Seconds \ 60
Me.txtSeconds = Me!Seconds Mod 60
End If
End Sub
For display purposes (e.g. on a report), you can show the data in a text box
with this ControlSource:
=[Seconds] \ 60 & Format([Seconds] Mod 60, "\:00")
More info:
Calculating elapsed time
at:
http://allenbrowne.com/casu-13.html