+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: kayıt düzenlerken uyarı mesajı görüntülenmesi (/konu-kayit-duzenlerken-uyari-mesaji-goruntulenmesi.html)
Cvp: kayıt düzenlerken uyarı mesajı görüntülenmesi - Yandemir - 14/09/2011
Kısa ve öz
Private Sub Form_Dirty(Cancel As Integer)
If vbNo = MsgBox("Düzenlensin mi", vbYesNo + vbDefaultButton2, "Düzenle") Then
SendKeys "{ESC}", True
SendKeys "{ESC}", True
End If
End SubCvp: kayıt düzenlerken uyarı mesajı görüntülenmesi - mehmetb84 - 15/09/2011
evyallah yandemir harikasın, ama bir sorun var uyarıda eveti tıklasak da hayırı tıklasak da düzenleme işlemi geçerli oluor.Bir if koduyla hayır seçilmesi halinde düzenlemeyi devre dışı bıraksak daha güzel olucak.
Cvp: kayıt düzenlerken uyarı mesajı görüntülenmesi - Yandemir - 15/09/2011
SendKeys "{ESC}", True kodu bu işe yarıyor düzelttiklerini geri alıyor ama yukardaki maddeleri buraya ilave edebilirsin alan kilitleme kodlarını yani.
Cvp: kayıt düzenlerken uyarı mesajı görüntülenmesi - mehmetb84 - 15/09/2011
anladım..hatta ona bile gerek kalmadan ikinci satırdaki SendKeys "{ESC}", True kodunu false yapınca istediğim oluyor.çok tşkler.
Cvp: kayıt düzenlerken uyarı mesajı görüntülenmesi - mehmetb84 - 20/09/2011
fakat bir sıkıntı var yandemir, bu form_dirty olayı yeni kayıt eklediğimizde de aktif oluyor,yani bu olayın ben sadece eski kayıtların güncellenmesinde kullanmak istiyordum.Şimdi yeni kayıt ekle desem bile sorulara ewet demek zorunda kalıyorum.Konu da kapandı gerçi ama ilgilenebilirseniz sevinirim.Tşkler.
Cvp: kayıt düzenlerken uyarı mesajı görüntülenmesi - Yandemir - 20/09/2011
girdiğiniz bir alanın kontrolü ile birlikte kullanın mesela adsoyad diye bir alanınız olsun diyelim ad soyad dolu ise ve kayıtta oynama yapılıyorsa uyarı gelir. boş ise sormaz
işin üç kağıdı Private Sub Form_Dirty(Cancel As Integer)
if not isnull(me.adsoyad) then
If vbNo = MsgBox("Düzenlensin mi", vbYesNo + vbDefaultButton2, "Düzenle") Then
SendKeys "{ESC}", True
SendKeys "{ESC}", True
End If
end if
End Sub