If MsgBox("Form Kapatılsın mı?", vbCritical + vbYesNo, "Form Kapanıyor...") = vbYes Then

DoCmd.Close

Else

Exit Sub

End If