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.

(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