小编Mic*_*ael的帖子

我已经研究了所有的STACKOVERFLOW问题，但是无法使其正常工作。我有一个简单的表：

和形式：

我想从表T：ActityRoster中提取字段，并从表单中提取“活动日期”，然后将它们“添加”到表T：ActivityHistory中。

一个STACKOVERFLOW专家帮助了我一些代码，但它甚至没有设置第一个记录集：rsIn

Dim ActID As Integer, actDate As Date, val1 As Long, val2 As Long, val3 As Boolean, val4 As Currency

Dim db As Database, rsIn As Recordset, rsOut As Recordset

Dim strSQL As String

Set db = CurrentDb

ActID = Me.cboActivityName.Column(0)

strSQL = "SELECT * FROM T:ActivityRoster WHERE [ActivityID] = ActID"

Debug.Print strSQL

Set rsIn = db.OpenRecordset(strSQL, dbOpenDynaset, dbReadOnly)

rsIn.MoveLast

Set rsOut = db.OpenRecordset("T:AttendanceHistory", dbOpenDynaset, dbEditAdd)

rsOut.MoveLast

actDate = Me.ActivityDate.Value  ' retrive the date from the form …