我尝试添加新记录到记录集并出现错误＃3001

Question

我有一个非常简单的代码，它在我的Access数据库中为表添加新记录。它工作了一段时间，但现在我得到字符串“.AddNew”3001错误。 我不知道什么会导致此错误。有任何想法吗？

Sub testAddNew() 
Dim db As DAO.Database 
Dim rcs As DAO.Recordset, rcs2 As DAO.Recordset, rcsLength As Integer 
Dim sqlQr As String 

Set db = CurrentDb 
Set rcs = db.OpenRecordset("Table1", dbOpenTable) 
With rcs 
    .MoveFirst 
    .AddNew 
    ![column1] = "test" 
    .Update 
    .Bookmark = .LastModified 
End With 
End Sub 

Answer 1

打开正确的记录：

Set db = CurrentDb 
Set rcs2 = db.OpenRecordset("Table1", dbOpenTable) 
With rcs2 
    .AddNew 
     ![column1].Value = "test" 
    .Update 
    .Bookmark = .LastModified 
End With 

或查询尝试：

Set rcs2 = db.OpenRecordset("Select Top 1 * From Table1")