Skip to main content

AccessTr.neT


Veri Değişikliğinde MsgBox Bilgisi

Veri Değişikliğinde MsgBox Bilgisi

Çözüldü #1
Merhaba arkadaslar,

asagidaki kodu calistirdigim zaman;
„Veriyi degistirmek istiyormusunuz diye soruyor“ evet dedigimde, veri degistiriliyor.
Veri degistirildikten sonra > „veriniz degistirildi“ diye tekrar bilgi geliyor. Buraya kadar hersey güzel.

Veriyi degistirmekten vazgecip HAYIR dedigimde, veri degistirilmedigi halde „veriniz degistirildi“ diye bilgi geliyor.
Aslinda veriyi degistirip EVET dedigim zaman „veriniz degistirildi“ bilgisinin gelmesi,
veriyi degistirmekten vazgecip HAYIR dedigim zaman da „veriniz degistirilmedi“ bilgisinin gelmesi lazim.

Bunu nasil ayarlayabiliriz.

Private Sub cmdDegistir_Click()
On Error GoTo ErrorHandler
If MsgBox("Degisiklik kaydedilsin mi?", vbYesNo, "DEGISIKLIK?") = vbNo Then
Me.Undo 'rückgängig
'Cancel = True 'Ereignisse verhindern (Ruft Bug hervor)
End If
Forms![frmKfz].Refresh
Forms![frmKfz].Requery
MsgBox "Degisiklik kaydedildi.", vbOKOnly, "DEGISTIRILDI"
Exit Sub
ErrorHandler:
MsgBox "Fehler in Sub! Form_FormMain >> Form_BeforeUpdate" & vbCrLf & "Aktion wird abgebrochen"
End Sub
Saygilarimla
kaleci
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Veri Değişikliğinde MsgBox Bilgisi - Yazar: kaleci - 27/04/2013, 23:10
Cvp: Veri degisikliginde MsgBox bilgisi - Yazar: kaleci - 27/04/2013, 23:46
Cvp: Veri degisikliginde MsgBox bilgisi - Yazar: kaleci - 28/04/2013, 00:19
Cvp: Veri degisikliginde MsgBox bilgisi - Yazar: kaleci - 28/04/2013, 01:30
Task