Private Sub Form_Current()If Len(Dir("D:\PAYLAŞIM\RESİMLER\" & Me![Adı Soyadı] & ".jpg", vbNormal)) > 0 ThenResim.Picture = "D:\PAYLAŞIM\RESİMLER\" & Me![Adı Soyadı] & ".jpg"ElseResim.Picture = "D:\PAYLAŞIM\RESİMLER\" & "YOK.jpg"End IfEnd Sub