+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Liste Kutusundan Çift Tıklama İle Kayıt Silmek. (/konu-liste-kutusundan-cift-tiklama-ile-kayit-silmek.html)
Sayfalar:
1
2
RE: Liste Kutusundan Çift Tıklama İle Kayıt Silmek. - onur_can - 15/09/2025
Şu şekilde deneyin.
DELETE TbLevci.ogrenciID, TbLevci.[ogrenciID]
FROM TbLevci
WHERE (((TbLevci.[ogrenciID])=[Formlar]![frm_evci_sorgulama]![Liste491]));
RE: Liste Kutusundan Çift Tıklama İle Kayıt Silmek. - SeferŞANLI - 15/09/2025
veri türü uyuşmazlığı hatasıyla karşı karşıyayım
RE: Liste Kutusundan Çift Tıklama İle Kayıt Silmek. - atoykan - 15/09/2025
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 SubRE: Liste Kutusundan Çift Tıklama İle Kayıt Silmek. - SeferŞANLI - 15/09/2025
1. Husus: Çift tıklayarak silmek çokta önemli değil. Buton sağlıklı ise kodları butona eklerim.
2. Husus: Kodları güncelledim. İlişkili sütunu 4 yaptım. Lakin işlem yine gereçekleşmiyor. Dosyayı ekledim. Rica etsem bakabilirmisiniz?
RE: Liste Kutusundan Çift Tıklama İle Kayıt Silmek. - SeferŞANLI - 15/09/2025
(15/09/2025, 00:15)C*e*l*o*y*c*e yazdı: Private Sub kmtsil_Click()
Dim GItem As Variant
For Each GItem In Me.Liste491.ItemsSelected
If MsgBox(Me.Liste491.Column(0, GItem) & " adlı öğrencinin evci izin durumu listeden silinsin mi?", vbQuestion + vbYesNo) = vbYes Then
DoCmd.SetWarnings False
' Sql düzeltildi
DoCmd.RunSQL "DELETE FROM TbLevci WHERE ogrenciID = " & Me.Liste491.ItemData(GItem)
DoCmd.SetWarnings True
End If
Next GItem
Me.Liste491.Requery
Recalc
End Sub
eğer bu alan metin ise tırnak içine almalısınız:
DoCmd.RunSQL "DELETE FROM TbLevci WHERE ogrenciID = '" & Me.Liste491.ItemData(GItem) & "'"
kodlarında hata yokmuş. sadece ilişkili sütunu 4 yapınca konu çözüldü. Emeği geçen tüm arkadaşlara teşekkür ederim. SAyın atokyan dediğiniz gibi silme işlemini butana atadım. Satın celoyce sizlerede teşekkür ediyorum.