Önce bir değişken açıp bulunduğumuz kayıt sayısını sno kutusundan alacağız. Sonra resim eklenecek ve requery yapılacak. Bu sırada resim çerçevesi görünmez olmalı ki ilk kayıttaki resim görülmesin. Daha sonra da değişkene atanan değere gidilecek ve resim çerçevesi tekrar görünür olacak. Bunun için resim ekleme düğmesinin kodlarını aşağıdaki şekilde değiştirin:
Kod:
Private Sub ResimEkle_Click()
On Error GoTo err_ResimEkle
Dim kayit As Integer
Dim Kaynak, Hedef
kayit = Me.sno
Kaynak = GetOpenFile_CLT("C:\", "Resim Seçiniz...")
Hedef = CurrentProject.Path & "\resim\" & Me.adi_soyadi & "-" & Me.tcno & ".jpg"
If Kaynak = "" Then
Exit Sub
Else
FileCopy Kaynak, Hedef
Me.ResimCercevesi.Visible = False
Me.Requery
DoCmd.GoToRecord acForm, "bilgiler", acGoTo, kayit
Me.ResimCercevesi.Visible = True
End If
exit_ResimEkle:
Exit Sub
err_ResimEkle:
MsgBox Error$
Resume exit_ResimEkle
End Sub