访问VBA:关闭表格而无需保存

Question

我在这里遇到了一个有趣的问题。我正在尝试手动关闭表单(通过单击"表单"选项卡上的" x"按钮(，而无需保存表单。我只是希望该表格关闭，而没有任何试图保存在任何表中。

我认为这与Form.OnClose属性有关，但找不到过去的任何东西。

Answer 1

这不是访问中的绑定形式。关闭时，他们总是保存编辑的记录。

您的最佳选择是用

在表格上放置"不保存"按钮

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"来关闭表单，而无需保存，但是您无法使用访问功能保存任何内容。