レコードセットに新しいレコードを追加しようとするとエラーが発生する＃3001

Question

私はアクセスデータベースのテーブルに新しいレコードを追加する非常にシンプルなコードです。それはしばらく働いていましたが、今は ".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")