保存せずに閉じる

Accessの単票フォームで閉じるボタンをクリックすると、通常はデータを保存して閉じますが、閉じる」と「保存せずに閉じる」ボタンを作成したいということがあります。

ボタンのクリック時イベントに以下のとおり書き込むと保存せずに閉じることができます。


Private Sub 保存せずに閉じる_Click()
  
    If Me.Dirty Then
    DoCmd.RunCommand acCmdUndo
    End If
    DoCmd.Close
  
End Sub