我想向子表单添加一条新记录，但它总是向主表单添加一条新记录

Posted 2023-05-07

【中文标题】我想向子表单添加一条新记录，但它总是向主表单添加一条新记录

【英文标题】：I want to add a new record to the subform, but it always adds a new record to the main form as well

【发布时间】：2016-12-24 21:54:29

【问题描述】：

我有以下代码向子表单添加新记录，但由于某种原因，它总是在主表单中创建新记录。

基本上，我希望子表单向某个客户添加详细信息（客户详细信息显示在主表单中）并且子表单显示订单，但我有一个下拉菜单来选择项目，然后这些值将用于向子表单添加新记录。

我使用的代码是：

With Forms![Student]![Selection subform1]
![Module Code].SetFocus
![Semester 1 Credits].SetFocus
DoCmd.GoToRecord , , acNewRec
![Module Code] = Sem1select1.Value
![Semester 1 Credits] = Sem1sel1cred.Value
End With

【参考方案1】：

使用记录克隆：

Dim rs As DAO.Recordset

With Me![Selection subform1].Form
    Set rs = .RecordsetClone
    rs.AddNew
        rs![Module Code].Value = Sem1select1.Value
        rs![Semester 1 Credits].Value = Sem1sel1cred.Value
    rs.Update
    ' Move to new record:
    .Bookmark = rs.Bookmark
    Set rs = Nothing 
End With

【讨论】：

我相信这里应该是.Recordset，而不是.RecordsetClone。 RecordsetClone 也可以使用，但表单可能无法滚动到新记录。

@SergeyS.：是的，这可能是一个要求，所以我添加了一行设置 Bookmark。

感谢大家的帮助。它就像一个魅力！