Database 试图将记录添加到数据表中，代码为'；不行吗？_Database_Vba_Ms Access

Database 试图将记录添加到数据表中，代码为'；不行吗？

database vba ms-access

Database 试图将记录添加到数据表中，代码为'；不行吗？,database,vba,ms-access,Database,Vba,Ms Access,这可能是一些琐碎的事情，但我真的不能让它工作，我得到一个错误，说“参数不是可选的” 这是我的代码，本质上代码是试图添加表单中的数据和一些其他数据，如当前用户和日期 Private Sub listResult_DblClick(Cancel As Integer) Dim sc1 As DAO.Recordset Set sc1 = CurrentDb.OpenRecordset.Value("Stock Conversion", dbOpenDynaset) sc1.AddNew sc1.

这可能是一些琐碎的事情，但我真的不能让它工作，我得到一个错误，说“参数不是可选的”

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

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

提前感谢,，

Bob P

您为Openrecordset增加了价值。你不应：

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