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.