Skip to main content

AccessTr.neT


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

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

#7
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.
Cevapla
#8
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.
.rar KaydetmedenKapat-ATOZ2.rar (Dosya Boyutu: 25,75 KB | İndirme Sayısı: 9)
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#9
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ş.
Cevapla
#10
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.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#11
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.

[Resim: do.php?imgf=148933224882031.jpg]

[Resim: do.php?imgf=148933224887812.jpg]

[Resim: do.php?imgf=148933224891523.jpg]



bilginize...iyi çalışmalar,saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#12
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.
Son Düzenleme: 13/03/2017, 14:52, Düzenleyen: raburabu.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task