Question

我有一个表单，可以让您点击记录上的“更多信息”，然后通过在文本框中显示所有信息，弹出一个表单（SupplierInfoF），其中包含有关该记录的更多信息;它弹出的表单附有一个附加到查询（SupplierMoreInfoQ）的记录源，该查询附加到表中。因此，如果我编辑字段，它会在表格上编辑它们。虽然我想在这个表单上添加一个DELETE按钮，如果你按下它，它会弹出一个msgbox，询问你是否确定要删除这条记录，如果你按下它就会删除记录并让你回到上一个表格（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

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

1 个答案: