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 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