1

これは些細なことかもしれませんが、実際には機能しません。「引数はオプションではありません」というエラーが表示されます。

これが私のコードです。基本的に、コードはフォーム内にあるデータと、現在のユーザーや日付などの他のデータを追加しようとしています。

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

4

1 に答える 1

2

Openrecordset に値を追加しました。貴方はするべきではない：

Set sc1 = CurrentDb.OpenRecordset("Stock Conversion", dbOpenDynaset)
于 2012-10-01T08:22:45.060 に答える