Доброго вечера! в одиночку пока не могу победить задачу.
Прошу помощи.

Задача: составить расписание занятий.
В абонемент включено 10 занятий. В абонементе три вида занятия,у каждого свой день недели. Занятия повторяются каждую неделю в тот же день.
Как создать цикл создания занятий, так чтобы он прерывался когда в базу запишутся 10 занятий?

Private Sub Кнопка177_Click()
If Nz(Me.ФИО_ребенка) = "" Then
MsgBox ("Занятие НЕ сохранено. Выберите клиента.")
Else
Dim rs12 As Recordset, i, myDate As Date
Dim rs13 As Recordset
myDate = Me.D11
myDate1 = Me.D21
myDate2 = Me.D31
Set rs12 = CurrentDb.OpenRecordset("Расписание")
Set rs13 = CurrentDb.OpenRecordset("Расписание")

For i = 1 To Me.Занятий
    If Me.P1 > 0 Then
    rs12.AddNew
    rs12![ФИО ребенка] = Me.ФИО_ребенка
    rs12!НомерЗанятия = i
    rs12![ДатаЗанятия] = myDate
    myDate = myDate + 7
    rs12.Update


        
'If Me.P2 > 0 Then
'rs13.AddNew
'rs13![ФИО ребенка] = Me.ФИО_ребенка
'rs13!НомерЗанятия = i
'rs13![ДатаЗанятия] = myDate1
'myDate1 = myDate1 + 7
'rs13.Update
'
'        ElseIf Me.P3 > 0 Then
'        rs12.AddNew
'        rs12![ФИО ребенка] = Me.ФИО_ребенка
'        rs12!НомерЗанятия = i
'        myDate = myDate + 7
'        rs12![ДатаЗанятия] = myDate
'        rs12.Update

'End If
End If
Next
End If
MsgBox ("Занятие успешно сохранено!")
End Sub

http://www.sql.ru/forum/1257980/cikl-zapisi-s-preryvaniem-po-usloviu