Kayıt Silmede ONAY KUTUSU çıksın

[İsmail Küçükşengün]

Merhaba,

Private Sub KayıtSil_Click()
On Error GoTo Err_KayıtSil_Click
 
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_KayıtSil_Click:
    Exit Sub
Err_KayıtSil_Click:
 MsgBox Err.Description
 
    Resume Exit_KayıtSil_Click   
 
End Sub

Butona atadığım bu kodla kayıt siliniyor.

Fakat ben, kayıt silemeden önce "Dikkat! Seçilen kayıt silinecek. Onaylıyor musunuz?.." şeklinde ve Evet ve Hayır seçenekli bir onay-mesaj kutusu çıkmasını istiyorum.

Yukarıdaki koda ne gibi ilave gerekir?

Şimdiden Teşekkürlerimle.

 

[emre_bademci]

gönderdiğin kodlarda bir silme onay mesajı çıkıyor istediğin tam olarak nedir

 

[İsmail Küçükşengün]

Maalesef onay mesajı çıkmıyor. Çıkmadan direk siliyor.

Acaba nerde hata yapıyorum.

 

[yeni54]

DAHA KOLAY KAYIT SİLME

Geçen aylarda bu sayfalardan, kayıt silmek için ‘daha güzel kayıt silme’ başlığında bir kod örneği verdik. Gelgelelim aşağıdaki yeni işlevle daha kolay ve kısa bir şekilde kayıt silme işlemi yapabilirsiniz.

On Error Resume Next
If Me.NewRecord Then
Me.Undo
ElseIf MsgBox("Kayıt silinsin mi?", vbYesNo) = vbYes Then
Me.Recordset.Delete
End If

Bu kodu, kayıt silme görevi üstlenecek bir düğmenin “Click” (Tıklatıldığında) yordamındaki “Sub..” ile “End Sub” satırları arasında kalan kısma yazın.


http://bilgiteknoloji.net/access/access08_ipuclarina_devam.asp
adresinden alınmıştır.

 

[İsmail Küçükşengün]

Sayın yeni54

Çok teşekkür ediyorum.