Ms access 向已保存到表中的记录插入数据
我有一个记录集,每个记录缺少一个字段,希望通过查找某些条件从表单中添加一些数据。我首先使用select查询将数据获取到表单上,并尝试反向赋值,但它不起作用,因为它显示运行时错误3027“数据库或对象为只读”。我认为这是因为我运行select查询以获取信息,但如何将数据输入到相同的记录中。我使用的代码如下-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
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方法来更新记录。您收到错误,因为您正试图为只读属性赋值