database - 尝试将记录添加到数据表中，代码不起作用？

Question

这可能是一件微不足道的事情，但我真的无法让它工作，我收到一个错误，上面写着“参数不是可选的”。

这是我的代码，本质上该代码试图添加位于表单中的数据以及其他一些数据，例如当前用户和日期。

Private Sub listResult_DblClick(Cancel As Integer)

Dim sc1 As DAO.Recordset
Set sc1 = CurrentDb.OpenRecordset.Value("Stock Conversion", dbOpenDynaset)

sc1.AddNew
sc1.Fields("[SC Date]").Value = VBA.DateTime.Date
sc1.Fields("[Created By]").Value = Application.CurrentUser
sc1.Fields("[Product Code]").Value = Me.listResult.Column(0)
sc1.Fields("[Status]").Value = "NEW"
sc1.Update

End Sub

在此先感谢，鲍勃 P

Answer 1

您已将值添加到 Openrecordset。你不应该：

Set sc1 = CurrentDb.OpenRecordset("Stock Conversion", dbOpenDynaset)