如何使用“单击事件”中的“删除”按钮从数据表中删除记录（由鼠标选择）？

Question

我的表单名称是[显示运输历史]，子表单名称是[运输历史]子表单，该表单具有指向“我的运输历史”的记录源。我在主窗体上有一个“删除记录”按钮，我希望通过单击它来从表“我的运输历史”中删除所选记录。 有人可以告诉我如何实现这一目标吗？

Answer 1

您可以将此代码插入按钮的 OnClick 事件中

Dim fm As Form
Dim rs As DAO.Recordset

Set fm = Me!NameOfYourSubformCONTROL.Form
Set rs = fm.RecordsetClone

If rs.RecordCount > 0 Then
    ' Move to the current record of the subform.
    rs.Bookmark = frm.Bookmark
    ' Delete the record.
    rs.Delete
    rs.Close
End If