[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: 4)

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



  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
  Eklediğim Veri Tabanında Seçili Olana Göre Kayıt sefersanli 1 84 02-11-2019, 23:17
Son Mesaj: onur_can
  [VBA] Liste Kutusundan Word Belgeye Tablo Olarak Veri Almak hturkavci03 62 999 26-10-2019, 16:01
Son Mesaj: hturkavci03
  [FORM] Yedek Alma husem 6 159 14-10-2019, 20:41
Son Mesaj: husem
  [FORM] Alan Genişliği Sorunu, Kayda Gitme Sorunu aliaslans 11 273 04-10-2019, 13:13
Son Mesaj: halily
  tüm tabloları silme husem 8 136 03-09-2019, 15:57
Son Mesaj: husem
  [FORM] Silme Sorgusu evren89 1 86 03-09-2019, 00:37
Son Mesaj: halily
  [FORM] Klasör (Folder) Silme İlhanYaylıcı 2 135 26-04-2019, 13:38
Son Mesaj: İlhanYaylıcı
  [SORGU] Liste Kutusundan Seçilen Alanlara Göre Rapor Yazdırma Ahmet51 9 386 21-04-2019, 09:34
Son Mesaj: Ahmet51

Foruma Git:


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