If DLookup("[Да]", "Abort", "[Выход]=" & 1) > 0 Then
                            MsgBox "БД недоступна на время технических работ!" & vbCrLf & "Попробуйте зайти через 10 минут" & vbCrLf & "Спасибо за понимание)"
                            Cancel = True
                            DoCmd.Quit

DoCmd.OpenForm "0_frm_hidden", , , , , acHidden ' загрузка слежения по таймеру за переменной в поле "ДА" таблицы "Abort" 

Private Sub Form_Load()
Me.TimerInterval = 20000 ' Проверка признака отключения БД производится каждые 20 сек
End Sub

Private Sub Form_Timer()
If time2 = 0 Then   ' Проверяем не активирован ли таймер выхода из БД
    If DLookup("[Да]", "Abort", "[Выход]=" & 1) = 2 Then ' Проверяем не установлен ли признак мгновенного выхода из БД:
    Me.Refresh
    Me.Requery
    DoCmd.Quit ' Выход из БД
    End If
' Проверяем не установлен ли признак выхода из БД по таймеру:
    If DLookup("[Да]", "Abort", "[Выход]=" & 1) = 1 Then
            MsgBox "На время проведения технических работ" & vbCrLf & "просьба завершить работу в Ассистенте!" & vbCrLf & "Через 5 минут программа будет закрыта автоматически." & vbCrLf & "Спасибо за понимание)"
            Dim Cancel As Boolean
            Cancel = True
            time2 = Time() + TimeValue("00:05:00") ' Активируем таймер выхода из БД: для этого к текущему времени прибавляем 5 минут
    End If
ElseIf Time() > time2 Then ' Если после очередного анализа таймера текущее время больше таймера выхода из БД - идёт выход:
Me.Refresh
Me.Requery
DoCmd.Quit
End If