Go back 3,5 seconds to see the registers in this time interval

[mfaqueiroz]

Hi everyone!
I have two fields:
!MeDate: dd-mm-yyyy hh:mm:ss
!MeMs: ms
State: OPEN or Close

When I found the close state I want to go back from my Date 3,5 seconds to see what is before this register.


Set dbs = DBEngine(0)(0)
Set Me!TabCloseOpen = dbs.OpenRecordset("!Me table with Open/Close",

Me!TabCloseOpen .MoveFirst
Do While Not PorInst.EOF
State =!Me.State ' Open or close
If State= "Close" Then ' if is close i want to see all the registers that happened in a space of 3,5 s before
Date=!MeDate
Rtums=!MeMs
Dif = DateDiff("s", Date, 3) ' difference of 3 s
Dif= Dif * 1000 - 500 ' difference of 500ms

...well and now? how can i call the registers than happened 3,5 seconds before? anyone have some suggestions?

Grateful for your help!

 

[mfaqueiroz]

It's a row with the fields i'm from brazil maybe was because that i call it register

 

[mfaqueiroz]

I'm using the 2013 version

 

[mfaqueiroz]

Hi! Yes
Well i've created a virtual query.

1st
Me!TabCloseOpen.MoveFrist
Do While Not Me!TabCloseOpen.EOF
Date1=!MeDate
Diference=DateAdd("s",-4",Date1) ---> gives me a date 4 seconds before
Date2=Mid(Diference, 7, 4) & "-" & Mid(Diference, 4, 2) & "-" & Mid(Diference, 1, 2) & " " & Right(Diference, 8) ----> this is to get SQL format

2nd
A virtual Query filter by the actual date and 4 seconds before:

Set Dif= dbs.OpenRecordset(" Select Me!TabCloseOpen.ID, Me!TabCloseOpen.State, Me!TabCloseOpen.Date from Me!TabCloseOpen. WHERE (((Me!TabCloseOpen.[Date])<#" & Date1 & "#) AND (((TabInst.[Rtu date])>#" & Date2 & "#))) ORDER BY Me!TabCloseOpen.[Date];", DB_OPEN_DYNASET)