ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[Tarkan VURAL]

Forumda sorulan bir soruya karşılık bir örnek dosya hazırladım.
Dosyada 3 adet UserForm var

Bütün olay UserForm1 üzerinde dönüyor.
UserForm1 'i açtığınızda ComboBox' tan bir kişi adı seçiyorsunuz ve bu kişinin veri detayları ile resmini görebiliyorsunuz. Personel tabloları kullan üyelerimize faydalı bir kayn olacağına eminim. Yeni kişi eklerken verileri girdikten sonra Kaydet tıkladığınızda kişiye resim ataması yapabilmek için bir pencere açılıyor ve bu pencereden eklemek istediğiniz remi seçiyorsunuz. İlgili resim UserForm2 üzerinde depolanıyor. Böylece dosyanızı nereye taşırsanız taşıyın, kayıt edilmiş kişilerin resimlerini her defasında LoadPicture sorunu yaşamadan görüntüleyebiliyorsunuz.

Kullanımı :

Makrolarınız etkin ise dosyayı açın, UserForm ( ana çalışma formu ) ile karşılaşacaksınız. Burda Combodan isim seçip bul tıklayın, kişi verileri ile birlikte resmi de görüntülenecek.
Yeni kişi eklemek için Combobox'a kişi adını yazın ve diğer bilgilerini de doldurduktan sonra kaydet tuşuna basın. Diğer bilgileri yazmazsanız Kaydet tuşuna bassanız dahi işlem devam etmeyecek, eksik verileri girmeniz beklenecektir.
Eksik veri olmadığına emin olduğunuzda Kaydet tuşuna bastığınızda bilgisayarınızın dosya aç penceresi açılacak ve kodlarda tanımlı dosya türleri olan resim dosyaları ( klasör içinde var ise ) görüntülenecek. Bir resmi seçtikten sonra ya çift tıklatın ya da pencerenin sağ alt köşesindeki aç tuşuna basın. İlgili resim artık UserForm2 üzerine kodla eklenmiş olan bir image nesnesinin picture ' ı oldu ve UserForm1 üzerinde görüntülendi.

Bu soruyu soran sayın skat adlı üyemize bizi bu projede geliştirmeye teşvik ettiği için teşekkür ediyorum.

İlgili Dosyayayı indirdiğinizde bilgisayarınızdaki herhangi bir yere klasör olarak açınız, Excel dosyasını çalıştırınz.

[skat]

Sayın Tarkan VURAL Hocam;
Verdiğiniz örnek gerçekten benim için çok değerli ve önemli
çünkü emek ve ilgi var teşekkür ederim.Elimde 8000 personelin resmi ve bilgileri var
bilgileri girdim fakat resimleri kaydetmemiştim bu örnekte tam istediğim gibi.
Birde kayıt edeceğim resimlerin bayotları önemlimi acaba
Allah Razı Olsun

[Tarkan VURAL]

Yazmayı atlamışım Bu örnekte bilgiler var ama resim yoksa Bul tuşu ile verileri alıp sonrasında Resim Yükle Tuşu ile mevcut verilere resim de ekleyebiliyorsunuz.

Resim boyutları oldukça önemli. Aslında 8000 personel çok fazla. Durum böyle olunca boyut çok daha önem kazanıyor.
Kabaca bir hesap yapalım :
Her resmin boyutu 1 kb bile olsa 8000 resim demek 8 mb demek olur. Resmin çözünürlüğü ve boyutu da göz önüne alındığında bir resmin olması gereken boyutu tahminen 10kb gibidir. 10 x 8000 = 80.000
80.000 kb / 1000 kb = 80 mb gibi devasa bir dosya oluşturmanıza sebep olur.

Bu kadar çok personel resminiz var ise en mantıklısı LoadPicture yöntemini kullanmaktır ve gereksiz yere dosyanız şişmemiş olur.

Ama siz yine de bu UserForm üzerine resim gömme yöntemini kullanacağım diyorsanız, o zaman resimlerin boyutunu oldukça ufaltın en azından 10-15 mb lık bir dosyanız olur. Bu da biraz yavaş açılıp kapanır, geç kaydeder ama çözüm yoksa elden gelen bir şey de yoktur.

İki seçeneğiniz var, ya dosyanız büyük olacak ya da resimleri ayrı bir yerden alacaksınız.

İyi çalışmalar.

[skat]

Tarkan VURAl Bey
Gerçekten çok teşekkür ederim
Allah yolunuzu açık etsin

[aliosman]

Süper bir dosya ve özellikle resim seçebilip ekleyebilmek harika.
Teşekkürler.

[levo]

tarkan vural bey ben aslında veri tabanından anlamıyorum ama bu göndermis oldugunuz ekte adı soyadı görevi konumu yazıyo resımlerıde bende eklemıyo tıme error verıyo artı ben bunlara nasıl ekleme yapabılırım mesela dogum tarıhını ve adresını felan eklemek kaldırmayı nasıl yapabılıcegımı soylermısınız. Simdiden teşekür ederim

[Tarkan VURAL]

Merhaba, sitemize hoş geldiniz.
Kapalı dosya içerisine veri yazmak, silmek, değiştirmek anlamında veritabanı yönetimi demek istiyorsanız; Excel ve Veritabanı işlemleri başlığımızda onlarca örnek işlendi. Bunlardan faydalanabilir, nasıl teknikler kullanıldığını öğrenebilirsiniz. Takıldığınız noktalarda sorularınızı yazın destek olalım.

[levo]

teşekürler peki ben sizden bişey rica etsem bana o ekte gönderdiğiniz gibi adı soyadı seklinde ben söylesem hazırlarmısınız ben gerçekten anlamıyorum ya yapamıyorum yani bana yardimci olurmusunuz ? yapamazsanızda teşekürler...

[Erhan Yavuz]

Tarkan ben bunu atlamadım ama Teşekkür etmeyi unutmuşum sana... çok güzel Fikir verdin bana...

[Tarkan VURAL]

teşekürler peki ben sizden bişey rica etsem bana o ekte gönderdiğiniz gibi adı soyadı seklinde ben söylesem hazırlarmısınız ben gerçekten anlamıyorum ya yapamıyorum yani bana yardimci olurmusunuz ? yapamazsanızda teşekürler...

Ne gibi bir şey hazırlamak istediğinizi bildirin, örneğinizi ekleyin geliştirmenizde yardımcı oluruz tabii.

[levo]

çok teşekkür ederim saolun benim istegim kriterler adını soyadını adresi telefonu mail adresi eklemek istiyorum..resim eklemek istemiyorum ... şimdiden çok teşekürler gerçekten çok işime yarıycak ellerinize sağlık..

[Tarkan VURAL]

Bununla ilgili çok örnek var ama, yeniden mi yapalım.?
Örnekleri inceler misiniz ?

[levo]

bununla ilgili örnekler derken tam verdiğim sekilde varsa eklermisiniz ben yapamıyorum onun için rica ettim anlamıyorum ......

[Tarkan VURAL]

İncelediniz mi daha önce ?
viewtopic.php?f=38&t=151

[levo]

tarkan bey ben aslında niçin istediğimi söyleyim ben bişirkette kişi bilgilerini giricem birçok kişi bunun için bana verdiler programı kendin hazırla dediler bende bilmiyorum nasıl yazılıcagı hakkında hiçbir bilgim yok dediğim gibi "adi ,soyadı, telofonu, mail adresi, adresi,bu sekilde istiyorum bana hazırlabilirmisniz çok mu şey istiyorum

[Tarkan VURAL]

Excelde alt alta yazmanız yetmiyor mu ?
Program mı yaz dediler size ?
Anlayamadım ama

[levo]

siz göndermiştiniz ya hatırlamıyomusunuz adı soyadı görevi konumu resim ekle seklinde bende bu sekilde bi excelde makro hazırlamak ıstıyorum ama bılmedıgım ıcın yapamıyorum onun ıcın ıstedım sızden adı soyadı mail adresi telefon adresi seklinde istıyorum....

[Tarkan VURAL]

Bu olur mu ?

[levo]

bide adres olursa cok sevınırım lütfen cok tesekur ederım allah razı olsun

[levo]

resimi butonunu kaldırabılırmısın