Access 2007

保存せずに閉じる

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

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


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