試圖將記錄添加到數據表中，代碼不起作用？

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)