MS Access - 如何关闭表单而不保存任何更改?

时间:2016-06-08 20:52:34

标签: vba access

所以我相对较新,并且在VBA中没有多少工作。我目前正在为我们办公室的用户设计一个项目数据库来提交想法。

我有一份提交表格,并且需要一些字段。在代码中,我看起来像这样:

If IsNull(SchoolName) Then
  DoCmd.OpenForm "MissingInfoForm"

Else
  AssignmentStatus = "Unassigned"
  LastEditedBy = apicGetUserName()
  DoCmd.Save
  MsgBox "Submission Accepted"
  DoCmd.GoToRecord , , acNewRec

(我实际上只是将它们放在一起。我通常只是在做事时使用宏,但我觉得这个问题需要使用VBA。)

我面临的问题是,当用户未能将任何内容放入SchoolName字段时,它将显示MissingInfoForm并恢复为提交表单,但Access仍会保存并创建包含所有空白字段的新记录(或部分完成,如果字段SchoolName为空白,我需要它根本不保存)。这是一个问题,因为有一个列出所有条目的集线器表单,我不能在那里有一堆空白提交。

我尝试确保表单的Close函数不会保存它,但它会继续这样做。

我看了很多网上寻求帮助,我找到了“更好的鼠标陷阱”和Me.Undo命令的例子,但是我无法按照我喜欢的方式正确实现这些

有人可以借给我一些帮助吗?我是一个相当大的菜鸟,可以使用一些指导..这个项目数据库预计将在本周五(2天后)完成。

0 个答案:

没有答案