Accessの単票フォームで閉じるボタンをクリックすると、通常はデータを保存して閉じますが、「閉じる」ボタンと「保存せずに閉じる」ボタンを作成したいということがあります。
ボタンのクリック時イベントに以下のとおり書き込むと、保存せずに閉じることができます。
Private Sub 保存せずに閉じる_Click()
If Me.Dirty Then
DoCmd.RunCommand acCmdUndo
End If
DoCmd.Close
End Sub
ボタンのクリック時イベントに以下のとおり書き込むと、保存せずに閉じることができます。
Private Sub 保存せずに閉じる_Click()
If Me.Dirty Then
DoCmd.RunCommand acCmdUndo
End If
DoCmd.Close
End Sub