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

Question

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

Answer 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