访问VBA AddNew记录停止工作

Question

我在连续子窗体中有一个按钮，它为表格添加了一定数量的相同数字。我遇到的问题是表单更新以显示这些记录。如果我将所有内容复制到空白数据库，则更新有效。然后，更新突然停止工作，直到我在大约5秒后点击“刷新”按钮（Access 2007）。

此代码位于子窗体中每条记录旁边的按钮的单击事件中。

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语句。