Access VBA AddNew Record перестает работать

Question

У меня есть кнопка в непрерывной подчиненной форме, которая добавляет определенное количество идентичных чисел в таблицу. У меня проблема с обновлением формы для отображения этих записей. Обновление работает, если я копирую все в пустую базу данных. Затем обновление внезапно перестает работать, пока я не нажму кнопку Обновить (Access 2007) примерно через 5 секунд .

Этот код находится в событии нажатия кнопки, которая находится рядом с каждой записью в подчиненной форме.

Dim db As Database
Dim rs As DAO.Recordset
Dim loopYears As Integer

Set db = OpenDatabase("FILENAME.mdb")
Set rs = db.OpenRecordset("TABLENAME",dbOpenDynaset)
loopYears = CALC TO FIND # OF YEARS

Do While loopYears > 0
    With rs
        .AddNew
        ....SET FIELDS....
        .Update
        .Bookmark = .LastModified
    End With
loopYears = loopYears - 1
Loop
Form.Requery
rs.Close
db.Close

Я также должен отметить, что есть другое повторяющееся событие, подобное этому, в другой подчиненной форме, использующее другую таблицу. Я упоминаю об этом, потому что подозреваю, что это соединение как-то не закрывается должным образом из-за того, что оно будет работать первые пару раз. Я не уверен, что это связано с закрытием Access или закрытием формы, которая нарушает код.

Answer 1

большинство людей используют для этого оператор INSERT вместо того, чтобы открывать набор записей и затем добавлять запись.

Я знаю, если это произойдет с ошибкой, я в первую очередь попытаюсь изменить это на SQL INSERT.