Авто создание нескольких записей в таблице при наступления события

@quickstar · Регистрация: 12.01.2017

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

Добрый день!
Есть две таблицы: Клиенты и Занятия.
В "клиенты" есть дата заключения договора и выбор курса. Курсы проходят раз в неделю.

Задача:
когда в таблице "Клиенты" выбираю курс "№1", то мне нужно, чтобы в таблице "занятия" автоматически создавались 8 строк (записей) с фиксацией даты занятия. Пример: дата занятия 1 = дата договора +7 дней, дата занятия 2 = дата договора +14 дней и т.д.

Подскажите, пожалуйста, как это сделать?

shanemac51 · 12.03.2017, 12:40

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

Подскажите, пожалуйста, как это сделать?

первым делом --выложите пример базы, чтобы отвечающим не надо было создавать ее, заполнять и прочее

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

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

Курсы проходят раз в неделю.

возможно, что надо и выходные/праздники пропускать

@quickstar · 12.03.2017, 12:42 **[ТС]**

Файл во вложении.
Выходные и праздники не учитываем.
Учитываем, что занятие раз в неделю.

@quickstar · 12.03.2017, 12:47 **[ТС]**

Несу уточнение: когда в таблице "клиенты" завожу нового пользователя и выбираю "курс №1", тогда в таблице "занятия" нужно создать 8 строчек с датами занятий.
Когда выбираю "курс №2", то нужно создать 11 строчек с датами занятий в таблице "занятия"

@quickstar · 12.03.2017, 16:52 **[ТС]**

Код:

Visual Basic

Private Sub Form_AfterUpdate()
Dim rs As Recordset, i, myDate As Date
myDate = Me.Дата_договора
Set rs = CurrentDb.OpenRecordset("занятия")
For i = 1 To DLookup("[кол-во занятий]", "курсы", "код=" & Me.Курс)
rs.AddNew
rs![фио студента] = Me.Код
rs!урок = i
rs!дата = myDate
myDate = myDate + 7
rs.Update
Next
End Sub

это код, который предложил автор sdku
Но он не работает у меня почему-то.

Посмотрите, пожалуйста, в чем я ошибся.

@ssergg-88 · 12.03.2017, 18:31

У вас клиенты добавляются простым переходом к новой записи, поэтому программа должная понимать когда ей добавлять записи в таблицу "занятия", сделал кнопку добавить запись. Кроме того переменная i числовая, а у вас была как дата. И третье - проверка на наличие занятий в таблице "занятия" (чтобы несколько раз случайно не добавить), и проверка заполнены ли все необходимые поля.

@quickstar · 12.03.2017, 18:36 **[ТС]**

ssergg-88, спасибо!
вложенный Вами файл, это старый мой, не измененый, отправьте, пожалуйста, Вашу версию, с кнопкой и доработанный.

@ssergg-88 · 12.03.2017, 18:49

Действительно!

@quickstar 0 / 0 / 0 Регистрация: 12.01.2017 Сообщений: 35
		1
	Авто создание нескольких записей в таблице при наступления события 12.03.2017, 12:13. Показов 471. Ответов 7 Метки нет (Все метки) Добрый день! Есть две таблицы: Клиенты и Занятия. В "клиенты" есть дата заключения договора и выбор курса. Курсы проходят раз в неделю. Задача: когда в таблице "Клиенты" выбираю курс "№1", то мне нужно, чтобы в таблице "занятия" автоматически создавались 8 строк (записей) с фиксацией даты занятия. Пример: дата занятия 1 = дата договора +7 дней, дата занятия 2 = дата договора +14 дней и т.д. Подскажите, пожалуйста, как это сделать? 0

shanemac51 Модератор 11960 / 4828 / 779 Регистрация: 07.08.2010 Сообщений: 14,139 Записей в блоге: 4
	12.03.2017, 12:40	2
	Сообщение от quickstar Подскажите, пожалуйста, как это сделать? первым делом --выложите пример базы, чтобы отвечающим не надо было создавать ее, заполнять и прочее Добавлено через 1 минуту Сообщение от quickstar Курсы проходят раз в неделю. возможно, что надо и выходные/праздники пропускать 0

@quickstar 0 / 0 / 0 Регистрация: 12.01.2017 Сообщений: 35
	12.03.2017, 12:47 [ТС]	4
	Несу уточнение: когда в таблице "клиенты" завожу нового пользователя и выбираю "курс №1", тогда в таблице "занятия" нужно создать 8 строчек с датами занятий. Когда выбираю "курс №2", то нужно создать 11 строчек с датами занятий в таблице "занятия" 0

@quickstar 0 / 0 / 0 Регистрация: 12.01.2017 Сообщений: 35
	12.03.2017, 18:36 [ТС]	7
	ssergg-88, спасибо! вложенный Вами файл, это старый мой, не измененый, отправьте, пожалуйста, Вашу версию, с кнопкой и доработанный. 0

	12.03.2017, 18:49