Как изменять value в цикле?

Question

[shokw0w]

Нужно после первой итерации заменить элемент Me.mark0 на Me.mark1, после второй итерации Me.mark1 на Me.mark2 и т.д.
Если лучше вводить другие значения, то пожалуйста подскажите.

Comments

[Антон Федорян]

код?

[shokw0w]

Антон Федорян:
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

Answer 1

[Антон Федорян]

Насколько много значений Me.mark?
Если заранее создать массив и к нему обращаться?

Dim mark_array
mark_array = Array(Me.mark0, Me.mark1)
Me.mark [i]

Что в них хранится? Это поля таблицы?

Comments

[shokw0w]

Около 20, нет, там значения в самих комбобоксах прописаны

[shokw0w]

А как можно прописать строчку вроде Me.mark [i] в values?

[Антон Федорян]

Объявляете массив, в котором перечисляете все марки (от 0 до ListCount я так понимаю).

Dim mark_array
mark_array = Array(Me.mark0, Me.mark1)

, и в цикле вместо Me.mark0 вставляете просто Me.mark[i].

[Антон Федорян]

или в круглых скобках Me.mark(i), не помню точно синтаксис

[shokw0w]

Антон Федорян: если правильно написать в values Me.mark[i], то массив создавать не надо, цикл for to сделает все сам. Варианты с квадратными и круглыми скобками не подошли. Где прочитать про синтаксис values?

[Антон Федорян]

тут, например