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

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Мир MS Excel » Вопросы и решения » Excel и другие приложения » Access » Создание нескольких записей в таблице при наступления событи

quickstar

Дата: Воскресенье, 12.03.2017, 12:15 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 20% ±

Excel 2007

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

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

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

Ответить

quickstar

Дата: Воскресенье, 12.03.2017, 12:45 | Сообщение № 2

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 20% ±

Excel 2007

База во вложении

К сообщению приложен файл: _v1.rar (39.5 Kb)

Ответить

Gustav

Дата: Воскресенье, 12.03.2017, 14:57 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2745

Репутация: 1137 ±

Замечаний: 0% ±

начинал с Excel 4.0, видел 2.1

Цитата quickstar, 12.03.2017 в 12:15, в сообщении № 1 ()

Есть две таблицы: Клиенты и Занятия.

Таблицы "Клиенты" в базе нет, но есть таблица "ФИО студента". Она имеется в виду под "Клиентами"?

МОИ: Ник, Tip box: 41001663842605

Ответить

quickstar

Дата: Воскресенье, 12.03.2017, 15:26 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 20% ±

Excel 2007

да, верно

Ответить

quickstar

Дата: Воскресенье, 12.03.2017, 17:03 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 20% ±

Excel 2007

Код
[vba]

Код

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

[/vba]

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

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

К сообщению приложен файл: 7377683.rar (42.0 Kb)

Ответить

Страница 1 из 1
1