Кнопка добавления новой записи

@puuudgeee · Регистрация: 15.06.2017

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

Добрый день.
Столкнулся с такой проблемой:
Создал в форме навигация кнопку "Добавить оборудование" в теории по нажатию на кнопку надо открывать форму "t_оборудование" для внесения новой записи (форма в свою очередь заблокирована для редактирования существующих записей). В форме "t_оборудование" есть кнопка "Изменить" которая разблокирует основную и подчиненную форму на редактирование записей.

с кнопкой "изменить" я разобрался порывшись на форуме.
Я плохо(никак) разбираюсь в VB и не всегда понимаю как правильно писать код.
У меня получилось открывать форму "t_оборудование" через кнопку "Добавить оборудование", но она открывалась на последней записи, а надо на новой.
И еще вопрос как в форме "t_оборудование" сделать скрытыми поля если галочки не выставлены (см. рисунок)

@puuudgeee · 17.09.2021, 11:15 **[ТС]**

Сообщение от Eugene-LS

вам пару байтиков ....
Посмотрите пожалуйста - т

Посмотрел, все огонь! Спасибо огромное!!!
Скажите как правильно написать выражения:
В подчиненной форме "процедура_поверки_под" есть два поля "дата поверки" и "дата повери до" так вот как сделать что бы к полю "дата повери до" прибавлялось количество месяцев указанных в форме "t_оборудование" поле "периодичность поверки (месяцев)" при этом имелась возможность изменить дату. я сделал сейчас самым примитивным методом, мне даже изменить дату не дает в поле

@puuudgeee · 17.09.2021, 12:20 **[ТС]**

Сообщение от Eugene-LS

а-логично!
Всё закончилось:

еще вопрос как в форме "список оборудования поверка" выводить только список оборудование. сейчас если я ввожу данные о поверке в форме "список оборудования поверка" появляется такое же оборудование. как я понял это связано с тем что я беру данные из запроса "список_оборуд_поверка", а там после внесении нескольких поверок к одному оборудованию появляется новая запись что логично.

@Eugene-LS · 17.09.2021, 13:39

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

как сделать что бы к полю "дата повери до" прибавлялось количество месяцев указанных в форме "t_оборудование" поле "периодичность поверки (месяцев)

При помощи встроенных функций : DLookup() и DateAdd()

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub txtДатаПоверки_AfterUpdate()
Dim vVal, sVal As String, dNextDate As Date
    If IsNull(Me!txtДатаПоверки) = True Then
        Me!txtДатаПоверкиДо = Null ' не обязательно
        Exit Sub
    End If
    
    vVal = Nz(Me!кд_оборудования_поверки_под)
    sVal = "кд_оборудования = " & vVal
    'кол-во месяцев:
    vVal = DLookup("периодичность_поверки", "t_оборудование", sVal)
    dNextDate = DateAdd("m", Nz(vVal), Me!txtДатаПоверки)
    Me!txtДатаПоверкиДо = dNextDate
End Sub

как в форме "список оборудования поверка" выводить только список оборудование.

Изменить источник данных формы "список оборудования поверка" - там запрос "Список_оборуд_поверка", в котором высобрали всё подряд, видимо от жадности и нетерпения ...

@puuudgeee · 17.09.2021, 15:26 **[ТС]**

Сообщение от Eugene-LS

Изменить источник данных формы "список оборудования поверка" - там запрос "Список_оборуд_поверка", в котором вы собрали всё подряд, видимо от жадности и нетерпения ...

Как я понял надо в самой форме "список оборудования поверка" добавить поле "кд_оборудования" из таблицы "t_оборудование"? у меня все равно добавляет запись.

@Eugene-LS · 17.09.2021, 16:37

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

Как я понял надо в самой форме "список оборудования поверка" добавить поле "кд_оборудования" из таблицы "t_оборудование"?

Нет.
Вот посмотрите запрос : "Список_оборуд_поверка_02" и формы по теме
Может сгодится на что ...

@puuudgeee · 17.09.2021, 16:57 **[ТС]**

Сообщение от Eugene-LS

Изменить источник данных формы "список оборудования поверка" - там запрос "Список_оборуд_поверка", в котором высобрали всё подряд, видимо от жадности и нетерпения ..

Сообщение от Eugene-LS

Нет.
Вот посмотрите запрос : "Список_оборуд_поверка_02" и формы по теме
Может сгодится на что ...

Но после добавления все равно появляется новая запись в форме "Список_оборуд_поверка", а как сделать что бы список не изменялся? что бы он оставался таким же как и список оборудования?

@Eugene-LS · 17.09.2021, 17:10

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

а как сделать что бы список не изменялся?

Запрос : "Список_оборуд_поверка_01" - замените тело на:

SQL
1
2
3
4
5
6
SELECT LAST(t_поверка.кд_оборудования_поверки_под) AS оборудID, 
MAX(t_поверка.дата_поверки) AS LastDate, 
LAST(t_поверка.дата_поверки_до) AS EndDate
FROM t_поверка
WHERE (((t_поверка.пригодно)=TRUE))
HAVING (((LAST(t_поверка.дата_поверки_до)) IS NOT NULL));

Вариант не наверняка не окончательный, но сработал.
Выводит данные о последней годной проверке для каждого наименования оборудования.

@puuudgeee · 17.09.2021, 17:25 **[ТС]**

Сообщение от Eugene-LS

Вариант не наверняка не окончательный, но сработал.
Выводит данные о последней годной проверке для каждого наименования оборудования.

Да, но он не выводит дату поверки, что тоже не очень удобно, все же лучше видеть даты даже если они истекли (выделять их цветом в зависимости от приближения даты меняется цвет поля даты следующей поверки

@Eugene-LS · 17.09.2021, 17:38

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

Да, но он не выводит дату поверки

Как это? - выводит - только самой последней (годной)

Добавлено через 2 минуты

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

все же лучше видеть даты даже если они истекли

Тогда как их отображать? - запись оборудования то всего одна !?
Противоречие однако.

@Eugene-LS · 17.09.2021, 17:48

puuudgeee, хорошо ...
Я че-та туплю уже ...

Делаем тело запроса: "Список_оборуд_поверка_01" таким:

SQL
1
2
3
4
5
SELECT t_поверка.кд_оборудования_поверки_под AS оборудID, 
MAX(t_поверка.дата_поверки) AS LastDate, 
LAST(t_поверка.дата_поверки_до) AS EndDate
FROM t_поверка
GROUP BY t_поверка.кд_оборудования_поверки_под;

Получаем список по всему оборудованию:

@puuudgeee · 20.09.2021, 10:25 **[ТС]**

Вот еще вопрос как в форме "Список_оборуд_поверка" сделать поля "последняя поверка до" изменяемыми по цвету в зависимости от времени?
У меня получилось через условное форматирование сделать так: если дата в поле "последняя поверка до" истекла то поле закрашивается красным, если нет то зеленым. Хотелось бы сделать что то вроде такого: если остается 2 месяца до окончания срока поверки поле заполняется желтым цветом, если срок действия поверки до истек то красным, если действует то зеленый.

Добавлено через 4 минуты

Сообщение от Eugene-LS

Тогда как их отображать? - запись оборудования то всего одна !?
Противоречие однако.

я неправильно выразился.
Требуется выводить в форме "Список_оборуд_поверка" только данные последней записи о поверке для прибора даже если она истекла.

@Eugene-LS · 20.09.2021, 14:03

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

Требуется выводить в форме "Список_оборуд_поверка" только данные последней записи о поверке для прибора даже если она истекла.

Ну это понятно.

Теперь давайте "спустимся на землю" и обсудим:
Ориентироваться придётся на "дата_поверки", т.к. поле "дата_поверки_до" поле расчётное - иметь его в таблице ("t_поверка") не нужно, ибо его всегда можно несложно рассчитать.
Но правила могут меняться - следовательно в "t_поверка" не мешает записывать "периодичность_поверки" - так будет хорошо.

Согласны?

@puuudgeee · 21.09.2021, 09:36 **[ТС]**

Сообщение от Eugene-LS

Согласны?

Согласен

@puuudgeee · 22.09.2021, 10:28 **[ТС]**

Сообщение от Eugene-LS

Теперь давайте "спустимся на землю" и обсудим:

не пойму как сделать цвет желтым когда остается всего два месяца
Вот еще вопрос как в форме "Список_оборуд_поверка" сделать поля "последняя поверка до" изменяемыми по цвету в зависимости от времени?
У меня получилось через условное форматирование сделать так: если дата в поле "последняя поверка до" истекла то поле закрашивается красным, если нет то зеленым. Хотелось бы сделать что то вроде такого: если остается 2 месяца до окончания срока поверки поле заполняется желтым цветом, если срок действия поверки до истек то красным, если действует то зеленый.

@alvk · 22.09.2021, 11:19

два месяца осталось, это date() >= датаваша - 60

@puuudgeee · 22.09.2021, 14:10 **[ТС]**

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

два месяца осталось, это date() >= датаваша - 60

Что я сделал неправильно?

@Eugene-LS · 22.09.2021, 16:38

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

Что я сделал неправильно?

Вместо Now() - лучше использовать Date() т.к. время не учитывается
Смотрите пример ниже:

@Eugene-LS · 22.09.2021, 16:50

puuudgeee, пример:

@Eugene-LS · 22.09.2021, 17:22

puuudgeee, немного доработал и облегчил:

Новые блоги и статьи Все статьи Все блоги /
Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .

@alvk 7459 / 4592 / 302 Регистрация: 12.08.2011 Сообщений: 14,383
	22.09.2021, 11:19
	два месяца осталось, это date() >= датаваша - 60 0