我嘗試添加新記錄到記錄集並出現錯誤＃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")