Как прописать первый элемент списка в процедуре обработки событий?

Question

[shokw0w]

В таблицу marks надо прописать id студента, id критерия оценки и саму оценку. В кнопку "Save marks" прописал следующее:
Dim strSQL, gradeSQL As String
strSQL = " Insert Into marks(criteriaid, userid, finalgrade) values ('" & Me.criteria & "', '" & Me.student & "', '" & Me.mark & "');"
CurrentProject.Connection.Execute (strSQL)
MsgBox ("Added!").
Проблема в том, что в таблицу добавится одна запись, а нужно продублировать id студента и добавить остальные оценки.

Comments

[Алексей Уколов]

Ну прекратите вы уже, пожалуйста, спамить в тегах...

Answer 1

[freeExec]

Ну так у вас в insert значения только для одной строки, чего же вы хотите. Так что прикручивайте цикл.

Comments

[shokw0w]

подскажите как по каждому элементу цикл сделать?

[freeExec]

Так же как список критериев формировали.

[shokw0w]

freeExec: как-то так?
Dim strSQL, gradeSQL As String
strSQL = {while criteria(count) = ЗДЕСЬ УСЛОВИЕ ДО ПОСЛЕДНЕЙ СТРОКИ do} " Insert Into marks(criteriaid, userid, finalgrade) values ('" & Me.criteria & "', '" & Me.student & "', '" & Me.mark & "');"
CurrentProject.Connection.Execute (strSQL)
MsgBox ("Added!")

[freeExec]

shokw0w: Даже на этом сферическом алгоритме, я не вижу, чтобы менялось Me.*

[shokw0w]

freeExec: вся загвоздка в этом. Не могу представить, как пройтись по всем записям. Как перейти от первой записи ко второй и тоже самое с combox.

[freeExec]

shokw0w: У Combobox должно быть поле, где лежит коллекция элементов в него добавленных.