Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
14/06/2018 17:12
Konu Sahibi
mmert06
Yorumlar
1
Okunma
324
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

mmert06

Aktif Üye
me.... me....
 37
 61
 242
 01/05/2013
0
 Ankara
 mühendis
 Ofis 2010 32 Bit
 09/02/2019,15:54
Çözüldü 
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.



Kullanici Avatari

mmert06

Aktif Üye
me.... me....
 37
 61
 242
 01/05/2013
0
 Ankara
 mühendis
 Ofis 2010 32 Bit
 09/02/2019,15:54
(14/06/2018 17:12)mmert06 Adlı Kullanıcıdan Alıntı: 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.


Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Metin Kutusuna Girilen Veriye Göre Veri Çağırma fascioğlu 9 426 14/03/2019, 14:50
Son Yorum: programmer67
Çözüldü Pdf Adını Veriye Göre Oluşturmak zetyu 9 321 03/03/2019, 23:01
Son Yorum: zetyu
Çözüldü Liste Kutusunda Komutla Seçim zaferlacin 3 165 25/02/2019, 23:37
Son Yorum: zaferlacin
Çözüldü Liste Kutusundan Sekme Denetimlerindeki Formları Açmak Oğuz Türkyılmaz 4 309 13/02/2019, 21:24
Son Yorum: Oğuz Türkyılmaz
Çözüldü İşlemlerin Belirli Sayıda Veriye Uygulanması ertans 5 170 13/02/2019, 18:21
Son Yorum: ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.