+- 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