-
Сервис онлайн-записи на собственном Telegram-ботеТот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое расписание, но и напоминать клиентам о визитах тоже. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
Для новых пользователей первый месяц бесплатно. Чат-бот для мастеров и специалистов, который упрощает ведение записей: — Сам записывает клиентов и напоминает им о визите;
— Персонализирует скидки, чаевые, кэшбэк и предоплаты;
— Увеличивает доходимость и помогает больше зарабатывать; Начать пользоваться сервисом -
Как продвинуть сайт на первые места?Вы создали или только планируете создать свой сайт, но не знаете, как продвигать? Продвижение сайта – это не просто процесс, а целый комплекс мероприятий, направленных на увеличение его посещаемости и повышение его позиций в поисковых системах.Ускорение продвиженияЕсли вам трудно попасть на первые места в поиске самостоятельно, попробуйте технологию Буст, она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 7 дней. Если ни один запрос у вас не продвинется в Топ10 за месяц, то в SeoHammer за бустер вернут деньги. Начать продвижение сайта
-
| Информационная система учета и поверки |
|
Страница 8 из 13
Разработка необходимых запросов, макросов, программных модулей, отчетов. Задача обновления данных в поле «Дата следующей поверки» Цель: При вводе новых данных в форме «Поверка» назначить процедуру, которая позволяет: Создавать и обновлять дату следующей поверки на основе даты последней поверки, увеличивая дату на год, в том случае если прибор прошел проверку. После обновления поля даты, выводится сообщение «Дата назначена». Если прибор не прошел проверку(значение в поле годен/негоден = ложь), выводится сообщение: «Прибор находится на ремонте».
Рис. 5 обновления данных в поле «Дата следующей поверки». Для осуществления этой задачи была создана кнопка, при нажатии на которую выполнялся программный код: Private Sub Кнопка22_Click() Dim dbs As Database Dim tbl As Recordset Dim tbu As Recordset Set dbs = CurrentDb Set tbl = dbs.OpenRecordset("Поверка", dbOpenDynaset) Set tbu = dbs.OpenRecordset("Ремонтные работы", dbOpenDynaset) If tbl.EOF Then Exit Sub tbl.MoveFirst tbl.MoveLast d = tbl.RecordCount If Form_asd.Годен_Негоден.Value Then tbl.Edit Dim a, olddate olddate = Form_asd.Дата_последней_поверки.Value a = DateAdd("yyyy", 1, olddate) For i = 1 To d tbl.Edit tbl.MoveFirst If tbl![Годен_Негоден] = True Then Form_asd.Дата_последующей_поверки = a End If tbl.MoveNext Next i MsgBox "Дата назначена" Else MsgBox "прибор на ремонте" End If tbl.Close Set dbs = Nothing End Sub
|
