Public Function Shed_generate()

    CurrentDb.Execute "DELETE * FROM Shed_temp ;"
    
    Dim Интервал, Начало, Начало1, Конец, cdata As Date
    Dim ccount, I As Integer
    Dim rst As DAO.Recordset

    Set rst = CurrentDb.OpenRecordset("Shed_temp", DAO.dbOpenDynaset)
 
    cdata = Me.Дата
    ccount = DCount("КодКабинета", "Кабинеты", "Расписание = True ")

For I = 1 To ccount
    
    Начало = #8:00:00 AM#
    Конец = #7:45:00 PM#
    Интервал = #12:15:00 AM#

    Do
    rst.AddNew
    rst!Дата = cdata
    rst!ВремяНачало = Начало
    rst!ВремяКонец = Начало + Интервал
    
    Начало1 = Начало + Интервал
    
    Me.ccab = I
            
    rst!КодКабинета = Me.ccab
        
        If DFirst("КодСотрудника", "Shed_doc", "(КодКабинета= " & Me.ccab & ") and (Дата = #" & Format(cdata, "mm-dd-yyyy") & "#) and (ВремяНачало <= #" & Начало & "#) and (ВремяКонец >=  # " & Начало1 & " #)") > 0 Then
             Me.csot = DFirst("КодСотрудника", "Shed_doc", "(КодКабинета= " & Me.ccab & ") and (Дата = #" & Format(cdata, "mm-dd-yyyy") & "#) and (ВремяНачало <= #" & Начало & "#) and (ВремяКонец >=  # " & Начало1 & " #)")
        Else: Me.csot = 1
        End If
        
    rst!КодСотрудника = Me.csot
    
        If DFirst("КодКлиента", "Shed_pat", "(КодКабинета= " & Me.ccab & ") and (Дата = #" & Format(cdata, "mm-dd-yyyy") & "#) and (ВремяНачало <= #" & Начало & "#) and (ВремяКонец >=  # " & Начало1 & " #)") > 0 Then
             Me.ccli = DFirst("КодКлиента", "Shed_pat", "(КодКабинета= " & Me.ccab & ") and (Дата = #" & Format(cdata, "mm-dd-yyyy") & "#) and (ВремяНачало <= #" & Начало & "#) and (ВремяКонец  >= # " & Начало1 & " #)")
        Else: Me.ccli = 1
        End If
    
    rst!КодКлиента = Me.ccli
    
        Начало1 = Null
        Начало = Начало + Интервал
        
    rst.Update

    Loop Until Начало >= Конец
    
Next I

    rst.Close
    Set rst = Nothing
    
    Me.Неделя = Format(Дата, "Расписание на Dddd, c")
        
End Function