Elapsed time (1 Viewer)

[hbtousa]

I have a tb with 2 fields name and time(timestamp).Daily 140000 records are created, they cannot be modified, deleted,etc. Each person can have over 4000 records, which are sorted by name and time.
I am trying to find the daily gaps over 15 min per person if any.
Previous postings to this one mentioned the VB Funtion Timer or the user "gemma the husky" mentioned windows api call in a module - either one I don't know how to apply it to my case. The only thing I can think of right now is to read every single record using a for-next loop an compare it against the next one and then create a temp table with the stored "new record". Is there any other solution? Please I need your expertise.
Thanks

 

[RuralGuy]

My suggestion is to not use Reserved Words as names for your fields.

 

[khawar]

does your time stamp contains only the time or both date and time
if possible upload some sample data

 

[hbtousa]

1AARO 7:37:09 1AARO 7:37:09 1AARO 7:37:09 1AARO 8:51:401AARO 8:51:40 1AARO 8:51:40As you can see there is gap between 7:37:09 and 8:51:40 which is the elapsed time that I would like to find out. The table has only 2 fields and.All records are sorted.It is not wat to add o delete data.Sorry I tried to put display the the data sequentually but it just came out in one sinlgle line. Thanks

 

[hbtousa]

Re: Elapsed time. I am stuck

This is how far I am, but got message: "Compile error:Loop without do".Please help/ThanksPrivate Sub Command7_Click()On Error GoTo Err_Command7_ClickDim rs As New ADODB.RecordsetDim record01 As VariantDim record02 As VariantDim name01 As StringDim name02 As StringDim CTL As VariantIf rs.EOF True Then Do If Not rs.EOF True Then Exit Do record01 = [GapTime] name01 = [name] DoCmd.GoToRecord , , acNext record02 = [GapTime] name02 = [name] CTL = record02 - record01 If name01 = name02 And CTL > 20 Then [Control] = CTL DoCmd.RunCommand acCmdSaveRecord Else 'do nothing DoCmd.GoToRecord , , acPrevious Loop Until rs.EOFEnd IfExit_Command7_Click: Exit Sub