Listboxınızda tıkladığınızda id'yi almaya çalışıyorsunuz ancak ilişkili sütununuz 1. Veri uyuşmazlığı buradan kaynaklı. İlişkili sütun 4 olmalı. Mouse arızası, komut gecikmeleri vb gibi nedenlerle çift tıklamada silme işlemini asla tavsiye etmemekle birlikte, çift tıklama ile silmek ve bahsettiğim olumuszluklara kısmen tedbir almaya yönelik onay ve bildirim mesajları eklenmiş hali ile

Private Sub Liste491_DblClick(Cancel As Integer)

    Dim slctdID As Variant

    

    If Me.Liste491.ListIndex < 0 Then Exit Sub

    

    slctdID = Me.Liste491.Value

    

    If MsgBox("Seçili kaydı silmek istiyor musunuz? (Evci Çıkan ID : " & slctdID & ")", vbYesNo + vbQuestion, "KAYIT SİL") = vbNo Then Exit Sub

    CurrentDb.Execute "DELETE FROM TblEvci WHERE Evci_Cikan_ID = " & slctdID, dbFailOnError

    Me.Liste491.Requery

    MsgBox "Kayıt Silindi", vbInformation

End Sub

benzeri bir kod uygulayabilirsiniz.