Herkese merhaba;

Bir formu, form uzerinde bulunan access kapat dugmesi ile kapatmak icin formun kapandiginda olayina bir kod yazmak gerekirse nasil bir kod ile halledebiliriz?

Istedigim sudur;

Kapata basinca bir mesaj kutusu acilsin ve yes-no butonlari olsun.
Yes dersem sadece formu kapatsin, no dersem vazgecip mesaj kutusuda ekrandan kaybolsun.

Tesekkurler.

SN osmanaga bey;
Private Sub Kapat_Click()
Cvp = MsgBox("Kapat(OK) veya vazgec(Cancel)", vbOKCancel, "FORM KAPATMA")
If Cvp = 1 Then DoCmd.Close acForm, Me.Name
End Sub
kod ile yapilabilir.

Sn.desgin83260;

Yanlış anlaşılma var!
Bu kod, form üzerine bir BUTON eklendiğinde ve butonun tıklandığında olayına taşındığında, formu kapatıyor veya kapatma isteğini iptal ediyor. Problem yok.

Benim isteğim biraz farklı:
Ben formu kapatmak için bir BUTON değil de, Access formlarında sağ üstteki kapat (X) düğmesi ile KAPATMAK istiyorum.

Ama önceki mesajımda belirttiğim gibi,

Kapat düğmesine bastığımda bir msgbox açılsın ve "Form kapanacak, emin misiniz?" diye sorsun.

YES dersem kapansın, NO dersem msgbox açılsın ve "kapatma işleminden vazgeçtiniz" mesajı versin ve FORM kapanmasın.

Anlatabildim mi?

Sn. dsezgin83260;

Aşağıdaki kodu FORM kapandığında ya da FORM kaldırıldığında olayına yazdım.

EVET dediğimde problem yok FORM kapanıyor, ama HAYIR dersem run-time error hatası veriyor, Close işlemi iptal edildi diyor. SORUN ne olabilir acaba?

Private Sub Form_Close()
Dim mesaj
mesaj = MsgBox("Form kapansın mı?", vbCritical + vbYesNo, "BİLGİ")
Yes = 7
No = 6
If mesaj = 7 Then DoCmd.Close
If mesaj = 6 Then
DoCmd.CancelEvent: Exit Sub
Else
MsgBox "Kapatma işlemini İptal ettiniz", vbOKOnly, "BİLGİ"

End If
End Sub

Sn osmanaga;
Access kapat dugmesi tiklandiginda formun kapatma eylemi tetiklemis oluyorsunuz. Vazgecme eylemi burada calismayacagi icin form kapatma eylemini buton ile yapilabilir.

Sn. dsezgin83260;

Olabilseydi güzel olacaktı ama neyse, buton ile halledeceğim artık.

Teşekkürler.
Kolay gelsin.