Question

我有以下代码将新记录添加到子窗体但由于某种原因它总是在主窗体中创建一个新记录。

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

我使用的代码是：

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

Answer 1

使用recordsetclone：

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

我想在子窗体中添加一条新记录，但它总是会在主窗体中添加一条新记录

1 个答案: