Sayın Yorum70
İlginiz için teşekkür ederim,Örneğiniz inceleyeceğim.Ayrıca resimlerin depolandığı yer hakkında bilgilendirirseniz memnun olurum.
Not
ikkat ederseniz adım Fescioğlu değil Fascioğlu.
Saygılarımla.
Program bir klasörde olsun, içinde ise resim adında bir klasör eklerseniz, programa eklediğiniz resimler bu klasörde tutulur.
Benim konuda; Frm_Personel de ATAMASI YAPILAN butonuna bastığınızda aktif personeli Frm_tayinolanpersonel formuna resmiyle birlikte atacaktır. Bunun için Frm_Personelde ki resimle ilgili çerçeve, resim metin kutusunın aynı ve frm_personeldeki geçerli olduğunda kodları frm_tayinolanpersonel formunda da olmalı. Sizde ki Frm_PERSONELARŞİV gibi.Mantık aynı.
sayın fascioglu,
her ne kadar sayın yorum70 bey tarafından paylaşımda bulunmuş olsalar da (bu arada,kendilerine katkılarından ve katılımcı olmalarından dolayı teşekkürler),
Alıntı:Sayın Atoz112,
Hocam cevabınızda yazdığınız gibi Resimcercevesi adlı denetimin Denetim kaynağını ben bulamadım,ve dediğinizide gerçekleştriremedim,
Saygılarımla.
ifadenize yönelik olarak,sanırım;
frm_PERSONELARSİV adlı formun Tasarım halinde iken olacak şekilde ilgili resim çerçevesi denetiminin ÖZELLİKLER sekmelerini gösteren ekran görüntüsünü eklemeniz faydalı olacaktır,gerekli bilgilendirmelerin yapılabilmesi adına.
çünkü;eklediğiniz örnek çalışmada dahi bu ÖZELLİKLER-VERİ sekmesine ulaşım söz konusu olabilmektedir.nasıl bir durumun mevcut olduğunu anlayabilmek adına bu görseli dahil etmeniz yerinde olacaktır.
bilginize...iyi çalışmalar,saygılar.
Sayın Atoz112 hocam,
İstediğiniz ekran görüntüsü ektedir.
Saygılarımla.
![[Resim: do.php?img=5108]](https://accesstr.net/resim/do.php?img=5108)
sayın fascioglu,
resim çerçevelerinde resimleri göstermek için,ilk etapta bir çözüm olması adına,aşağıdaki işlemleri uygulayınız.
frm_PERSONELARSİV adlı formunuzdaki Arsiv_Personel_List adlı listenin Güncelleştirme SOnrasında olay yordamındaki kod satırlarının bitimine
Kod:
Me.ResimCercevesi.Picture = DLookup("[Resim]", "tbl_PERSONELARSİV", "[PERSID]=" & Me.MKSiraNo)
kod satırını ilave ediniz.ilgili olay yordamı aşağıdaki gibi olmalı.
Kod:
Private Sub Arsiv_Personel_List_AfterUpdate()
' Denetime uyan kaydı bul.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[PERSID] = " & Str(Nz(Me![Arsiv_Personel_List], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Me.ResimCercevesi.Picture = DLookup("[Resim]", "tbl_PERSONELARSİV", "[PERSID]=" & Me.MKSiraNo)
End Sub
aynı işlemi,frm_PERSONEL adlı formunuzdaki personel_List adlı listenin Güncelleştirme Sonrasında olay yordamı için de uygulayınız.bu olay yordamı da aşağıdaki gibi olmalı.
Kod:
Private Sub personel_List_AfterUpdate()
' Denetime uyan kaydı bul.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[PERSID] = " & Str(Nz(Me![personel_List], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Me.ResimCercevesi.Picture = DLookup("[Resim]", "tbl_PERSONEL", "[PERSID]=" & Me.MKSiraNo)
End Sub
bilginize...iyi çalışmalar,saygılar.
Sayın Hocam,
Cevabınız için çok teşekkür ederim,Resim gönderme alma işleminde sıkıntı yok,
Ancak;
Arşive gönderirkenve Arşivden geri getirirken Me.Requery,Me.Refresh kod hatası veriyor,ayrıca Arşive gönderirken PERSONEL Formunda aynen kalıyor Formu kapatıp tekrar açınca gönderme eylemi gerçekleşiyor.Yine Arşive gönderirken Personel Formunda kişiyi Çalışmıyor olarak işaretliyoruz ancak Arşiv formuna Çalışıyor olarak gelmesi sorunlar hakkında bilgi ve düşüncelereinize ihtiyacım var.
Saygılarımla.
İyi çalışmalar.