使用附加到表格的表单上的删除按钮删除记录答案

【问题标题】：Delete record with delete button on a form attached to a table使用附加到表格的表单上的删除按钮删除记录
【发布时间】：2014-06-14 04:02:39
【问题描述】：

我有一个表单，可以让您单击记录上的“更多信息”，它会弹出一个表单 (SupplierInfoF)，其中包含有关该记录的更多信息，方法是在文本框中显示所有信息；它弹出的表单有一个附加到查询（SupplierMoreInfoQ）的记录源，该查询附加到表中。因此，如果我编辑字段，它会在表格上编辑它们。虽然我想在此表单上添加一个 DELETE 按钮，但如果您按下它，它会弹出一个消息框，询问您是否确定要删除此记录，如果您按下是，它会删除记录并让您回到以前的表格 (SupplierListF)。我该怎么做呢？

【问题讨论】：

标签： sql ms-access vba

【解决方案1】：

下面的代码允许您接管删除的控制权，并且不允许 Access 显示其警告。删除完成后，表单关闭。

If MsgBox("Are you sure that you want to delete this record?", _
              vbInformation + vbYesNo, _
              "DELETION REQUEST") = vbYes Then
  DoCmd.SetWarnings False
  DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
  DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
  DoCmd.SetWarnings True

  DoCmd.Close
End If

【讨论】：