I solved a part of the riddle myself.
My idea was that data is entered in sequential time.
The problem is what happens when you miss a line.
Therefore I created VBA code that does the ranking, thereore you can enter times in arbitraily order:
Dim rs As ADODB.Recordset
Dim strSQL As String
Dim CurrentOEEHD As Integer
CurrentOEEHD = [ID]
strSQL = "SELECT * from TABLE Where CRITERIA =" & FilterOnForm & " Order by Time;"
Set rs = New ADODB.Recordset
rs.Open strSQL, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
x = 1
Do Until .EOF
![Ranking] = x
x = x + 1
Set rs = Nothing
From here on out I can do the cehck from one recordset to another easily.