Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/ms-access/4.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Ms access 如何使用单击事件上的删除按钮从数据表中删除记录(由鼠标选择)?_Ms Access_Vba_Ms Access 2013 - Fatal编程技术网

Ms access 如何使用单击事件上的删除按钮从数据表中删除记录(由鼠标选择)?

Ms access 如何使用单击事件上的删除按钮从数据表中删除记录(由鼠标选择)?,ms-access,vba,ms-access-2013,Ms Access,Vba,Ms Access 2013,我的表单名为[Show Shipping History],子表单名为[Shipping History subform],其中包含名为“我的装运历史”的记录源指向表。我在主窗体上有一个“Delete Rec”按钮,我想通过单击该按钮,使其从表“我的发货历史记录”中删除所选记录。 有人能告诉我如何实现这一点吗?您可以在按钮的OnClick事件中插入以下代码: Dim fm As Form Dim rs As DAO.Recordset Set fm = Me!NameOfYourSubform

我的表单名为[Show Shipping History],子表单名为[Shipping History subform],其中包含名为“我的装运历史”的记录源指向表。我在主窗体上有一个“Delete Rec”按钮,我想通过单击该按钮,使其从表“我的发货历史记录”中删除所选记录。
有人能告诉我如何实现这一点吗?

您可以在按钮的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
拿着书读一读。