Sql 在附加到表的窗体上使用“删除”按钮删除记录_Sql_Ms Access_Vba

Sql 在附加到表的窗体上使用“删除”按钮删除记录

sql ms-access vba

Sql 在附加到表的窗体上使用“删除”按钮删除记录,sql,ms-access,vba,Sql,Ms Access,Vba,我有一个表单，可以让你点击记录上的“更多信息”，它会弹出一个表单（SupplierInfoF），通过在文本框中显示所有信息来显示该记录的更多信息；它弹出的表单有一个附加到查询（SupplierMoreInfoQ）的记录源，该查询附加到表中。因此，如果我编辑字段，它会在表上编辑它们。虽然我想在此表单上添加一个删除按钮，但如果您按下它，它会弹出一个msgbox，询问您是否确定要删除此记录，如果您按下yes，它会删除该记录并将您放回上一个表单（SupplierListF）。如何执行此操作？下面的代码允

我有一个表单，可以让你点击记录上的“更多信息”，它会弹出一个表单（SupplierInfoF），通过在文本框中显示所有信息来显示该记录的更多信息；它弹出的表单有一个附加到查询（SupplierMoreInfoQ）的记录源，该查询附加到表中。因此，如果我编辑字段，它会在表上编辑它们。虽然我想在此表单上添加一个删除按钮，但如果您按下它，它会弹出一个msgbox，询问您是否确定要删除此记录，如果您按下yes，它会删除该记录并将您放回上一个表单（SupplierListF）。如何执行此操作？

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

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