Aynı sorun bende de var !
Liste kutusundan tıklama ile şahıs forma getiriliyor ve resim ekle komutu ile resim ekleniyor.Ama bu arada form üzerindeki şahıs değişiyor..Tekrar aynı şahısı çağırınca resim gözüküyor.

On Error GoTo err_ResimEkle
Dim kayit As Integer
Dim Kaynak, Hedef
kayit = Me.PERSID
Kaynak = GetOpenFile_CLT("C:\", "Resim Seçiniz...")
Hedef = CurrentProject.Path & "\resim\" & Me.adi_soyadi & "-" & Me.SGKNO & ".jpg"
If Kaynak = "" Then
Exit Sub
Else
FileCopy Kaynak, Hedef
Me.ResimCercevesi.Visible = False
Me.Requery
DoCmd.GoToRecord acForm, "frm_PERSONEL", acGoTo, kayit
Me.ResimCercevesi.Visible = True


End If

exit_ResimEkle:
Exit Sub

err_ResimEkle:
MsgBox Error$
Resume exit_ResimEkle