AccessTr.neTMicrosoft AccessAccess Soruları ve Cevapları

Liste Kutusundan Çift Tıklama İle Kayıt Silmek.

1 2
Dün, 10:12

onur_can

Şu şekilde deneyin.
DELETE TbLevci.ogrenciID, TbLevci.[ogrenciID]

FROM TbLevci

WHERE (((TbLevci.[ogrenciID])=[Formlar]![frm_evci_sorgulama]![Liste491]));
Dün, 11:24

SeferŞANLI

veri türü uyuşmazlığı hatasıyla karşı karşıyayım
Dün, 14:30

atoykan

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.
10 saat önce

SeferŞANLI

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?
10 saat önce

SeferŞANLI

(Dün, 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.
1 2