sOrGu3 = "Select imza_id, TCKIMLIKNO, ADISOYADI, BASLAMATARIHI, geldimi, BITISTARIHI from  tbl_imzatumu " & _
            " WHERE TCKIMLIKNO='" & Me.TCKIMLIKNO & "'"
 
  Set rstKaynak = CurrentDb.OpenRecordset(sOrGu, dbOpenDynaset)
  Set rstHedef = CurrentDb.OpenRecordset(sOrGu2, _
  dbOpenDynaset)
  Set rstHedef = CurrentDb.OpenRecordset(sOrGu3, _
  dbOpenDynaset)


Kaydet butunona kodu ekledim;

rstTarget(fldSource.Name) = fldSource.Value

hatası verdi-bulunamadı der kendileri.