Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   Dosya Arşivleme Programı

Dosya Arşivleme Programı
dreamt
Access Takımı

*
Kayıt Tarihi: 25.02.2010
Toplam 20 konu açtı.
Toplam 713 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR, Office 2013 TR,
Beğeniler: 0 / 1
#7
28-09-2010, 15:29
Adnan Bey istediğiniz dosya ektedir.


Eklenti Dosyaları
.zip   DosyaDepolama.zip (Boyut: 39,28 KB / İndirilme: 334)
"Gönül deniz, dil kıyıdır. Denizde ne varsa kıyıya o vurur"



  Bul
  Alıntı
Bu mesajı beğenenler:
adnan
Önemli Üye 300-400

*
Kayıt Tarihi: 04.04.2008
Toplam 45 konu açtı.
Toplam 325 yorum yaptı.
Toplam 12 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2007 TR,
Beğeniler: 9 / 4
#8
29-09-2010, 16:11
Merhaba,

Sn.dreamt, çok teşekkürederim.
Selamlar.



  Bul
  Alıntı
Bu mesajı beğenenler:
destinasi
Aktif Üye 150-200

*
Kayıt Tarihi: 14.08.2010
Toplam 56 konu açtı.
Toplam 198 yorum yaptı.
Toplam 7 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2007 TR, Office 2010 TR,
Beğeniler: 0 / 2
#9
05-04-2016, 16:06
Merhaba hocam bunda bir değişiklik yapabilirmiyiz, misal dosyayı "C:\Dosya\" yerine personel dosyası kaydederken "C:\Dosya\"TCKİMLİKNO"\" seçili personele göre kayıt nasıl yapılır. Daha açık bir şekilde seçili bir personele dosya eklemek istiyorum, dosya ekleyince klasörün içerisine TC numarasında bir klasör oluşturup o personelin dosyalarını o klasöre nasıl kaydedebiliriz...?



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
serdem48
Aktif Üye 100-150

*
Kayıt Tarihi: 23.09.2014
Toplam 26 konu açtı.
Toplam 127 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003, Office 2007 TR, Office 2010 TR, Office 2013 TR,
Beğeniler: 5 / 0
#10
31-10-2016, 10:24
Visual Basic
  1. Dim asıldosya, kopyadosya As String
  2.  
  3. asıldosya = DosyaYolu
  4. kopyadosya = "D:\dosyadeposu\" _
  5. & Right(DosyaYolu, Len(DosyaYolu) - InStrRev(DosyaYolu, "\"))
  6.  
  7. If MsgBox("Dosya Arşivlenecek.. Emin misiniz?", vbYesNo) = vbYes Then
  8.  
  9. Dim Trz
  10. Set Trz = CreateObject("Scripting.FileSystemObject")
  11.  
  12. Trz.CopyFile asıldosya, kopyadosya
  13.     If MsgBox("Dosya arşivlendi.. Asıl dosyayı silmek ister misiniz?", vbYesNo) = vbYes Then
  14.     Kill asıldosya
  15.     End If
  16. End If





Sayın taruz hocam yukarıdaki kodda bana sormadan asıl dosyayı direkt olarak silmesini istiyorum. hangi satırı ne şekilde değiştirmem gerekiyor.



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

*
Kayıt Tarihi: 24.03.2013
Toplam 27 konu açtı.
Toplam 9.090 yorum yaptı.
Toplam 1.103 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 57 / 240
#11
31-10-2016, 12:15
Dim asıldosya, kopyadosya As String, Trz
asıldosya = DosyaYolu
kopyadosya = "D:\dosyadeposu\" & Right(DosyaYolu, Len(DosyaYolu) - InStrRev(DosyaYolu, "\"))
If MsgBox("Dosya Arşivlenecek.. Emin misiniz?", vbYesNo) = vbYes Then
Set Trz = CreateObject("Scripting.FileSystemObject")
Trz.CopyFile asıldosya, kopyadosya
Kill asıldosya
End If

ikinci if satiri ile end if kaldirin.
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:
veyeka775as
Yeni Üye 1-15

*
Kayıt Tarihi: 21.12.2020
Toplam 0 konu açtı.
Toplam 1 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003, Office 2007, Office 2010, Office 2013, Office 2016, Office 2019,
Beğeniler: 0 / 0
#12
21-12-2020, 14:25
kolay gelsin bende 
arşiv programını indirdim aşağıdaki hatayı veriyor



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


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Arşivleme onut 4 364 18-05-2025, 15:18
Son Mesaj: onut
  Word Dot şaplonunu Açtırarak Dosya Göndermek Aplt 1 332 12-01-2025, 17:11
Son Mesaj: dsezgin
  Aktarım Yaparken Dosya Adını Değiştirme zimbit 4 475 04-02-2024, 00:42
Son Mesaj: zimbit
  [FORM] form klasör içinde dosya kontrolü obaysal42 4 2.500 29-12-2023, 10:24
Son Mesaj: burhanb
  [VBA] Dosya Yolu Yazdırma benuva 2 508 26-11-2023, 19:06
Son Mesaj: benuva
  [VBA] Dosya Yolu Boş Ise Hata Alıyorum serdem48 4 447 26-10-2023, 14:11
Son Mesaj: serdem48
  Toplu .csv, .xlsx, .xls, .xml Dosya Aktarımı Yapmak adnnfrm 2 580 22-06-2023, 19:04
Son Mesaj: dsezgin
access-sql-18 Access.db , Yüksek Dosya Boyutu. BeyTor 9 826 13-05-2023, 22:43
Son Mesaj: BeyTor

Foruma Git:


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