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

[FONKSiYON] Eklenen Resmi Klasöre Taşıması - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: [FONKSiYON] Eklenen Resmi Klasöre Taşıması (/konu-fonksiyon-eklenen-resmi-klasore-tasimasi.html)

Sayfalar: 1 2 3 4

[FONKSiYON] Eklenen Resmi Klasöre Taşıması - sudamlasi79 - 03/01/2012

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

gelenevrak.zip(73.92 KB)

Cvp: [FONKSiYON] Eklenen Resmi Klasöre Taşıması - iscinar - 03/01/2012

Sn.sudamlasi79
Forumu ararsanız resimleri ayrı klasörde tutan örnekler mevcut.

Cvp: [FONKSiYON] Eklenen Resmi Klasöre Taşıması - alpeki99 - 03/01/2012



Dim Kaynak, Hedef

Kaynak = CurrentProject.Path & "\Logo.png"

Hedef = "c:\YeniLogo.png"

FileCopy Kaynak, Hedef

şeklinde dosya kopyalayabilirsiniz.

Cvp: [FONKSiYON] Eklenen Resmi Klasöre Taşıması - iscinar - 03/01/2012

Resimleri farklı klasörde depolama il ilgili
Linkteki konuyu incelermisiniz.

Cvp: [FONKSiYON] Eklenen Resmi Klasöre Taşıması - ozanakkaya - 03/01/2012

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.

Cvp: [FONKSiYON] Eklenen Resmi Klasöre Taşıması - sudamlasi79 - 03/01/2012

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