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
"Oyun bitince şah ve piyon aynı kutuya atılır "
Son Düzenleme: 12/09/2015, 17:34, Düzenleyen: yorum70.
(Sebep: kod)