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

[Dmitry_SF]

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

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

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

[Dmitry_SF]

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

[Aleksandr H.]

1. Нет такой таблицы "Клиенты"
2. А если вместо курс1 выбрать курс2 то создать еще N новых строк?
имхо сабж через форму и sql запрос решается

[Dmitry_SF]

Да, извиняюсь, таблица "ФИО клиента"

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
Но он не работает у меня почему-то.

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