kaydetmeden önce uyarı

Katılım
26 Ekim 2006
Mesajlar
169
Excel Vers. ve Dili
office 2003
forumdan aldıgım aşagıdaki kodu formuna uyguladım çalışıyor bu kodlar sayfa sonuna geldiğinde kayıt esnasında ve çıkış yaparken soruyor onaylıyoruz ok. burada sorunum yok

yalnız şöyle bir sorunum var, hem sütünlü hem de sekmeli forumlarım mevcut bunların her bir alandaki yenilemeye/değiştirme esnasında bu uyarının o an alandan çıkıldıgında vermesini istiyorum.sayfa sonunu beklemeden kayıt veya çıkış tuşuna basmadan buradaki uyarının aynısını versin mümkünse,

bu şekilde olmaz diye bir mesaj yazarsanız memun olurum

Private Sub konteynerno_BeforeUpdate(Cancel As Integer)
Dim strMsg As String
strMsg = "Veriler Değişti."
strMsg = strMsg & "@Değişiklikleri kaydetmek ister misiniz??"
strMsg = strMsg & "@Kayıt için Evet. İşlemi geri almak için Hayır."
If MsgBox(strMsg, vbQuestion + vbYesNo, "Veri kaydedilsin mi??") = vbYes Then
'do nothing
Else
DoCmd.RunCommand acCmdUndo
End If
End Sub
 
Katılım
26 Ekim 2006
Mesajlar
169
Excel Vers. ve Dili
office 2003
teşekkür ederim tam istediğim gibi
 
Üst