Private Sub Сохранить_Click()
   Dim i As Variant
   Dim Prep
   Dim dbs1 As Database
   Dim rst1 As Recordset
   Prep = Array(prep1, prep2, prep3)
   Set dbs1 = CurrentDb
   Set rst1 = dbs1.OpenRecordset("Ocenka")
  For i =  1  To  3 
   With rst1
      .AddNew
      [color=red]!KodP = Prep(i)[/color]
      !Kurs = Kurs
      !KodS = spec
      .Update
   End With
 Next i
   rst1.Close
   End Sub

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы