Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
06/01/2012 15:04
Konu Sahibi
ondercesmeci
Yorumlar
12
Okunma
8055
Konuyu Oyla:
  • Derecelendirme: 2/5 - 2 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 2/5 - 2 oy
Kullanici Avatari

ondercesmeci

Hesap Aktif Değil
Aktivasyon Bekleyen
 Belirtilmemiş
 62
 21
 15/06/2010
 Çorum
 
 Ofis 2007
 12/05/2016,17:32
Çözüldü 
Herkese merhaba;
Arkadaşlar hazırladığım programın hemen bitip örnekler bölümüne göndereceğimi düşünürken işin içinden çıkamadığım bir hal aldı.
ŞİFRE:0
Programın amacı : ağ üzerindeki bir bilgisayarda kurum ile ilgili bilgisayar dosyalarını (word, excel, resim, liste, v.b.) salt okunur olarak arşivlemek. program eğer klasör yok ise otomatik açıyor.
1. Problem : frmekle formunda önce kopyalanacak dosyayı seçiyorum ve EKLE butonuna bastığımda eğer aynı adda dosya var ise ikaz verip eski dosyayı yenisi ile değiştirmesi gerekiyor ama aşağıdaki kodda hata veriyor.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Sub arsivleme()
If MsgBox("Dosya Arşivlenecek.. Emin misiniz?", vbYesNo) = vbYes Then
 
Dim Trz
Set Trz = CreateObject("Scripting.FileSystemObject")
Trz.CopyFile asıldosya, kopyadosya
 Me.arsivtarihi = Now
 Me.olusturanpersonelid = Forms![frmgiris]![personelid]
 Me.arsivyol = kopyadosya
 SetAttr Me.arsivyol, vbReadOnly
 MsgBox "Dosya arşivlendi."
 
End If
End Sub


2. Problem : Silme işlemini başaramadım. sil tuşlarında hata veriyor.
ilginize ve bilginize şimdiden teşekkür ederim.

Ek Dosyalar
ARSIV.rar(164.71 KB)



Kullanici Avatari

alpeki99

Düşünmek en zor iştir...
Uzman
OL....
 38
 6.120
 162
 29/10/2008
 Bursa
 Yazılım Geliştirici
 Ofis 2010 32 Bit
 30/08/2018,18:18
Çözüldü 

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
If MsgBox("Dosya Arşivlenecek.. Emin misiniz?", vbYesNo) = vbYes Then
 
Dim Krz
Set Krz = CreateObject("Scripting.FileSystemObject")
Krz.CopyFile asıldosya, kopyadosya
    Me.arsivtarihi = Now
    Me.olusturanpersonelid = Forms![frmgiris]![personelid]
    Me.arsivyol = kopyadosya
    SetAttr Me.arsivyol, vbReadOnly
    MsgBox "Dosya arşivlendi."


asıldosya isimli değişkenin değeri olmadığından hata veriyor. Bu değeride form üzerindeki bir metin kutusundan vermişsiniz ancak Null değer içerdiğinden hata veriyor.

NOT : Vba kodlarınız içinde dosyaların adresi için \\Yesil1\arsiv\DOSYALAMA şeklinde yol belirtmişsiniz. Bu tarz kodlar programlama teknikleri için uygun değil. En iyi çözüm bu adresi VT içinde bir yerde tutmak ve tüm programda geçerli olacak sabit bir değişkene atamak ve adreste o değişkeni kullanmak olacaktır.


AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.

Kullanici Avatari

Kur@l

AccessTR.Net
Uzman
 42
 2.034
 59
 05/11/2008
 -
 
 Ofis 2010 32 Bit
 22/07/2018,02:01
Çözüldü 
Hocam kodlar çok güzel olmuş. Lol



Kullanici Avatari

alpeki99

Düşünmek en zor iştir...
Uzman
OL....
 38
 6.120
 162
 29/10/2008
 Bursa
 Yazılım Geliştirici
 Ofis 2010 32 Bit
 30/08/2018,18:18
Çözüldü 
Ünlü Lidya kralı Krezus'u anmak istedim Img-grin


AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.

Kullanici Avatari

Kur@l

AccessTR.Net
Uzman
 42
 2.034
 59
 05/11/2008
 -
 
 Ofis 2010 32 Bit
 22/07/2018,02:01
Çözüldü 
Bu krezüs enteresan birisi demek ki isteyenler okusunlar... Lol



Kullanici Avatari

ondercesmeci

Hesap Aktif Değil
Aktivasyon Bekleyen
 Belirtilmemiş
 62
 21
 15/06/2010
 Çorum
 
 Ofis 2007
 12/05/2016,17:32
Çözüldü 
sn.alpeki99
Programın bir kaç gün önce o problemleri yoktu. eski dosyayı değiştiriyordu. DosyaYolu'nuda VT ye bağladım, \\Yesil1\arsiv\DOSYALAMA yolunu da VT ye bağladım. ama çözemedim. program da kullandığım kodlar gördüğünüz gibi pek çok arkadaşın o konu ile ilgili gönderdiği kodların aynısı. onların programlarında çalışmakta ama bende hata vermekte. çok basit ve küçük bir hatadan kaynaklandığı kanısındayım.
İlginize ve bilginize teşekkür ederim.




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Formdan Girilen Kaydın Aynı Form'dan Sadece O Kayıt İçin Rapor Çıktısı Alamıyorum. Oğuz Türkyılmaz 9 203 20/09/2018, 18:26
Son Yorum: Oğuz Türkyılmaz
Çözüldü Hata: Birinci Tablonun Başvurulan Alanı İçin Benzersiz Dizin Bulunamadı.hatası kursun 4 134 15/09/2018, 12:52
Son Yorum: ozanakkaya
Çözüldü Hata: Birinci Tablonun Başvurulan Alanı İçin Benzersiz Dizin Bulunamadı.hatası kursun 8 183 15/09/2018, 12:51
Son Yorum: ozanakkaya
Çözüldü Vcard İçin Favori Düzenlemesi access acemisi 4 117 14/09/2018, 18:20
Son Yorum: ozanakkaya
Çözüldü Formdaki Butona Metin Kutusundaki Köprüye Gitmesi İçin Komut Vermek Serkan Kurt 9 253 08/09/2018, 20:19
Son Yorum: Serkan Kurt

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