Resim dışında excel Word pdf gibi tüm dosyaları eklemek istiyorum. Ve tek tek seçerek değil de mause ile çoklu seçim yaparak... programla aynı dizinde örneğin "ÇalışmaNo" adında klasör oluşturulup buraya kayıt yapmak istiyorum. Aynı formda o kayıda ait klasörü açıp, daha önce yüklediğim dosyalara erişmek istiyorum. Uzun zaman beri konu ile alakalı birçok örnekleri araştırdım. Tabiki işin ilmi bilemediğimizden oldukça zorlanıyorum. Bir şey yapamıyorum. Ne derler bilirsiniz. Balık yemek için tutmasını bilmek gerekir... Devlet memuruyum. çalıştığım ortam da bunu öğrenmek epey vaktimi alır. Hazırladığım programı ekte gönderiyorum. Şimdiye kadar hep siteden yardım alarak, okuyarak bu seviyeye kadar gelebildim. DSİ de çalışıyorum. Böyle bir programa ihtiyacımız var. Yardımcı olursanız sevinirim.

Sn hoopmars;
Form uzerinde resmin gosterilmesi, resim nesnesinin picture bolumune resim yolunu referans vermek ile gerceklesir. Tabloda ki Resim sutunu veri tipini metin olarak ayarlanip, Form uzerinde resim(ek) nesnesini silip, yeni resim nesnesi olusturma ve form gecerli olay yordamina Me.Resim.picture=iif(isnull(me.resim),"",me.resim) komutu ile tabloya kaydedilen resim yolu atamasinin yaptirilmasi gerekir.
Ek(Atac) olan alana dosya eklemesi veya eklenen dosyanin cikarilmasini cift tiklama ile acilan menu ile yapabilirsiniz.

  Database2.rar (Boyut: 1,16 MB / İndirilme: 186) Ornek VT renkli olan alanlari inceleyebilirsiniz.

Sezgin bey, öncelikler tşk.ler...

Taruz'un "resim ekleme hakkında herşey" adlı güzel bir uygulaması var; bekli bilirsiniz. Onun aynısını kendi uygulamama yapabiliyorum. Ancak; benim istediğim belki daha basit, belki daha zor bilemiyorum... İstediğim sadece resim eklemek değil, *.excel *.Word *.pdf *.jpg vb. tüm dosyaları eklemek istiyorum. Bu dosyaların sayısı, çok olabilir. Bu nedenle, uygulamamla aynı dizinde, ÇalışmaNo referans alan bir klasör oluşsun ve tüm seçtiğim dosyalar bu klasöre kopyalansın istiyorum. İlgili çalışmayı açtığımda; bir komut olay ile, klasöre girip, dosyaları tek tek açmak. Kısacası "Ek" veri alanın yaptığı işi yaptırmak... aynı zamanda uygulamamın kapasitesi artsın istemiyorum. Çünkü zamanla resim sayıları arttıkça uygulamada sıkıntı çekeceğimi düşünüyorum.

Makinelere ait resimler tek olduğu için resim yolu eklemeyi gerek görmedim. Asıl önemli olan ÇalışmaTbl sudur. her çalışmaya ait dosya sayısı 10-20 arası olabilir.

Sn hoopmars;
Dosya yolunu VT kaydetmeden, CalismaNo referansi ile klasor olusturma
ÇalışmaNo alanı cıft tıklanması ıle ılgılı klasorun acılması


DonemNo guncellenmesı ıle klasorun olusturulması


yapilabilir.

Sezgin Bey mrb. verdiğiniz kodları uyguladım. Ancak bir sonuç elde edemedim. Verdiğiniz kodlarla sadece klasör açabiliyor. Hatırlar mısınız bilmem, Daha önceleri Sn menege nin örneğinde aşağıdaki şekilde cevapladınız. Bu kodlar benim işimi görüyor.
Sadece ekler alanı yerine, benim seçeceğim klasörün içindeki tüm belgeler yüklensin. Her kopyalanan belge için "Tamam" mesajı vermesin. Tüm belgeler kopyalandıktan sonra " Hepsi kopyalanmıştır" diye tek mesaj alabilir miyiz? [/b][/color]

Private Sub Komut96_Click()
Dim Kyt As Recordset, Yer As String, Cvp as Variant
Yer = "C:\Users\" & Environ("UserName") & "\Documents\" & Me.FirmaAdi
If Len(Dir(Yer, vbDirectory)) = 0 Then MkDir Yer
Set Kyt = Me.RecordsetClone
Set Dosya = Kyt.Fields("MusteriBelgesi").Value
While Not Dosya.EOF
If Len(Dir(Yer & "/" & Dosya.FileName)) = 0 Then Dosya.Fields("FileData").SaveToFile Yer: MsgBox Dosya.FileName & vbNewLine & " Kopyalanmistir...." Else Cvp = MsgBox("Klasorunde " & Dosya.FileName & vbNewLine & " dosyasi Mevcuttur...", vbCritical, Yer)
Dosya.MoveNext
Wend
Kyt.Close: Set Kyt = Nothing
End Sub

Kolay gelsin....

(03-06-2015, 14:50)hoopmars demiş ki: 1. uygulamamla aynı dizinde, ÇalışmaNo referans alan bir klasör oluşsun ve tüm seçtiğim dosyalar bu klasöre kopyalansın istiyorum. bir komut olay ile, klasöre girip, dosyaları tek tek açmak. aynı zamanda uygulamamın kapasitesi artsın istemiyorum. Çünkü zamanla resim sayıları arttıkça uygulamada sıkıntı çekeceğimi düşünüyorum.

---

2. benim seçeceğim klasörün içindeki tüm belgeler yüklensin.

Sn hoopmars;

Ikinci soylemde sadece A klasorunden, sectiginiz klasore dosya transferi mi isteniyor? yoksa ek sutununa eklenmesi mi?

VT boyutunun buyumemesi icin ilgili dosyalari kopyalamak veya dosya yolunu kaydetmek istemiyorum gibi anladigim icin klasor olusturma ile acma eylemi onerisinde bulunmustum. Diger misal ise ek sutun icinden bilgisayara dosyanin aktarimi kodudur. VT icine dosyalari almaniz boyutu dediginiz gibi arttiracak olup, dosya yolu ile daha pratik ihtiyac karsilanabilir.