[VBA] Liste Kutusundan Seçili Yedek Kayıt Silme Sorunu
#1
Ekli resim ve Vt de FYedekleme formu Liste Kutusun(Liste6)  da seçili yedeklenmiş kaydı silme sorunu yaşamaktayım. Bu liste kutusunda çifttıklandığında olay yordamında ki kodlarda kendimce çeşitli denemeler yaptım ancak başarılı olamadım siz saygı değer hocalararımın yardımını bekliyorum.
Sorunum şudur; Liste kutusunda ilgili kayda çift tıklayıp sil dediğimde tüm yedekleri silmektedir. Örnegin Yedek kayıtlar şöyle olsun:

07.11.2019_DSS UYGULAMA
06.11.2019_DSS UYGULAMA
05.11.2019_DSS UYGULAMA

05.11.2019_DSS UYGULAMA yedeğini sildiğimde diğer iki yedeğin de yedek klasöründe ve Liste Kutusunda görünmesi gerekir ken tamamı hem liste kutusundan hemde Yedek Klasöründen tamamen silinmektedir. Oysa sadece silmek için seçtiğim kayıt silinmeli diğerleri silinmemelidir.

Şimdiden saygıdeğer üstadlarıma Teşekkürlerimi sunarım.


.rar   Dss Uygulama.rar (Boyut: 55,23 KB / İndirilme: 58)

.png   Ekran Alıntısı.PNG (Boyut: 70,16 KB / İndirilme: 53)



  Alıntı
Bu mesajı beğenenler:
#2
(08-11-2019, 10:17)Ahmet51 demiş ki: Ekli resim ve Vt de FYedekleme formu Liste Kutusun(Liste6)  da seçili yedeklenmiş kaydı silme sorunu yaşamaktayım. Bu liste kutusunda çifttıklandığında olay yordamında ki kodlarda kendimce çeşitli denemeler yaptım ancak başarılı olamadım siz saygı değer hocalararımın yardımını bekliyorum.
Sorunum şudur; Liste kutusunda ilgili kayda çift tıklayıp sil dediğimde tüm yedekleri silmektedir. Örnegin Yedek kayıtlar şöyle olsun:

07.11.2019_DSS UYGULAMA
06.11.2019_DSS UYGULAMA
05.11.2019_DSS UYGULAMA

05.11.2019_DSS UYGULAMA yedeğini sildiğimde diğer iki yedeğin de yedek klasöründe ve Liste Kutusunda görünmesi gerekir ken tamamı hem liste kutusundan hemde Yedek Klasöründen tamamen silinmektedir. Oysa sadece silmek için seçtiğim kayıt silinmeli diğerleri silinmemelidir.

Şimdiden saygıdeğer üstadlarıma Teşekkürlerimi sunarım.

Saygıdeğer üstadlarım şu konuya bir el atsanız.



  Alıntı
Bu mesajı beğenenler:
#3
(10-11-2019, 08:36)Ahmet51 demiş ki:
(08-11-2019, 10:17)Ahmet51 demiş ki: Saygıdeğer üstadlarım bu konuda yardımcı olabilirmisiniz.

Şimdiden çok teşekkür ederim.



  Alıntı
Bu mesajı beğenenler:
#4
Visual Basic
  1. Private Sub Liste6_DblClick(Cancel As Integer)
  2. If Liste6.ListCount = 0 Then
  3.    MsgBox "Yedek dosyanýz bulunmamaktadýr.."
  4. Else
  5.    Dim msg As String
  6.    msg = "'" & Liste6.Column(4) & "' isimli YEDEK bilgisayarýnýzdan tamamen silinecek.. Emin misiniz?"
  7.    If MsgBox(msg, vbYesNo) = vbYes Then
  8.        On Error Resume Next
  9.        Dim dosya
  10.        dosya = Liste6.Column(1)
  11.        Kill dosya
  12.        Dim turt
  13.        turt = Liste6.Column(2)
  14.            With DoCmd
  15.                .SetWarnings False
  16.                .RunSQL "DELETE trz.ad, boskontrol, tur" _
  17.                & " FROM syedekler AS trz" _
  18.                & " WHERE id = " & Liste6.Column(0) & " and tur=" & turt
  19.                .SetWarnings True
  20.            End With
  21.        Liste6.Requery
  22.    End If
  23. End If
  24. End Sub



Liste6 cift tiklama olay yordamini yukarida ki prosedurle degistirin...

Form yuklendigi olay yordamindaki RunSQL'de ki DELETE olayinida iptal edebilirsiniz.



  Alıntı
Bu mesajı beğenenler:
#5
Sezgin Hocam yüreğine emeğine sağlık sayende işlem tamamlanmıştır.

Teşekkür Ederim.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [VBA] Kayıt Iptali: Kayıt Iptal Tablosuna Ekle, Kayıdı Sil Işlemi programmer67 6 299 21-07-2023, 10:40
Son Mesaj: onur_can
  Liste Arama Kutusundan Kayıt Silme CarpeDiem 12 361 21-07-2023, 10:31
Son Mesaj: onur_can
  Metin Kutusu Boş Sa Diğer Metin Kutusundan Değer Alması özgülapt 4 246 29-05-2023, 18:01
Son Mesaj: feraz
  [VBA] Iki Tablo Arasında Eşleşmeyen Kayıtları Bulup Kayıttaki Dosyaları Ve Datayı Silme Mr.Midnight 3 197 22-11-2022, 15:09
Son Mesaj: alperalper
  Döngü Ile Koşula Dayalı Klasör Içerisindeki Dosyaları Silme Mr.Midnight 2 199 19-11-2022, 22:46
Son Mesaj: alperalper
  Access Te Tabloya Eklenen Verileri Forma Konulan Bir Butonla Silme kursun 4 215 10-11-2022, 21:29
Son Mesaj: kursun
  [FONKSiYON] çok Sayıda Silme Sorgusunu Tek Butonda çalıştırma Ahmet51 2 161 08-11-2022, 17:48
Son Mesaj: Ahmet51
  [SORGU] Son 10 Kayıt Hariç Tabloda Satır Silme hedefkaya 9 300 03-09-2022, 17:59
Son Mesaj: halily

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi