[VBA] Kritere göre gözatmak ve yüklenen dosyayı silmek
#1
Merhaba arkadaşlar yine ilk karşılaştığım bir konu hakkında yardıma ihtiyacım var.
Ekteki örnekte form üzerinden klasör seçimi yaptıktan sonra dosya seçimi kısmında klasör kriterine göre klasörü açmak ve klasör içerisindeki veriyi access içine yükledikten sonra silmek istiyorum gözat işlemi her seferinde varsayılan olarak belgelerimi açıyor bense açılan kutudaki değere göre örneğin D:\ARSIV\ORTAK klasörünü açmak istiyorum.
klasör içindeki dosyayı seçtikten sonra dosya yolu D:\ARSIV\ORTAK\abc.xls gibi metin kutusuna taşınıyor yükle düğmesine tıklayınca gerekli işlemler yapıldıktan sonra son olarak metin kutusundaki dosya yolu kriter alınarak klasörde bulunan dosyayı silmek istiyorum.Form üzerindeki açılan kutu verileri örnektir işlemi kolaylaştıracak klasör yolu döküman cinsi vs değişiklikler yapılabilir.



Eklenti Dosyaları
.rar   TARIH-19052014.rar (Boyut: 25,99 KB / İndirilme: 83)



  Alıntı
Bu mesajı beğenenler:
#2
Sn sonerdursun;
isaretli alanlari buton olay yordamina kopyalayip, excel dosyasi aktarma islemlerini 1,2 olan yere yazilmasi ile yapilabilir.
Private Sub Aktar_Click()
'Gerekli yukleme islemler
'1. Excel dosyasini bagla DoCmd.TransferSpreadsheet.....
'2. Tabloya ekleme sorusu calistir currentdb.Execute "INSERT INTO
'3. Bagli tablo ile eklenen tablo verilerini karsilastirip, kontrol sonucu olumlu ise kill komutu gerceklessin.
....
Kill Me.kaynak_dosya
docmd.deleteobject actable, "BagliTabloAdi"

End Sub

Private Sub gozat_Click()
With Application.FileDialog(msoFileDialogFilePicker)
...
.InitialFileName = Environ("PC") & "D:\ARSIV\ORTAK"
...
End With
End Sub



  Alıntı
Bu mesajı beğenenler:
#3
Teşekürler dsezgin83260 iki işlemide gerçekleştirdim.Açılacak klasör yolu için tablo oluşturup varsayılan yolu kaydettim listeden seçim yaptıkca değişen yola göre klasör açılıyor.





  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] Kritere Bağlı Olarak Değerlerin Toplanması M_Kemal_Askeri 2 67 10-04-2026, 01:05
Son Mesaj: M_Kemal_Askeri
  Açılan Kutudan Kritere Göre Veriyi Başka Alana Yazdırma osman06 8 460 23-11-2025, 11:33
Son Mesaj: dsezgin
  [VBA] Masaüstündeki Tüm Access Dosyalarını Silmek benuva 10 767 22-07-2023, 14:35
Son Mesaj: dsezgin
  [VBA] Ilişkili Tablodaki Verileri Tüm Tablolardan Silmek. programmer67 1 397 14-01-2023, 20:13
Son Mesaj: dsezgin
  Access'te Boş Satırları Komple Silmek Asistan1 26 1.763 05-12-2022, 16:06
Son Mesaj: Asistan1
  [VBA] Iki Tarih Arası Zaman Sayarken Kritere Uymaması alperalper 5 654 20-09-2022, 08:33
Son Mesaj: dsezgin
  Networkte Access Dosyası Bir User'da Açıksa, Diğer User'lar Dosyayı Açamasın . YENIFENER 2 467 17-08-2022, 11:47
Son Mesaj: YENIFENER
access-sql-4 Birden Fazla Kritere Göre Sorgulama Büyük Data 0 366 28-06-2022, 15:44
Son Mesaj: Büyük Data

Foruma Git:


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