Form Üzerinde Kayıt Silinirken Onay İstesin.

merhaba arkadaşlar.

form  üzerinde kayıt silerken onay isteyebilirmi
benim onayın olmadan kaydı silmesin.  e/h gibi.

Private Sub sil_Click()
On Error GoTo Err_sil_Click

If Me.NewRecord = True Then MsgBox "Silinecek aktif kayıt yok", 48, "Kayıt Silme": Exit Sub
If MsgBox("Silmek İstediğinizden Emin misiniz?", 20, "Kayıt silme") = 6 Then
DoCmd.SetWarnings False
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.SetWarnings True
    End If
   
Exit_sil_Click:
    Exit Sub
Err_sil_Click:
    MsgBox "kayıt silme işlemi yapılamadı", 48, "Kayıt silme"
End Sub

(20/06/2017, 09:51)C*e*l*o*y*c*e yazdı: Private Sub sil_Click()
On Error GoTo Err_sil_Click

If Me.NewRecord = True Then MsgBox "Silinecek aktif kayıt yok", 48, "Kayıt Silme": Exit Sub
If MsgBox("Silmek İstediğinizden Emin misiniz?", 20, "Kayıt silme") = 6 Then
DoCmd.SetWarnings False
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.SetWarnings True
    End If
   
Exit_sil_Click:
    Exit Sub
Err_sil_Click:
    MsgBox "kayıt silme işlemi yapılamadı", 48, "Kayıt silme"
End Sub

teşekkür ederim.
kolay gelsin.