>>360
えっと、一行なんだけどだめかな？　＜VBA
Private Sub コマンドボタン名称_Click()
Me.Undo　'←これだけ
DoCmd.Close
End Sub