访问VBA：关闭表单而不保存

Question

我在这里遇到了一个有趣的问题。我正在尝试手动保存表单（通过单击表单选项卡上的“ X”按钮）而不保存表单。我只是想关闭表单，并且不尝试在任何表中保存任何内容。

我认为这与Form.OnClose属性有关，但找不到除此以外的任何内容。

Answer 1

这不是Access中绑定表格的工作方式。关闭时，他们总是保存编辑过的记录。

您最好的选择是在表单上放置一个“不保存就关闭”按钮，

Private Sub btClose_Click()

    ' Undo current changes
    If Me.Dirty Then Me.Undo
    ' Note that acSaveNo applies to design changes, e.g. if you have set a filter or sort order
    DoCmd.Close acForm, Me.Name, acSaveNo

End Sub

除非您想做一些愚蠢的事情，例如使所有绑定记录都无法保存：

Private Sub Form_BeforeUpdate(Cancel As Integer)

    If Me.Dirty Then Me.Undo

End Sub

然后，您可以不保存而使用“ X”关闭表单，但是使用Access功能不能保存任何内容。