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