Skip to main content

AccessTr.neT


Liste Kutusundaki Veriye Ait Klasörü Silme

Liste Kutusundaki Veriye Ait Klasörü Silme

Çözüldü #1
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.
.rar uygulama2.rar (Dosya Boyutu: 71,15 KB | İndirme Sayısı: 0)
Son Düzenleme: 14/06/2018, 17:12, Düzenleyen: mmert06.
Cevapla
#2
(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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task