Нужно после первой итерации заменить элемент Me.mark0 на Me.mark1, после второй итерации Me.mark1 на Me.mark2 и т.д.
Если лучше вводить другие значения, то пожалуйста подскажите.
Антон Федорян:
Private Sub Save_Click()
Dim criteriaSQL As String
With Me.criteria
For i = 0 To .ListCount - 1
.SetFocus
.Selected(i) = True
criteriaSQL = " Insert Into marks(userid, criteriaid, finalgrade) values ('" & Me.student & "', '" & Me.criteria & "', '" & Me.mark0 & "')"
CurrentProject.Connection.Execute (criteriaSQL)
Next
End With
MsgBox ("Added!")
End Sub
Антон Федорян: если правильно написать в values Me.mark[i], то массив создавать не надо, цикл for to сделает все сам. Варианты с квадратными и круглыми скобками не подошли. Где прочитать про синтаксис values?
