+- 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ığı: Listbox Dan Veri Silme (/konu-listbox-dan-veri-silme.html)
Sayfalar:
1
2
Listbox Dan Veri Silme - yurdalsldrk - 14/06/2022
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
RE: Listbox Dan Veri Silme - berduş - 14/06/2022
Forum kurallarını okuyup, örnek çalışmanızı mutlaka ekleyin
RE: Listbox Dan Veri Silme - yurdalsldrk - 14/06/2022
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
RE: Listbox Dan Veri Silme - berduş - 15/06/2022
ç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ı?
Re: Listbox Dan Veri Silme - berduş - 15/06/2022
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 SubRE: Listbox Dan Veri Silme - yurdalsldrk - 15/06/2022
(15/06/2022, 13:21)berduş yazdı: 1 - sorguya kimlik alanı daTeşekkürler emeğinize sağlık
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