(05/04/2011, 03:28)ugurgkm yazdı: Acceste yeniyim Personel fotorafları yüklemeye calısıyorum Her personelde aynı Fotoraf cıkıyor Forumda basit bir anlatım yok hep kod verilmis örnek verilmis hic bir sey anlayamadım. Ercan hocanın kodunu nasıl kullanabilirim mesela anlatırmısınz birde basit kod kullanmadan bu sorunu nasıl asarımç Formada her kiside ayrı resim gözkmesi.
Teşekkürler

Sn. ugurgkm Aradığınız Örnek Burada
Örneği Bilgisayarınıza İndirin shift tuşuna Basılı Tutarak Açınız.

Ayrıca Ofis Versiyonunuzu Profilinizde Belirtiniz.
Yapamazsanız Örneğinizi Ekleyin Size Yardımcı Olalım.

elinize sağlık çok güzel ve yararlı bir çalışma olmuş....

Ercan hocam, elinize sağlık çok güzel bir örnek ve çok işime yaradı ancak küçük bir problem var bir türlü çözemedim.

her hangi bir nedenle kayıtlardan bazıları silindiğinde kayıt numaraları sıralı gitmediği için resim eklediğimizde formda eklenen kayda değil sıra numarasında olması gereken sıradaki kayda gidiyor. Ayrıca kayıt eksik olduğunda en son kayda resim eklediğimizde eksik kayıt sayısı kadar ileriki bir formu açmak istediği için "belirtilen kayda gidilemiyor" yada "dosya açılamıyor" şeklinde hata veriyor. Bu problemi düzeltmek için kodda bir değişiklik yapmak gerekiyor sanırım ama ben beceremedim. Yardımcı olabilirseniz çok sevinirim.

Aynı sorun bende de var !
Liste kutusundan tıklama ile şahıs forma getiriliyor ve resim ekle komutu ile resim ekleniyor.Ama bu arada form üzerindeki şahıs değişiyor..Tekrar aynı şahısı çağırınca resim gözüküyor.

On Error GoTo err_ResimEkle
Dim kayit As Integer
Dim Kaynak, Hedef
kayit = Me.PERSID
Kaynak = GetOpenFile_CLT("C:\", "Resim Seçiniz...")
Hedef = CurrentProject.Path & "\resim\" & Me.adi_soyadi & "-" & Me.SGKNO & ".jpg"
If Kaynak = "" Then
Exit Sub
Else
FileCopy Kaynak, Hedef
Me.ResimCercevesi.Visible = False
Me.Requery
DoCmd.GoToRecord acForm, "frm_PERSONEL", acGoTo, kayit
Me.ResimCercevesi.Visible = True


End If

exit_ResimEkle:
Exit Sub

err_ResimEkle:
MsgBox Error$
Resume exit_ResimEkle

Sayın yorum70,

takdir edersiniz ki;
bu kategori,Örnek Uygulamaların yayınlandığı kısımdır.dolayısı ile,Site Kuralları sayfasını tekrar incelemenizi temenni etmekle birlikte,bu örnek konuyu bağlantı göstermek sureti ile sorunuzu ya da talebinizi içerecek yeni bir konu açarak sorununuza çözüm arayabilirsiniz.

böylece,hem bu konunun mesaj yoğunluğunu artırmamış olursunuz hem de benzer soruna maruz kalabilecek olan diğer üyelerin site içi aramalarda alternatif bir konuya da bakınmasını ve incelemesini de sağlamış olursunuz.ayrıca,sorununuza daha hızlı bir katılım da elde etmiş olursunuz.

konunuza,örnek uygulamanızı;içeriğinde farazi gerçek dışı bilgiler ve 5-10 kayıt barındıracak şekilde eklemeniz de yerinde olacaktır.

uygulamanızda herhangi bir soruna veya hataya maruz kalacak olursanız,bu hata veya sorunların gerek isimlerini ayrıntılı belirterek ya da sorunları net ifade ederek ve gerekse de ekran görüntüleri dahi eklemek sureti ile,çözümler arayabilirsiniz.

katılımcılar tarafından,açacağınız konuda uygun görülecek olan gerekli bilgi ya da örnek paylaşımlarının yapılması da mümkün olacaktır.

bilginize...iyi çalışmalar,saygılar.

Uygulamama entegre ettim, tek sıkıntı resim ekle denince liste kutusunda tıklanan ismin formda değişmesi..Bu sıkıntıyı liste güncelleme kodunu iptal ederek, ya da başka bir yere yazarak aşabileceğimi düşündüğümden ve şimdilik etkisiz bir sorun olarak gördüğümden, yeni konu açmayacağım. Aksi olursa, bilgi ve yardımlarınızdan faydalanmayı ümit ediyorum.

Saygılarımla.