[FORM] Form AfterUpdate olayı Gerial (Undo) sorunu
#1
Herkese Selamlar!

Form üzerinde AfterUpdate olayı sonrası GeriAl fonksiyonu kullanmama rağmen tabloda kayıt değişmiş oluyor.
Şöyleki ; form için AfterUpdete olayına Undo fonksiyonu tanımladım.Form üzerindeki bağlı kontrollerde yapılan değişiklikler sonrası başka bir kayda geçtiğimde (gezinti düğmesi ile veya bölünmüş formdaki başka bir kayda tıkladığımda) Undo Hata vermiyor fakat form üzerindeki değişiklikler bağlı tabloda değişmiş oluyor ve yapılan değişiklikler tabloda geri alınmıyor.



  Alıntı
Bu mesajı beğenenler:
#2
Sayın firatbaba, aşağıdaki şekilde kullanırsanız kesin sonuç alırsınız. Umarım faydam olmuştur. Kolay gelsin.

DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70



  Alıntı
Bu mesajı beğenenler:
#3
Her ikisini de denemiştim aşağıdaki gibi. Başka kayda giderken Tabloda değişiklik geri alınmıyor. Sadece anlık olarak form üzerindeki değiştirilen kontrol geri alınıyor.

Visual Basic
  1. Private Sub Form_AfterUpdate()
  2. On Error GoTo Proc_Error
  3.  
  4. If MsgBox("Yapılan Değişiklik Kaydedilsin mi", vbYesNo + vbQuestion) = vbYes Then
  5. DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
  6. DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
  7. Else
  8. DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
  9. 'işe yaramıyor
  10.  
  11. DoCmd.RunCommand acCmdUndo
  12. 'her ikisini de ayrı ayrı denemiştim zaten.
  13. End If
  14. '....


End Sub



  Alıntı
Bu mesajı beğenenler:
#4
Yardımlar için teşekkür ederim

Sorun Form_BeforeUpdate() ile çözüldü.

Visual Basic
  1. Private Sub Form_BeforeUpdate()
  2. On Error GoTo Proc_Error
  3. If Form.Dirty then
  4. If MsgBox("Yapılan Değişiklik Kaydedilsin mi", vbYesNo + vbQuestion) = vbYes Then
  5. DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
  6. DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
  7. Else
  8. DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
  9. End If
  10. End If





  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [RAPOR] Rapor Olayı Pasham 15 995 13-05-2024, 16:29
Son Mesaj: Pasham
  Ana Menüden 2.form Açtığımda Form Görev çubuğuna Inmiyor. 32'den 64'e Geçiş Hatası OGUZTURKYILMAZ 3 674 13-04-2023, 23:39
Son Mesaj: OGUZTURKYILMAZ
access-sql-20 [SORGU] Sorgu Sonuçlarını Form Numarasına Göre Tabloda Saklama Sorunu Matriarch 19 1.673 17-09-2021, 10:29
Son Mesaj: Matriarch
  Alt Form Liste Kutusu Filtreleme Sorunu sensu 13 1.446 04-04-2021, 20:05
Son Mesaj: sensu
  [VBA] Access Class Textbox Change Olayı Text Hatası feraz 7 1.356 22-03-2020, 19:16
Son Mesaj: onur_can
  [FORM] Alan Genişliği Sorunu, Kayda Gitme Sorunu aliaslans 11 1.898 04-10-2019, 13:13
Son Mesaj: halily
access-sql-9 [FORM] Form Ana Sayfasında Tarih Göstermeme Sorunu denizediz 3 727 27-09-2019, 14:38
Son Mesaj: denizediz
  [FORM] Form Üzerinden Filtreleme Sorunu Sancaktar 2 1.063 21-09-2018, 09:44
Son Mesaj: Sancaktar

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi