Private Sub Кнопка5_Click()
Select Case КодКлиента And ФИОребенка And Возраст And Курс And ГодПосещения And Пожелания And Пожелания1 And Педагог
FROM Клиенты

Dim i, rs As Recordset
Set rs = CurrentDb.OpenRecordset("Клиенты")
For i = 1 To 10

WHERE ((Клиенты.Возраст) BETWEEN  "3" and "3.5")
WHERE ((Клиенты.Курс) = 1)
WHERE ((Клиенты.ГодПосещения) = 1)
WHERE ((Клиенты.Пожелания) <> 1)
WHERE ((Клиенты.Пожелания1) <> 3)
WHERE ((Клиенты.ГодПосещения) = 1)
rs![Группа] = 1
rs.Update

If i < 10 Then
Next i
Else

For i = 1 To 10

WHERE ((Клиенты.Возраст) BETWEEN  "3.5" and "4")
WHERE ((Клиенты.Курс) = 1)
WHERE ((Клиенты.ГодПосещения) = 1)
WHERE ((Клиенты.Пожелания) <> 1)
WHERE ((Клиенты.Пожелания1) <> 3)
WHERE ((Клиенты.ГодПосещения) = 1)
rs![Группа] = 2
rs.Update

If i < 10 Then
Next i
Else



End Sub

Private Sub Кнопка5_Click()

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("Select Код, ФИО FROM Клиенты " + _
   " WHERE ((Клиенты.Возраст) BETWEEN  3 and 3.5) and ((Клиенты.Курс) = 1) and ((Клиенты.ГодПосещения) = 1) and ((Клиенты.Пожелания) <> 1)")

Dim group As Integer
Dim client_count As Integer

group = 1
client_count = 0

Do While Not rs.EOF()
    client_count = client_count + 1

    CurrentDb.Execute ("update Клиенты Set Группа =" + CStr(group) + " where Код = " + CStr(rs.Fields("Код")))

    If (clien_count = 10) Then
        group = group + 1
        client_count = 0
    End If


    rs.MoveNext
    
Loop


End Sub