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 Sub
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.
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.
anladım..hatta ona bile gerek kalmadan ikinci satırdaki SendKeys "{ESC}", True kodunu false yapınca istediğim oluyor.çok tşkler.
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.
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
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