[HELP] Как добавить все элементы из списка с привязкой id студента?

Question

[bender3000]

Уже третий день не могу понять как написать цикл для внесения данных из списка!
Сейчас я умею добавлять одну запись в таблицу с идентификатором студента, названием оценки и самой оценкой.
Private Sub save_marks_Click()
Dim strSQL As Variant
Dim criteriaSQL As String
criteriaSQL = " Insert Into marks(userid, finalgrade) values ('" & Me.student & "', '" & Me.mark & "')"
For Each strSQL In criteria.Column
strSQL = " Insert Into marks(criteriaid) values ('" & Me.criteria & "');"
CurrentProject.Connection.Execute (strSQL)
Next strSQL
MsgBox ("Added!")
End Sub
Но для для цикла необходимо присвоить каждой строке свою оценку(комбобокс). И вот здесь затык. Цикл For Each next не смог правильно составить, постоянно ругается на тип данных, а как их сгруппировать не пойму. Прошу помощи!

Answer 1

[Артём Каретников]

Вот я примерно об этом вам только что и писал. Подход странный.
Вы меняете или добавляете в один момент - одну запись. Одну. Нахрена писать их все?
Ловим событие after_update комбобокса с оценками. И вставляем/обновляем запись. Одну. Не забудьте проверять, что заполнены комбобоксы Grade, Subject, Student.

Это если очень хочется кодом. А ведь это же самое можно сделать вообще код не используя.

Comments

[bender3000]

Эти комбобоксы влепил от не знания. Подскажите, какими элементами реализовать добавление оценок в таблицу, чтобы было юзабильно и расширяемо.

[Артём Каретников]

в вашем случае, с оценками в американском стиле можно и комбобоксы. Дело-то не в элементах, а в странных идеях, вам не надо обновлять все записи студента, работу с кучей записей над в транзакцию оборачивать.
Вы продумайте сначала требования. Потому что сейчас похоже на то, что вы просто экспериментируете, что и как будет. Рабочую систему так не создать.

Например:

Что я хочу с оценками студента? Я хочу сохранять ее, когда она введена или обновлять. Надо ли мне проверять, что у него уже есть оценка? Надо ли мне ограничивать права доступа тем, кто может поставить/поменять оценку?
Сохраняю ли я дату-время вставки и, отдельно, дату обновления, а равно логин того, кто это сделал?
Проверяю ли я, что студент вообще учится на этом направлении, ограничиваю ли выбор студентов?
Это вот так, первые же возникающие вопросы. Полезны они? :)