Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [VBA] Döngü yardımıyla çoklu dosya silmek

[VBA] Döngü yardımıyla çoklu dosya silmek
iscinar
Kıdemli Üye >1000

*
Kayıt Tarihi: 21.08.2010
Toplam 48 konu açtı.
Toplam 1.147 yorum yaptı.
Toplam 7 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2007 TR, Office 2010 TR, Office 2013 TR,
Beğeniler: 0 / 2
#1
18-04-2018, 11:38
Merhaba arkadaşlar;
Döngü ile çözüleceğini düşündüğüm fakat hakim olmadığım için hangi döngü ifadesini ve nasıl kurulacağını bilemediğim bu konuda yardıma ihtiyacım var.

Ek te bulunan dosya içerisinde

Her aracın ruhsat ve sigortaları Marka/Model hiyerarşisinde tutulmaktadır.

Zaman içerisinde pert, kiradan çıkma, trafikten çekme gibi sebeplerden dolayı ilişiği kesilen araçların ruhsat ve sigortaları depolama anlamında sıkıntı çıkarmaması için form üzerinden bir silme döngüsü kurmak istiyorum,

Visual Basic
  1. frm_TopluSil formunda
  2. Toplu sil butonuna basıldığında
  3.  
  4. 1. sırada bulunan aracın Dosyalar/Ruhsat/Marka/Model klasör içerisinde Plaka.jpg isimli dosyayı sil
  5. dosya yoksa sonraki işleme git
  6. Ruhsat alanındaki onayı kaldır 
  7.  
  8. Dosyalar/Sigorta/Marka/Model klasör içerisinde Plaka.jpg isimli dosyayı sil
  9. dosya yoksa sonraki işleme git
  10. Sigorta alanındaki onayı kaldır 
  11. 2. Satıra geç 
  12.  
  13. işleme devam et
  14.  
  15. kayıt bitene kadar aynı işlemi tekrarla
  16.  
  17. Kayıt bulunamadığında İşlemi bitir 
  18.  
  19. Mesaj ver




Eklenti Dosyaları
.rar   Döngü ile Dosya Silmek.rar (Boyut: 587,82 KB / İndirilme: 104)



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 27 konu açtı.
Toplam 9.097 yorum yaptı.
Toplam 1.103 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 57 / 240
#2
18-04-2018, 13:36
Visual Basic
  1. Private Sub Sil_Click()
  2. MsgBox "Döngü yardýmýyla listedeki tüm araçlarýn ruhsatlarý silinecek"
  3. DoCmd.GoToRecord , , acFirst
  4. Dim Sayac, Kayit As Long
  5. For Kayit = 0 To Me.RecordsetClone.RecordCount - 1
  6. For Sayac = 0 To 1
  7.     If Len(Dir(CurrentProject.Path & "\Dosyalar\" & IIf(Sayac = 0, "Ruhsat", "Sigorta") & "\" & Me.Marka & "\" & Me.Model & "\" & Me.Plaka & ".jpg", vbNormal)) > 0 Then
  8.         Kill CurrentProject.Path & "\Dosyalar\" & IIf(Sayac = 0, "Ruhsat", "Sigorta") & "\" & Me.Marka & "\" & Me.Model & "\" & Me.Plaka & ".jpg"
  9.         Me.Controls(IIf(Sayac = 0, "Ruhsat", "Sigorta")) = 0
  10.         Me.Refresh
  11.     End If
  12. Next Sayac
  13. Sayac = 0
  14. DoCmd.GoToRecord , , acNext
  15. Next Kayit
  16. End Sub



yapilabilir.
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
iscinar
Kıdemli Üye >1000

*
Kayıt Tarihi: 21.08.2010
Toplam 48 konu açtı.
Toplam 1.147 yorum yaptı.
Toplam 7 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2007 TR, Office 2010 TR, Office 2013 TR,
Beğeniler: 0 / 2
#3
18-04-2018, 14:22
Sayın dsezgin;
ilginiz için çok teşekkür ediyorum.

İşlem tamamdır. Vv



  Bul
  Alıntı
Bu mesajı beğenenler:
sacrament
Yeni Üye 1-15

*
Kayıt Tarihi: 08.06.2017
Toplam 0 konu açtı.
Toplam 4 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013 EN,
Beğeniler: 0 / 0
#4
23-06-2021, 11:54
Merhaba arkadaşlar;
Yukarıdaki mantıktan yola çıkarak
Aynı dizinde bulunan işaretli araçlara ait Ruhsat resimlerini farklı bir klasöre kopyalamak için nasıl değişiklik yapabiliriz?



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 27 konu açtı.
Toplam 9.097 yorum yaptı.
Toplam 1.103 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 57 / 240
#5
23-06-2021, 12:52
(23-06-2021, 11:54)Sacramentum demiş ki: Merhaba arkadaşlar;
Yukarıdaki mantıktan yola çıkarak
Aynı dizinde bulunan işaretli araçlara ait Ruhsat resimlerini farklı bir klasöre kopyalamak için nasıl değişiklik yapabiliriz?

Kill CurrentProject.Path & "\Dosyalar\" & IIf(Sayac = 0, "Ruhsat", "Sigorta") & "\" & Me.Marka & "\" & Me.Model & "\" & Me.Plaka & ".jpg"

satırı yerine

Visual Basic
  1. Dim Kaynak, Hedef as string
  2. Kaynak=CurrentProject.Path & "\Dosyalar\" & IIf(Sayac = 0, "Ruhsat", "Sigorta") & "\" & Me.Marka & "\" & Me.Model & "\" & Me.Plaka & ".jpg"
  3. Hedef="D:\HadefKlasorAdi\"  & IIf(Sayac = 0, "Ruhsat", "Sigorta") & "\" & Me.Marka & "\" & Me.Model & "\" & Me.Plaka & ".jpg"
  4. filecopy Kaynak, hedef



Hedef Klasör belirleme yapilir.
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
sacrament
Yeni Üye 1-15

*
Kayıt Tarihi: 08.06.2017
Toplam 0 konu açtı.
Toplam 4 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013 EN,
Beğeniler: 0 / 0
#6
23-06-2021, 14:36
Sayın dsezgin;


İlginiz ve emeğiniz için teşekkür ediyorum.

Cool



  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  çoklu Seçinle Kayıt Girme? kesoka 1 354 02-07-2025, 23:31
Son Mesaj: dsezgin
access-sql-20 [TABLO] Liste Kutusu-çoklu Seçim özellikli Alana Excelden Verileri Yapıştırma mkoblayek 18 1.180 18-02-2025, 08:49
Son Mesaj: mkoblayek
  Word Dot şaplonunu Açtırarak Dosya Göndermek Aplt 1 344 12-01-2025, 17:11
Son Mesaj: dsezgin
  çoklu Kullanıcılarda Mükerrer Evrak Numarası (transaction) kaburkan 4 446 09-01-2025, 13:26
Son Mesaj: celalll
  Aktarım Yaparken Dosya Adını Değiştirme zimbit 4 507 04-02-2024, 00:42
Son Mesaj: zimbit
  [FORM] form klasör içinde dosya kontrolü obaysal42 4 2.523 29-12-2023, 10:24
Son Mesaj: burhanb
  [VBA] Dosya Yolu Yazdırma benuva 2 528 26-11-2023, 19:06
Son Mesaj: benuva
  [VBA] Dosya Yolu Boş Ise Hata Alıyorum serdem48 4 479 26-10-2023, 14:11
Son Mesaj: serdem48

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi