[FONKSiYON] Eklenen Resmi Klasöre Taşıması

1 2 3 4
03/01/2012, 22:31

sudamlasi79

1.SORU
Selam arkadaşlar, ekteki programı yaptım, evrak kayıt programı, lakin evrağı tarayıp eklemek istediklerinde tarama diye oluşturduğum klasöre taşımak zorunda kalınıyor (çünkü kayıt evrakları dışındada taramalar olduğu için belirli bir klasörü gösteremiyorum) bu yoğun iş akışı içinde uğraştırıcı birşey , ben resmi seçip eklediğimde göstereceğim klasöre otomatik taşıyabilirmi bu konuda fikriniz varsa paylaşırsanız sevinirim 1.sorum bu,


2.SORUM
access 2010 kullanıyorum ek özelliği var aslında tam anlamıyla işimi karşılayacak bir özellik fakat eklediğim resimler direk veritabanına eklendiği için 10.resimde database 30 mb a ulaşıyor bu konuda bana yardımcı olacak veya ışık tutacak fikirlerinizi paylaşırsanız sevinirim.

Herkese şimdiden teşekker ederim.
Ek Dosyalar

Sn.sudamlasi79
Forumu ararsanız resimleri ayrı klasörde tutan örnekler mevcut.
03/01/2012, 23:12

alpeki99


Dim Kaynak, Hedef
Kaynak = CurrentProject.Path & "\Logo.png"
Hedef = "c:\YeniLogo.png"
FileCopy Kaynak, Hedef

şeklinde dosya kopyalayabilirsiniz.
03/01/2012, 23:12

iscinar

Resimleri farklı klasörde depolama il ilgili
Linkteki konuyu incelermisiniz.
03/01/2012, 23:33

ozanakkaya

Alpeki99'un kodu nasıl uygulanacak diye merak edenler için;

Polsofta, resim eklenirken seçilen resmin bir kopyasını polsoft.mdb ile aynı dizinde bulunan resim klasörüne kopyalatıyorum. Bu işlemi gerçekleştiren kod:


YedekYolu = VtYolu(BagliTabloVt) & "resimler"
ResimAdi = "\kisi-" & tcno & adsoyad & StrConv(Right(ImagePath, 4), 2)
ResimAdi = StrConv(Replace(ResimAdi, " ", "-"), vbLowerCase)
ResimYeni = YedekYolu & ResimAdi

2. soru, konu başlığı ile bağlantılı olduğu için yazıyorum cevabı, veritabanına eklemey yerine tabloya yol olarak kaydedin.
03/01/2012, 23:42

sudamlasi79

teşekkür ederim yardımcı olmaya çalıştığın için benim istediğime benzerbirşey fakat dosyayı kopyaladıktan sonra klasör yolunu tabloya eklesin ve tablonun kayıt sayısını alsın istiyorum. bu konuda yardımlarınızı bekliyorum
1 2 3 4