Arkadaşlar merhaba ,

Access de listbox da 5 başlıktan oluşan tablom dan veriler ekledim yeni kayıt da ekleyebiliyorum ancak silme konusunda sorun yaşıyorum örneğin listbox daki veriye çift tıkladığımda tıklanan verilerin bir mesaj verilerek heryerden silinmesi istiyorum araştırdım ama bulamadım desteğinizi rica ederim. Teşekkürler

Forum kurallarını okuyup, örnek çalışmanızı mutlaka ekleyin

Kusura bakmayınız örnek dosyayı ekledim.List box da  veri seçip bir buton ile o veriyi silmek istiyorum
butona bastığımda "silmek istiyor musunuz" diye bir msg box çıkıp evet butonu ile verinin her yerden silinmesi işime yarayacaktır. Desteğiniz için teşekkür ederim .

---

(14/06/2022, 11:58)berduş yazdı: Forum kurallarını okuyup, örnek çalışmanızı mutlaka ekleyin

Kusura bakmayınız örnek dosyayı ekledim.List box da veri seçip bir buton ile o veriyi silmek istiyorum
butona bastığımda "silmek istiyor musunuz" diye bir msg box çıkıp evet butonu ile verinin her yerden silinmesi işime yarayacaktır. Desteğiniz için teşekkür ederim

çalışmanızda şöyle bir sorun var listbox sorguya bağlı ama sorgunuzda asıl tanımlayıcı alan olan Kimlik alanı yok
kimlik alanı olmadan yapılacak silme işlemi hatalara sebep olabilir. Kimlik alanını almamak için özel bir nedeniniz var mı?

1 - sorguya kimlik alanı da
2 - forma "silme" düğmesi eklendi, Silme kodu

Private Sub BtnSil_Click()

If Me.Liste0.ListIndex < 0 Then MsgBox "kayıt seçilmemiş": Exit Sub

xSil = MsgBox("İlgili Kaydı Silmek istediğinize Emin misiniz?", vbQuestion + vbYesNo + vbDefaultButton2, "Kayıt Silme Uyarısı")

If xSil = vbYes Then CurrentDb.Execute "delete * from sayfa1 where [Kimlik]=" & Me.Liste0.Value: Me.Liste0.Requery

End Sub

(15/06/2022, 13:21)berduş yazdı: 1 - sorguya kimlik alanı da
2 - forma "silme" düğmesi eklendi, Silme kodu

Private Sub BtnSil_Click()

If Me.Liste0.ListIndex < 0 Then MsgBox "kayıt seçilmemiş": Exit Sub

xSil = MsgBox("İlgili Kaydı Silmek istediğinize Emin misiniz?", vbQuestion + vbYesNo + vbDefaultButton2, "Kayıt Silme Uyarısı")

If xSil = vbYes Then CurrentDb.Execute "delete * from sayfa1 where [Kimlik]=" & Me.Liste0.Value: Me.Liste0.Requery

End Sub

Teşekkürler emeğinize sağlık