Now I decided to use this Video: as June 7 proposed. In this Process I used the same table, Form and query names as it is.
Option Compare Database
Private Sub cboTime_Enter()
Dim i As Date, n As Integer, oRS As DAO.Recordset, sSQL As String
Dim dLowerbreak As Date, dUpperBreak As Date...