Как исправить ошибку в синтаксисе?

Question

[bender3000]

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

Private Sub save_marks_Click()
Dim strSQL As Variant
For Each strSQL In criteria.ListIndex
strSQL = " Insert Into marks(userid, finalgrade, criteriaid) values ('" & Me.student & "', '" & Me.mark & "', '" & Me.criteria & "');"
CurrentProject.Connection.Execute (strSQL)
Next strSQL
MsgBox ("Added!")
End Sub

Ошибку выдает, что For Each только для объектов и массивов. Подскажите, как правильно реализовать?

Comments

[h8nor]

>> For Each strSQL In criteria.ListIndex
Перебор значений ListIndex объекта criteria с присвоением каждого значения переменной strSQL
>> strSQL = " Insert Into...
После присвоения заново присвоить переменной strSQL строку. Совершенно не понятно зачем?

По вопросу: нужен скриншот ошибки.

[bender3000]

Дѣаволъ: for each may only iterate over a collection object or an array

[h8nor]

Тогда нет в ListIndex ни элементов, ни массивов. Разберитесь со свойствами элемента ListBox. А лучше для начала научитесь пользоваться отладчиком.

[h8nor]

Правильно так: www.cyberforum.ru/vba/thread505036.html#edit2736685