Kaydetmeden kapatma işlemini nasıl gerçekleştirebilirim?

1 2 3 4 5
11/03/2017, 21:14

raburabu

Merhaba Atoz112

ilginiz için teşekkür ederim. vermiş olduğunuz kodları denedim. evet uyarı veriyor. Hayır dediğimde adet ve fiyat ta değişiklik yaptığımda bu değişikliği iptal etmiyor. aynen kaydediyor.
12/03/2017, 13:00

atoz112

sayın raburabu,

daha öncesinde de belirtildiği üzere,
değişik olay yordamları içerisinde farklı alternatif yöntemler ya da kullanımlar söz konusu olabilir.

ÖRNEK:

If MsgBox("Kaydetmeden çıkmak istiyor musunuz?", vbYesNo, "GERİ ALMA UYARISI") = vbYes Then

DoCmd.RunCommand acCmdUndo

Else
End If

benzeri bir kod da yazılabilir.hatta,kimi kod kullanımlarında,form kapatma (Close) komutu da uygulanabilir...

EK'te;
alternatif bir kullanıma yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.

son olarak;
denemesini yaptığınızı fakat olumlu sonuç alamadığınızı beyan ettiğiniz örneğinizi de ekleyebilirsiniz.eklerken,2003 olarak da dahil etmeyi unutmayınız.

bilginize...iyi çalışmalar,saygılar.
12/03/2017, 17:24

raburabu

Merhaba Atoz112

Örneğe baktım açılan veride örneğin ilk sırada şehir istanbul yazıyor. ben bunu istanbulllll olarak değiştirdim. çık dediğimde uyarı veriyor. kaydetmeden çıkmak mı istiyorsunuz dediğinde evet diyorum ve çıkıyor. Tabloyu tekrar açtığımda istanbulllll olarak değişiklik yapılmış görünüyor. Yani değişikliği iptal etmemiş.
12/03/2017, 18:01

atoz112

sayın raburabu,

bahsettiğiniz hususa dair tekrar incelediğimde fark ettim ki,

Private Sub Form_BeforeUpdate(Cancel As Integer)
'ATOZ112
'AŞAĞIDAKİ KODLAR DAHİL EDİLMİŞTİR

If tamamlama_durumu = True Then Exit Sub
tamamlama_durumu = True
islem_durumu = MsgBox("Kaydetmeden çıkmak istiyor musunuz?", vbQuestion + vbYesNoCancel, "GERİ ALMA UYARISI")

Select Case islem_durumu
Case vbNo:

Case vbYes:
    Me.Undo
Case vbCancel:
    Cancel = True
End Select

End Sub

Me.Undo kod satırını,

Case vbYes:

satırının altında olması gerekiyordu.fakat,

Case vbNo:

satırı altında yazılı kaldığı görülmüştür.yukarıdaki kod şeklinde kullanmayı deneyiniz.farkına varmamı sağladığınız için teşekkür ederim.

10.mesajdaki örnek uygulama düzeltilerek tekrar eklenmiştir.

bilginize...iyi çalışmalar,saygılar.
12/03/2017, 18:24

atoz112

sayın raburabu,

12.mesajdaki işlemin yapılmak sureti ile 10.mesaja tekrar düzenlenerek eklenen örnek uygulamanın kullanımı neticesinde edinilen ekran görüntüleri aşağıdaki gibidir.









bilginize...iyi çalışmalar,saygılar.
13/03/2017, 10:03

raburabu

Merhaba atoz112

Örnek için çok teşekkür ederim. Üst formda güzel çalışıyor. Ancak benim gönderdiğim örnekte alt formda nasıl uygulayacağız. Ben ilk mesajımda örneğe kodları ekledim yeniden yükledim. hem üst forma hem alt forma nasıl uygulayabilirim.

Birde şunu fark ettim. Gönderdiğiniz örnekte değişiklik yaptığımızda çık butona basılınca HAYIR dediğimizde kayıt edip çıkıyor. HAYIR DENİNCE tekrar forma dönmesi gerekiyor.
1 2 3 4 5