Aşağıdaki kodu deneyebilir misin?

On Error Resume Next

	If IsNull(txtDosya_No) Then

		DoCmd.Close

		Exit Sub

	End If

Dim mesaj

mesaj = MsgBox("Girilen Bilgiler Kayıt Edilmeden Form Kapatılsın mı?", vbYesNoCancel, "Çıkış")

	If mesaj = vbNo And Me.txtDosya_No >= 0 Then

		mesaj = MsgBox("Gerekli blgilerin tamamını doldurup İleri tuşuna basarak kaydı tamamlayın", vbInformation, "Kayda Devam")

	End If

	If mesaj = vbYes Then

		Me.Undo

		DoCmd.Close

	End If