Ms access 向已保存到表中的记录插入数据

Ms access 向已保存到表中的记录插入数据,ms-access,vba,ms-access-2010,Ms Access,Vba,Ms Access 2010,我有一个记录集,每个记录缺少一个字段,希望通过查找某些条件从表单中添加一些数据。我首先使用select查询将数据获取到表单上,并尝试反向赋值,但它不起作用,因为它显示运行时错误3027“数据库或对象为只读”。我认为这是因为我运行select查询以获取信息,但如何将数据输入到相同的记录中。我使用的代码如下- Private Sub CmdAppend_Click() Dim dbsNorthwind As dao.Database Dim rstAmend As dao.Recordset Di

我有一个记录集,每个记录缺少一个字段,希望通过查找某些条件从表单中添加一些数据。我首先使用select查询将数据获取到表单上,并尝试反向赋值,但它不起作用,因为它显示运行时错误3027“数据库或对象为只读”。我认为这是因为我运行select查询以获取信息,但如何将数据输入到相同的记录中。我使用的代码如下-

Private Sub CmdAppend_Click()

Dim dbsNorthwind As dao.Database
Dim rstAmend As dao.Recordset
Dim qdfAmend As dao.QueryDef
Dim n As Integer

Set dbsNorthwind = CurrentDb



Set qdfAmend = dbsNorthwind.QueryDefs("Get_Questions_NTL")
qdfAmend.Parameters(0) = [Forms]![TeamLeader]![ComClientNotFin]
qdfAmend.Parameters(1) = [Forms]![TeamLeader]![ComDateSelect]
Set rstAmend = qdfAmend.OpenRecordset(dbOpenDynaset)
n = 0
   rstAmend.MoveFirst
   Do Until rstAmend.EOF
      n = n + 1
      rstAmend.Fields("ManagerID") = Form.Controls("SC" & n).Value

      rstAmend.MoveNext
   Loop


End Sub

您必须使用recordset对象的.Edit和.Update方法来更新记录。您收到错误,因为您正试图为只读属性赋值