通常,这种情况是由于数据表未打开或未绑定引起的。确保在使用AddNew之前打开数据表,并将记录集绑定到该表。另外,可能需要在使用AddNew之前先执行MoveLast操作,以确保光标位于最后一条记录后面,从而添加新行。下面是示例代码,演示如何打开数据表、绑定记录集并添加新行:
Dim db As DAO.Database
Dim rs As DAO.Recordset
'打开数据表
Set db = CurrentDb()
Set rs = db.OpenRecordset("TableName", dbOpenDynaset)
'绑定记录集
rs.MoveLast
rs.AddNew
'设置新记录的值
rs("FieldName") = "New Value"
'保存并关闭记录集和数据表
rs.Update
rs.Close
Set rs = Nothing
Set db = Nothing