Set tbl = Currentdb.openrecordset("SELECT УченикID FROM Клиенты WHERE ГруппаID=" & НужнаяГруппаID & ";")
Set tbl2 = Currentdb.openrecordset("Занятия")
If tbl.recordcount>0 'если есть ученики в этой группе
 with tbl
  .movefirst 'идём от первого ученика
  do while not .eof 'до конца списка
    tbl2.addnew
    tbl2.УченикID = !УченикID
    tbl2.Дата = ПолеФормы
    tbl2.Время =
     ...
    tbl2.update
  .movenext 'следующий ученик
  loop 
 end with
end if
tbl.close
tbl2.close
set tbl = nothing
set tbl2= nothing