Предупреждение:подчиненная форма пустая

@alenka-samara · Регистрация: 22.06.2014

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

Есть главная и подчиненная форма

если на главной в поле написать инфу, а в подчиненной ничего не писать, то запись создается с пустыми полями подчиненной формы.

Цель: Показывать сообщение или запрещать сохранять новую запись, пока в подчиненной форме не появится запись

mobile · 20.01.2018, 14:22

Capi, если формы (и таблицы в них) связаны как master/child, то первой заполняется главная. А Ваша процедура просто не позволит создать запись в субформе. Ведь как только курсор переместится в подформу, сработает процедура и курсор останется в главной.

@VinniPuh · 20.01.2018, 14:28

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

...Именно так....

Конечно допучкаю и такой вариант,
НО:
Всё таки чудится и мнится, что ТС возжелал просто не допускать ошибок,
типа на новой записи в основной, если она не создана, И пользователь в творческом порыве начинает заполнять подчиненную, то потом эти записи будут относиться к НИ К ЧЕМУ.
ТС хочет, что бы выпрыгивала ПРЕДУПРЕЖДАЮЩАЯ ЗАПИСЬ
А я РЕКОМЕНДУЮ, - ВААЩЕ не допускать до ОШИБОК.

Вот в элементарном примере:
Если нет Номера помещения (кабинета или палаты), то и НЕЛЬЗЯ в подчиненной указать имеющееся там имущество.

А лишние телодвижения в виде пугающих выскакивающих сообщений - ЛИШНЕЕ и просто пустая трата времени, ибо человек можеет и нечаянно ошибиться.
Ну лично я так думаю, ибо всё что сверх нужного - от Лукавого.

@Capi · 20.01.2018, 16:46

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

процедура просто не позволит создать запись в субформе.
Ведь как только курсор переместится в подформу, сработает процедура и курсор останется в главной.

Ох... Порочный круг...
Вот этого я и не учла.
Хотя формально пожелание ТС выполняется.
Даже слишком.)))

Добавлено через 1 час 59 минут
Вот вариант, позволяющий добавлять записи в подчиненную форму,
но не выпускающий из записи главной формы, если записей в подчиненной нет.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim IdCurr As Long
 
Private Sub Form_Current()
 If IdCurr <> Id And IdCurr <> 0 Then
  If DCount("*", ПодчФорма.Form.RecordSource, "Id=" & IdCurr) = 0 Then
   Id.SetFocus
   DoCmd.FindRecord IdCurr
   MsgBox "Подчиненная форма пуста !!!"
  Else
   IdCurr = Id
  End If
 Else
  IdCurr = Id
 End If
End Sub
 
Private Sub ПодчФорма_Exit(Cancel As Integer)
 If ПодчФорма.Form.Recordset.RecordCount = 0 Then
   Id.SetFocus
   DoCmd.FindRecord IdCurr
   MsgBox "Подчиненная форма пуста !!!"
 End If
End Sub

Id - ключ, нужно подставить свое имя.

Вот только при закрытии формы стандартной кнопкой (крестик в правом верхнем углу)
не удалось осуществить требуемое.
Но можно отказаться от стандартной кнопки и сделать свою с соответствующей обработкой.

@VinniPuh · 20.01.2018, 17:13

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

...но не выпускающий из записи главной формы, если записей в подчиненной нет....

А смысл в этом то какой?
По себе знаю, что частеньно понасоздаю всяких типа - КАТЕГОРИЙ, а потом для созданного, создаю - ПОДКАТЕГОРИИ.
А по вашей логике похоже пока АБСОЛЮТНО УСЁ не предусмотришь, то и не поработаешь.
В реальной жизни так не бывает, иногда приходится и ДОПОЛНЯТЬ.
Не все же изначально - ВСЕВЕДУЩИ.

@Capi · 22.01.2018, 02:29

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

А по вашей логике похоже пока АБСОЛЮТНО УСЁ не предусмотришь, то и не поработаешь

Поработаешь, но плохо.
А вот как все предусмотришь, так совсем другое дело.
Это программирование, чего же хотите?

Вот, кстати, и доказательство.
Обнаружила у себя недоработку.
Не отслеживается случай, когда принято решение удалить из главной формы запись,
не имеющую записей в подчиненной форме.
Исправляю.
К уже показанному в #23 коду добавляется процедура:

Visual Basic
1
2
3
4
5
Private Sub Form_AfterDelConfirm(Status As Integer)
 If Status = acDeleteOK Then
  IdCurr = Id
 End If
End Sub

Добавлено через 2 часа 32 минуты
Еще уточнение.
В процедурах Form_Current и ПодчФорма_Exit лучше заменить

Visual Basic
1
2
   Id.SetFocus
   DoCmd.FindRecord IdCurr

на

Visual Basic
1
2
   Me.Recordset.FindFirst "Id=" & IdCurr
   Me.Bookmark = Me.Recordset.Bookmark

так как ключевое поле не всегда выводится на экран
и передать ему фокус в таком случае не получится.

@VinniPuh · 22.01.2018, 05:31

Вашими же словами
Вот вам кстати и дока́зательство
Такой опытная програмист и то все сразу не предусмотрел, да ещё и кучу ошибок у себя нашел.
Что явно противоречит голословным и высокопарным утверждениям, что вы все можете заранее предусмотреть и даже потом не вносить изменения и дополнения.
Все с вами понятно.

@Capi · 22.01.2018, 08:43

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

Новые блоги и статьи Все статьи Все блоги /
Скрипты 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 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .

@alenka-samara 0 / 0 / 0 Регистрация: 22.06.2014 Сообщений: 122

	Предупреждение:подчиненная форма пустая 17.01.2018, 22:46. Показов 3382. Ответов 26 Метки нет (Все метки) Есть главная и подчиненная форма если на главной в поле написать инфу, а в подчиненной ничего не писать, то запись создается с пустыми полями подчиненной формы. Цель: Показывать сообщение или запрещать сохранять новую запись, пока в подчиненной форме не появится запись 0

mobile 26828 / 14509 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	20.01.2018, 14:22
	Capi, если формы (и таблицы в них) связаны как master/child, то первой заполняется главная. А Ваша процедура просто не позволит создать запись в субформе. Ведь как только курсор переместится в подформу, сработает процедура и курсор останется в главной. 1

@VinniPuh 9147 / 6179 / 594 Регистрация: 27.03.2013 Сообщений: 20,049
	22.01.2018, 05:31
	Вашими же словами Вот вам кстати и дока́зательство Такой опытная програмист и то все сразу не предусмотрел, да ещё и кучу ошибок у себя нашел. Что явно противоречит голословным и высокопарным утверждениям, что вы все можете заранее предусмотреть и даже потом не вносить изменения и дополнения. Все с вами понятно. 0

@Capi Модератор 6231 / 2909 / 707 Регистрация: 12.06.2016 Сообщений: 7,839
	22.01.2018, 08:43
	напомню: это не мое утверждение, а ваше. всего два поста назад. а то, что дополнения и улучшения путаете с ошибками, ну, что поделать... пусть будут ошибки, не возражаю. 0