- Katılım
- 4 Mayıs 2007
- Mesajlar
- 7
- Excel Vers. ve Dili
- 2003 turkce
Sitenizden aldığım bilgiler ile access programına ilgi duymaya başladım ve ufak programlar yaptım. şimdi de bilgilerin yardımına ihtiyaç duydum. konuyla ilgili formda arama yaptım ancak projeme uyarlayamadım.
şirkette kullandığımız ağ üzerinden paylaşılan otomasyon programı bu güne kadar işimşimizi görüyordu. otomasyon programında tabloda fotograf alanı var ve ole nesnesi olarak tanımlı. kayıt sayısı 5000 lere ulaşınca programında boyutu kabardı ve ağır işliyor.
yardımınızla ole nesnesinde gömülü olan fotografları gif formatında dışarıya otomatik olarak çıkartmak istiyorum. prgramı yeniden tasarlayacam ve fotografları veri tabanına gömmeyecem. formda kayıt gezintisi tuşlarıyla gezildiginde d sürücüsünde resimler klasörünün içerisine kimlik numarasıyla eşleşen bir klasör oluştursun ve kimlik numarasını alarak gif formatında resimleri kaydetsin istiyorum.
yardım ederseniz minnettar kalırım. bir taslak program göndriyorum.
Dim NewDoc As String
DocPath = "d:\1.gif"
With Me.Fotograf
.Class = "1.gif"
.Verb = acOLEVerbOpen
.Action = acOLEActivate
.Object.Application.Documents.Item(1).SaveAs DocPath
.Object.Application.Quit
.Action = acOLEClose
End With
kodlarıyla yapmaya çalıştım sitenden aldığım kodları uyarlayarak sürekli microsoft photo editör programı açılıyor.
şirkette kullandığımız ağ üzerinden paylaşılan otomasyon programı bu güne kadar işimşimizi görüyordu. otomasyon programında tabloda fotograf alanı var ve ole nesnesi olarak tanımlı. kayıt sayısı 5000 lere ulaşınca programında boyutu kabardı ve ağır işliyor.
yardımınızla ole nesnesinde gömülü olan fotografları gif formatında dışarıya otomatik olarak çıkartmak istiyorum. prgramı yeniden tasarlayacam ve fotografları veri tabanına gömmeyecem. formda kayıt gezintisi tuşlarıyla gezildiginde d sürücüsünde resimler klasörünün içerisine kimlik numarasıyla eşleşen bir klasör oluştursun ve kimlik numarasını alarak gif formatında resimleri kaydetsin istiyorum.
yardım ederseniz minnettar kalırım. bir taslak program göndriyorum.
Dim NewDoc As String
DocPath = "d:\1.gif"
With Me.Fotograf
.Class = "1.gif"
.Verb = acOLEVerbOpen
.Action = acOLEActivate
.Object.Application.Documents.Item(1).SaveAs DocPath
.Object.Application.Quit
.Action = acOLEClose
End With
kodlarıyla yapmaya çalıştım sitenden aldığım kodları uyarlayarak sürekli microsoft photo editör programı açılıyor.
Ekli dosyalar
-
92.7 KB Görüntüleme: 13