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