使用相同的表单将文本框控件上的值传递给新记录

Question

我有一个表单，它包含一个绑定到名为Year1的字段的texbox。我想使用表单底部的新记录控件创建一个新记录，并将前一个记录的值转发到新记录。我尝试了以下代码，但没有运气。任何帮助是极大的赞赏。以下是我的第一个方法：

Private Sub Form_Current()

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblMyTable")
rs.AddNew
rs.Fields("Year1").Value = Year1.Value

rs.Close

End Sub

我也试过以下方法，但没有运气：

Private Sub Form_Current()
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblMyTable")
     rs.Edit
     rs!Year1 = Year1.Value
     rs.Update
  rs.Close
  End Sub

Answer 1

在Year1_AfterUpdate（）上，添加：

Me.Year1.DefaultValue = "'" & Me.Year1 & "'"

按预期工作。