selam
Formda değişiklik yapılığında Kirlide Olayını Kullanmak İstedim
şartlar aşagıdaki gibi
Form Kirlide Degistir_Kontrol =1 Olursa
KAPAT_Click lenirse Yapılan değişiklik Kaydetme uyarısı vermesi için
kaydet Buton unu Klick Yaptırdım
Ünvaı Boş ise Exit sub Kodlar sonlanması gerek Fakat sonlanmadı
Nasıl sonlandırabilirim

Private Sub KAPAT_Click()
If Degistir_Kontrol = 0 Then
DoCmd.Close
Else
If (MsgBox("Yapılan Değişiklikleri Kaydetmek İstiyormusunuz", vbYesNo + vbExclamation, "Sistem")) = vbYes Then
Degistir_Kontrol = 0
'DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
KAYDET_Click
DoCmd.Close
Else
Me.Undo
Degistir_Kontrol = 0
DoCmd.Close
End If
End If
End Sub

Private Sub Form_Dirty(Cancel As Integer)
Degistir_Kontrol = 1
End Sub

Private Sub KAYDET_Click()
If IsNull(Unvanı) Then
MsgBox "Ünvan Boş Olamaz", vbOKOnly, ""
Unvanı.SetFocus
Exit Sub
End If
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Degistir_Kontrol = 0
MsgBox "İşlem Tamam"
End Sub

Merhaba..

Olayı sonlandırmak için bu komutu verebilirsiniz..: