İlginiz için teşekkür ederim,Örneğiniz inceleyeceğim.Ayrıca resimlerin depolandığı yer hakkında bilgilendirirseniz memnun olurum.
Not
![Lol Lol](https://accesstr.net/images/smilies/lol.gif)
Saygılarımla.
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.
Me.ResimCercevesi.Picture = DLookup("[Resim]", "tbl_PERSONELARSİV", "[PERSID]=" & Me.MKSiraNo)
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
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