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:
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
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