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

mmert06

Aktif Üye
53713
me.... me....
 37
 63
 246
 01/05/2013
0
 Ankara
 mühendis
 Ofis 2010 32 Bit
 24/04/2019,01:02
Çö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.




mmert06

mmert06

Aktif Üye
53713
me.... me....
 37
 63
 246
 01/05/2013
0
 Ankara
 mühendis
 Ofis 2010 32 Bit
 24/04/2019,01:02
(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ü Formdaki Tüm Kayıtları Silme Yunus Bozkurt 5 269 16/06/2019, 17:36
Son Yorum: Yunus Bozkurt
Çözüldü İki Liste Kutusundan Aynı Tablo Üzerinde Güncelleme Yapmak Yunus Bozkurt 14 558 10/06/2019, 16:31
Son Yorum: Yunus Bozkurt
Çözüldü Raporda Sayfa Alt Bilgisi Liste Boyuna Göre Yapışık Olsun Yardım okumas 2 166 30/05/2019, 15:38
Son Yorum: okumas
Çözüldü Liste Kutusu Yada Açılan Kutu Hakkında programmer67 6 338 26/03/2019, 15:21
Son Yorum: programmer67
Çözüldü Metin Kutusuna Girilen Veriye Göre Veri Çağırma fascioğlu 9 679 14/03/2019, 14:50
Son Yorum: programmer67

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