Планировщик заданий

@Stalker73i · Регистрация: 07.02.2016

Студворк — интернет-сервис помощи студентам

Есть задумка, не знаю возможно ли реализовать её средствами Аксесс.
Допустим есть список заданий который внесён в таблицу, либо он вносится ежесменно мастером по "удалёнке" через индивидуальную форму. Нужно вывести сообщение в окно Аксеса в виде формы или другого элемента, что у Вас есть поступившее задание от мастера к примеру на 9:00 или текущие запланированное согласно графику работы - к примеру в 7:00 "занесите остатки в форму такую то", в 10:00 "снимите показания со счётчиков жидкости" и т.п. до окончания рабочего дня. Комп работает круглосуточно. Так же прописать появление окна с информацией о получение сообщений по электронной почте и многое чего подобное, в плоть до ТО вверенного оборудования и времени замены расходников.

mobile · 26.10.2017, 21:04

Сообщение от Stalker73i

База справочной информации со статическими и переменными данными, на которой базируется расчёт рецептур + Список(Архив) рецептур, для подбора оптимального раствора из множества вариантов предыдущих замесов. Производство должно учитывать много нюансов: влажность, температура воздуха, объём и вес формы с раствором, количество(%) пластификатора в литре жидкости и её получившуюся плотность и еще кучу разного бреда, в итоге на выходе должно получится качественно и главное долговечно с учётом нашего непростого климата.

В такой постановке это скорее расчетная, нежели базовая задача. В процедуре делается множество встроенных циклов с заданным шагом и в самом внутреннем делается расчет критерия качества. Как он считается ведомо только Вам. Типа такого

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
For ПроцентПеска=0 To 100 Step 1
  For ПроцентЩебня=100-ПроцентПеска To 100 Step 1
     For ПроцентПластификатора=100-ПроцентПеска-ПроцентЩебня To 100 Step 1
        .....................................................................
           .....................................................................
              For Температура=0 to MaxТемпература 
                  'Здесь расчет критерия качества и запись в таблицу
              Next Температура
           Next
        Next
     Next ПроцентПластификатора 
  Next ПроцентЩебня 
Next ПроцентПеска

Конечно это будет очень долгий расчет. Если известен алгоритм поиска оптимального состава, то можно применять гораздо более быстрые методы оптимизации в многофакторном пространстве.

@Stalker73i · 04.11.2017, 16:54 **[ТС]**

Сообщение от mobile

Конечно это будет очень долгий расчет. Если известен алгоритм поиска оптимального состава, то можно применять гораздо более быстрые методы оптимизации в многофакторном пространстве.

Несомненно вы правы. Будет и расчет и циклы с выбором необходимых на каждом этапе коэффициентов. В данный момент пока собираю все справочные данные в таблицы, которых итак набралось уже с десяток, потом перейду к формулам. Надеюсь на вашу помощь,так как не знаю ещё каким образом буду бороться с графиками и зависимостями, но это позже.
Спасибо за пример.

@Stalker73i · 10.04.2018, 08:21 **[ТС]**

Здравствуйте.
Всех с праздником Светлым Христовым Воскресением! Текущую неделю сие событие более чем актуально.
Возник вопрос. Как повесить в коде VBA отработку заданного мной события на определённую дату. С текущим временем я вроде освоился, а вот сделать отложенный на задуманную дату сюрпрайз не могу. В стартовой(основной) форме есть два поля: Дата и Время с соответствующими для них данным =Date() и =Time(). Time() отрабатывает у меня открытие некоторых форм при срабатывания проверочных запросов. Как заставить работать поле Дата?

@alvk · 11.04.2018, 02:53

Сообщение от Stalker73i

Как повесить в коде VBA отработку заданного мной события на определённую дату.

При открытии формы проверять текущую дату и, если она та, то запускать обработку.
Если обработку нужно запускать единожды, то нужно ещё где-либо в таблице сделать поле Выполнено например и заполнять его после обработки, а перед обработкой проверять вместе с датой.

@Stalker73i · 13.04.2018, 10:14 **[ТС]**

Сообщение от alvk

проверять текущую дату и, если она та, то запускать обработку.

Спасибо за подсказку, в принципе я и копаю в этом направлении, получилось как то так.

Visual Basic
1
2
3
4
5
If Me.Поле101 = 0.74308 Or Me.Поле101 = 0.74309 Then
   If Me.Дата = "13.04.2018" Then
DoCmd.DeleteObject acForm, "Рассылка почты"
     End If
   End If

Не ругайтесь за экстремизм, но некоторые напарники настолько обленились с внедрением моей БД, что даже заполнять формы им стало в падлу и перекладывают это уже на мою смену. Целиком БД удалять жалко, а вот проучить с переходом на ручную рассылку почту, при том что, уже напрочь забыто как это делается - это самый действенный способ.
А код подредактируем.

@alvk · 13.04.2018, 10:46

Если поле с датой имеет тип дата, то лучше так

Visual Basic
1
If Me.Дата = #04/13/2018# Then

что характерно и так ест:

Visual Basic
1
2
?#13/04/2018# = date()
True

shanemac51 · 13.04.2018, 11:11

Сообщение от alvk

что характерно и так ест:

потому , что день более 12

@alvk · 13.04.2018, 11:29

Да, верно

Visual Basic
1
2
?#10/04/2018# = date() - 3
False

Новые блоги и статьи Все статьи Все блоги /
Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .
Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))

@Stalker73i 127 / 25 / 1 Регистрация: 07.02.2016 Сообщений: 238

	Планировщик заданий 20.04.2016, 12:27. Показов 8690. Ответов 27 Метки нет (Все метки) Есть задумка, не знаю возможно ли реализовать её средствами Аксесс. Допустим есть список заданий который внесён в таблицу, либо он вносится ежесменно мастером по "удалёнке" через индивидуальную форму. Нужно вывести сообщение в окно Аксеса в виде формы или другого элемента, что у Вас есть поступившее задание от мастера к примеру на 9:00 или текущие запланированное согласно графику работы - к примеру в 7:00 "занесите остатки в форму такую то", в 10:00 "снимите показания со счётчиков жидкости" и т.п. до окончания рабочего дня. Комп работает круглосуточно. Так же прописать появление окна с информацией о получение сообщений по электронной почте и многое чего подобное, в плоть до ТО вверенного оборудования и времени замены расходников. 0

@Stalker73i 127 / 25 / 1 Регистрация: 07.02.2016 Сообщений: 238
	10.04.2018, 08:21 [ТС]
	Здравствуйте. Всех с праздником Светлым Христовым Воскресением! Текущую неделю сие событие более чем актуально. Возник вопрос. Как повесить в коде VBA отработку заданного мной события на определённую дату. С текущим временем я вроде освоился, а вот сделать отложенный на задуманную дату сюрпрайз не могу. В стартовой(основной) форме есть два поля: Дата и Время с соответствующими для них данным =Date() и =Time(). Time() отрабатывает у меня открытие некоторых форм при срабатывания проверочных запросов. Как заставить работать поле Дата? 0