Kaydın İptali

[shener]

Arkadaşlar, formun güncelleştirme sonrasında ve kapandığında olaylarına ayrı ayrı şu kodu yazdım, gel gör ki lokal olarak yaptığım buton doğrudan çalışırken bu olaylara yazdığımız kod neden çalışmıyor fikri veya çözümü olan var mı?

Private Sub Form_AfterUpdate()
Dim Cevap
Cevap: MsgBox ("Kayıttaki değişiklikleri Onaylıyor musunuz?"), vbYesNo
If Cevap <> 6 Then
me.undo
Else
Exit sub
End If
End Sub

 

[modalı]

Sayın shener,

: ile bir alt program ekliyorsunuz. Bunu bir yerden çağırmadan çalıştıramazsınız.

MsgBox isminden anlaşılacağı gibi mesaj vermeye yarar. Bununla bilgi girişi yapamazsınız. İnputbox a ihtiyacınız var.

İyi çalışmalar

 

[enasmu]

If MsgBox("Kayıttaki değişiklikleri Onaylıyor musunuz?", 48, "K A Y I T") = 6 Then
Docmd.Save
Else
Me.Undo
End If

Şeklinde bir çalışma acaba işine yarar mı?

 

[shener]

kayıt uyarısı

Sayın modalı inputBox'a yazacağımız birşey olmadığı için inputBox'tan yararlanmayı düşünmedim, ancak belki fonksiyon yolu ile olabilir diye düşünüyorum

 

[xorion]

Sayın Shener;
Kodu Güncelleirme Öncesine yaznız.. Eğer sonrasına yazarsanız hiçbir işe yaramaz...

 

[shener]

işe yaramıyor

Sayın xorion iyi ve isabetli bir teşhis doğrusu teşekkürler , ama güncelleme öncesinde de işe yaramıyor, msgBox'un bu kadar aciz olacağını düşünmemiştim)

 

[karaayhan]

İPTAL OLAYI...

'Formun Dirty olay yordamına şunu yazdım....................
Private Sub Form_Dirty(Cancel As Integer)
Me.Ayrıntı.BackColor = 16374211
Me.FormAltbilgisi.BackColor = 16374211
Me.FormÜstbilgisi.BackColor = 16374211
Me.KAY.Visible = True
Me.İPT.Visible = True
End Sub

'------------------------------------------------------------------------------'
'Kaydetmek için yaptığım butona şu kodu yazdım...................
Private Sub KAY_Click()
DoCmd.GoToRecord acForm, "Giriş", acNext
DoCmd.GoToRecord acForm, "Giriş", acPrevious
DoCmd.GoToControl ("SicilNo")
Me.Ayrıntı.BackColor = -2147483633
Me.FormAltbilgisi.BackColor = -2147483633
Me.FormÜstbilgisi.BackColor = -2147483633
Me.KAY.Visible = False
Me.İPT.Visible = False
'-------------------------------------------------------------------------------'
İptal butonuna şu kodu yazdım.

Private Sub İPT_Click()
DoCmd.GoToControl ("SicilNo")
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
Me.Ayrıntı.BackColor = -2147483633
Me.FormAltbilgisi.BackColor = -2147483633
Me.FormÜstbilgisi.BackColor = -2147483633
Me.KAY.Visible = False
Me.İPT.Visible = False
End Sub

'-------------------------------------------------------------------------------'

' Kaydet (KAY) butonu özelliklerinden görünmez yaptım..
' iptal(İPT) butonu özelliklerinden görünmez yaptım..

bunları bir gerial yada iptal olayı için yaptım işinize yarayacağından eminim..

 

[shener]

Sayın Karaayhan çalışmanız ve cevabınız için teşekkür ediyorum. Kodları uygulamadım ama çalışacağınan eminim.Ancak ben de evvelce buna benzer bir çalışma yapmıştım sizin örneğinizde olduğu gibi 1 adet iptal, 1 adet kayıt botunum var ve çalışıyor ancak her kaydın sonunda yeni kayda geçerken(Güncelleştirme öncesinde) mesaj kutusuna bağlamayı istedim onun için üzerinde durdum fakat mesaj kutusuna verilen Yes veya No olayı döngüsünün bir işe yaramaması ilginç geldi bana ve bir yolu olmalı diye düşündüm. Kayıt butonu ile kayıt yapalım ancak program kayıt edilsin mi edilmesin mi diye sorsun istiyordum.Bunun neden gerekli olduğunu düşünübelirsiniz. Forma kayıt işledik ve kaydet demeden yanlışlıkla next'e bastık kayıt gitti..geriye dönüp bir daha işlemek gerekecek.

 

[modalı]

Kusurabakmayın ama defalarca söylüyorum. Soru sorulurken direkt olarak istenen sorulsun. Sorular yan yollardan sorulmasın.

Yaklaşık olarak 5 gün kaybettiniz.

Ekteki basit uygulama herhalde istediklerinizi karşılıyor.
Daha önce uygulamamıştım ama oldu herhalde.

İyi çalışmalar :hey:

 

[shener]

Else'den sonra

Sayın modalı sorumu okursanız doğrudan sordum ancak tam anlaşılamamış olabilir.Ayrıca bir soruya cevap başka bir soru veya cevap doğruyor) Çalışmanız için teşekkürler elinize sağlık.Ancak hayır durumunda kaydı siliyor ve silinen kayıt sebebiyle sık sık hata değeri veriyor, kaydı silmeden kaydı geri alamaz mı?

 

[modalı]

Aynı butonları ve kodları alt forma da eklerseniz olur herhalde.