AccessTr.neT
Liste Kutusundaki Veriye Ait Klasörü Silme - Baskı Önizleme

+- 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ığı: Liste Kutusundaki Veriye Ait Klasörü Silme (/konu-liste-kutusundaki-veriye-ait-klasoru-silme.html)



Liste Kutusundaki Veriye Ait Klasörü Silme - mmert06 - 14/06/2018

Merhaba. ekteki veri tabanı dosyasındaki frm_anasayfa formunda yer alan liste kutusundaki veriyi seçip "Klasörü Sil" butonuna basıp ekrana gelen msgbox a evet dediğimde liste kutusundaki seçili verinin ve bu veriye ait uygulama2 isimli Access dosyası ile aynı yerdeki klasörün silinmesini nasıl yapabilirim? Forumda daha önce paylaşılan kodu uygulamaya çalıştım ama klasör silme işini gerçekleştiremedim. Yardımcı olabilirseniz sevinirim.


Cvp: Liste Kutusundaki Veriye Ait Klasörü Silme - mmert06 - 15/06/2018

(14/06/2018, 17:12)mmert06 yazdı: Merhaba. ekteki veri tabanı dosyasındaki frm_anasayfa formunda yer alan liste kutusundaki veriyi seçip "Klasörü Sil" butonuna basıp ekrana gelen msgbox a evet dediğimde liste kutusundaki seçili verinin ve bu veriye ait uygulama2 isimli Access dosyası ile aynı yerdeki klasörün silinmesini nasıl yapabilirim? Forumda daha önce paylaşılan kodu uygulamaya çalıştım ama klasör silme işini gerçekleştiremedim. Yardımcı olabilirseniz sevinirim.

Soruya forumdan cevap veren olmayınca kendim uğraştım ve Klasör Sil butonunun tıklanma olayına ait kod satırını aşağıaki gibi değiştirince sorun çözüldü. İyi çalışmalar.


Private Sub Komut4_Click()
Dim GItem As Variant
Dim Konum As String

For Each GItem In Me.Liste0.ItemsSelected

   If MsgBox(Me.Liste0.Column(2, GItem) & " listeden silinsin mi?", vbQuestion + vbYesNo) = vbYes Then

    Dim filesys

        Konum = CurrentProject.Path

       Set filesys = CreateObject("Scripting.FileSystemObject")
       filesys.deletefolder Konum & "\" & Me.Liste0.Column(1, GItem) & "." & " " & Me.Liste0.Column(2, GItem)


       DoCmd.SetWarnings False
       DoCmd.RunSQL "DELETE klasor_no FROM tbl_klasor WHERE (((klasor_no)=" & Me.Liste0.ItemData(GItem) & "))"
       DoCmd.SetWarnings True

   End If

Next GItem
   kriter = ""
   Me.Liste0.Requery
   Recalc
End Sub