Форумы HiProg.com - MS ACCESS, VBA, VB

ник: час
Решил не удалять - один раз создать, а потом перекрашивать токма

Function COLOR_TIME_LINE(STR_DATE As String) ' перекрасить рисунки (Labels) Dim ctrl As Control                    'Labels Dim rst As ADODB.Recordset Dim STR_TIME As String        ' время Set rst = New ADODB.Recordset rst.Open "SELECT SERVICE_TBL.DATE_SERVICE, SERVICE_TBL.FIRST_TIME_SERVICE, SERVICE_TBL.LAST_TIME_SERVICE" _ & " From SERVICE_TBL " _ & " WHERE (((SERVICE_TBL.DATE_SERVICE)= #" & STR_DATE & "#));", GLB_CONNECTION, adOpenKeyset, adLockOptimistic For Each ctrl In Controls         If TypeName(ctrl) = "Label" And Left(ctrl.Name, 3) = "DNI" Then           STR_TIME = ctrl.Caption                  If STR_TIME = "24:00" Then STR_TIME = "00:00"                rst.Filter = "FIRST_TIME_SERVICE<= " & STR_TIME & " AND  LAST_TIME_SERVICE >= " & STR_TIME                 ' если занято                 If rst.RecordCount <> 0 Then                         ctrl.BackColor = &HFFEBE8                 Else                  ' если свободно                        ctrl.BackColor = vbWhite                 End If                 ' удалим фильтр                 rst.Filter = adFilterNone         End If Next ctrl rst.Close Set rst = Nothing End Function