MS Access-将数据添加到另一个表

Question

Private Sub btnAssign_Click()
Dim qtyschedule As String
Dim qtyspares As String

qtyschedule = Forms![frmMainMenu]![hiddentxtqtysched]
qtyspares = Forms![frmMainMenu]![hiddentxtqtyspares]

If qtyspares < qtyschedule Then
    MsgBox "Not enough spares to allocate."
        Else

    Dim RST As DAO.Recordset
    Set RST = CurrentDb.OpenRecordset("select * from SparesDeducted")

    With RST
    .AddNew
        !Code = Me.Code
        !Quantity = qtyschedule
        !DedDate = Now()
        !ProdOrderNo = Forms![frmMainMenu]![hiddenProdOrderNo]
    .Update
End With

    MsgBox ("Assigned.")
    'Me.subformStockMain.Requery

RST.Close
Set RST = Nothing

End If

End Sub

大家好，

我想知道是否可以提供帮助？我的代码在这里工作得很好，但是我想要做的是，一旦将记录添加到 SparesDeducted 中，即！Code 和的条目然后将数量转移到我的 frmMainMenu [sqryScheduleMain]。[Form]！[Comments] 中的单独表格中。

该数据库的工作方式是在sqryScheduleMain中创建一堆生产订单，然后在下面的表中查询查找可用于促进所选工作的任何备用项目。单击分配按钮后，这将更新SparesDeducted，但我也希望填写注释选项卡（在“删除记录”按钮下方），以便用户轻松查看已为该作业分配了哪些备用件。