Как добавить в таблицу следом стоящую по списку строку через цикл?

Question

[shokw0w]

Из списка хочу внести по порядку в таблицу id строк. Сделал цикл, но он добавляет во все строки таблицы первый id строки.

Private Sub Save_Click()
Dim criteriaSQL As String
With Me.criteria
        For i = 0 To .ListCount - 1
            If .ListCount > 0 Then
                .Selected(i) = True
                criteriaSQL = " Insert Into marks(userid, criteriaid, finalgrade) values ('" & Me.student & "', '" & Me.criteria & "', '" & Me.mark & "')"
                CurrentProject.Connection.Execute (criteriaSQL)
            End If
        Next
End With
MsgBox ("Added!")
End Sub

Comments

[h8nor]

Не понимаю вопроса. Сформулируйте по-другому.

[shokw0w]

Дѣаволъ: Я хочу при нажатии на кнопку "Save marks" вносить в таблицу id каждой строки списка, а в моем цикле вносится первый id и дублируется во все строки таблицы.Пробовал обнулять переменную, но бестолку

[h8nor]

А давайте я вам книгу с примерами посоветую, которую не читал )

Answer 1

[current]

Старайтесь делать такие процессы невидимыми для пользователя, избегайте Selected(i).
Если так хочется работать через VBA используйте

Dim mytab As ADODB.Recordset
Set mytab = New ADODB.Recordset
mytab.Open "Select..." '(тут ваш запрос)'
Do While mytab.EOF = False
'тут что хотите то и тврите с полями mytab!myField'
mytab.MoveNext
Loop

это один из способов в VBA

Другой способ через запросы:
создаете различные запросы на обновления, удаления, добавления. Можно какую то серию(транзакцию) запихать в один запрос но тогда уже не сможете пользоваться конструктором придется ручками(но это уже другой вопрос).
потом или сразу вешаете на кнопку исполнение запроса или если это серия запросов, создаете макрос исполняющий эту серию, и тогда уже вешаете макрос на кнопку.

В вашем случае нет нужды пробегать по строкам и для каждой делать insert так как данные не изменяются и вы не делаете ни каких проверок
сделайте один запрос типа

INSERT INTO ТаблицаДляВставки ( ПоляДляВставки через запятую )
SELECT ПоляДоноры
FROM ТаблицыДоноры
WHERE условия выборки можно тащить из формы 
ORDER BY сортировочка;