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

    

    

If IsNull(Me.ResimCercevesi.Picture = Dlookup ("[Resim]", "tbl_PERSONEL", "[PERSID]=" & Me.personel_List.Column(0))) Then

 Me.ResimCercevesi.Picture = Dlookup ("[Resim]", "tbl_PERSONEL", "[PERSID]=" & Me.personel_List.Column(0))



 Else

    

End If

Calisiyormu

End Sub