Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
14/06/2018 17:12
Konu Sahibi
mmert06
Yorumlar
1
Okunma
292
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
 60
 235
 01/05/2013
0
 Ankara
 mühendis
 Ofis 2010 32 Bit
 Bugün,02:11
Çö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
 60
 235
 01/05/2013
0
 Ankara
 mühendis
 Ofis 2010 32 Bit
 Bugün,02:11
(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ü Liste kutusundan seçili olanı tablodan silme... direnist 13 5.001 7 saat önce
Son Yorum: ozanakkaya
Çözüldü Kaydetme, Yeni Kayıt Ekleme Ve Kayıt Silme Sorunu mmert06 18 528 15/01/2019, 01:05
Son Yorum: mmert06
Çözüldü Sürekli Formdaki Kritere Göre Liste Kutusuna Veri Aktarımı mmert06 7 298 31/12/2018, 18:35
Son Yorum: mmert06
Çözüldü Liste Kutusuna Başlık ekleme bibib 8 228 31/12/2018, 08:02
Son Yorum: bibib
Çözüldü Liste Kutuları Arasında Filtreleme Sorunu mmert06 2 95 31/12/2018, 00:44
Son Yorum: mmert06

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