использование FindFirst в access

[bkatk]

Доброе время суток.
Часть кода
.....

Do While Not rs.EOF()
        fam = rs!Фамилия
        If (fam = fio) And (rs!Группа = grupa) And (rs!Предмет = predmet) Then
            If i = 0 Then
            ved.AddNew
            ved!grups = rs!Группа
            ved!fios = fam
            ved!predmet = rs!Предмет
            nom_rec = nom_rec + 1
            ved!id = nom_rec
            MsgBox nom_rec
            i = i + 1
         Else
         
  ' ved.FindFirst "ved!id =" & ved!id 
         
         ved.Edit
         End If
 Select Case rs!Íîìåð_ìåñÿöà
        Case Is = 9
        sum = 0
        sum = Nz(rs!d1) + Nz(rs!d2) + Nz(rs!d3) + Nz(rs!d4) + Nz(rs!d5) + Nz(rs!d6) + Nz(rs!d7) + Nz(rs!d8) + _
Nz(rs!d9) + Nz(rs!d10) + Nz(rs!d11) + Nz(rs!d12) + Nz(rs!d13) + Nz(rs!d14) + Nz(rs!d15) + Nz(rs!d16) + Nz(rs!d17) + _
Nz(rs!d18) + Nz(rs!d19) + Nz(rs!d20) + Nz(rs!d21) + Nz(rs!d22) + Nz(rs!d23) + Nz(rs!d24) + Nz(rs!d25) + _
Nz(rs!d26) + Nz(rs!d27) + Nz(rs!d28) + Nz(rs!d29) + Nz(rs!d30) + Nz(rs!d31)
        ved!m9 = sum
        Case Is = 10
        sum = 0

................
Если условие выполняется 1 раз то в Рекодсет ved (таблица Ведомость) добавляется запись и в поля записываются значения (Работает).
Когда условие выполняется 2,3 .... разы данные должны записываться в туже запись но в другие поля, Не работает -
код ved.Edit - eror3021 текущая запись отсутствует. Хотя в таблице запись есть, и данные записаны (первый шаг цикла сработал)
для установки в эту же запись Добавил

ved.FindFirst "ved!id =" & nom_rec

eror3251 Операция не поддерживается для объектов этого типа
nom_rec - Integer
поле id -целое.
Может синтаксис FindFirst не так записал, подозрения на кавычки.
Заранее спасибо.

[shanemac51]

попробуйте

ved.AddNew
            ved!grups = rs!Группа
            ved!fios = fam
            ved!predmet = rs!Предмет
            nom_rec = nom_rec + 1
            ved!id = nom_rec
         '' MsgBox nom_rec
            i = i + 1
ved.update

[bkatk]

Уже есть в конце цикла
....
Case Is = 10
sum = 0
sum = Nz(rs!d1) + Nz(rs!d2) + Nz(rs!d3) + Nz(rs!d4) + Nz(rs!d5) + Nz(rs!d6) + Nz(rs!d7) + Nz(rs!d8) + _
Nz(rs!d9) + Nz(rs!d10) + Nz(rs!d11) + Nz(rs!d12) + Nz(rs!d13) + Nz(rs!d14) + Nz(rs!d15) + Nz(rs!d16) + Nz(rs!d17) + _
Nz(rs!d18) + Nz(rs!d19) + Nz(rs!d20) + Nz(rs!d21) + Nz(rs!d22) + Nz(rs!d23) + Nz(rs!d24) + Nz(rs!d25) + _
Nz(rs!d26) + Nz(rs!d27) + Nz(rs!d28) + Nz(rs!d29) + Nz(rs!d30) + Nz(rs!d31)
ved!m10 = sum

End Select
ved.Update

End If
rs.MoveNext
Loop
.....