liste kutusunun çift tıklandığında olayına aşağıdaki kodu yaz.

    DoCmd.SetWarnings False

    DoCmd.OpenQuery "kisikopyala", acViewNormal, acEdit

    DoCmd.SetWarnings True

    Liste145.Requery

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

    Form.Requery

    DoCmd.GoToRecord , , acFirst

aşağıdaki Sql kodunu "kisikopyala" adında sorgu olarak kaydet

INSERT INTO vaka_bilgileri ( protokol_no, tarih, cagri_alis_saati, adi, soyadi, tckimlik_no, ucret, kkarti_onay_kodu, tah_makbuz_no, havale_tarihi )

SELECT DMax("[protokol_no]","[vaka_bilgileri]")+1 AS pn, Date() AS trh, vaka_bilgileri.cagri_alis_saati, vaka_bilgileri.adi, vaka_bilgileri.soyadi, vaka_bilgileri.tckimlik_no, vaka_bilgileri.ucret, vaka_bilgileri.kkarti_onay_kodu, vaka_bilgileri.tah_makbuz_no, vaka_bilgileri.havale_tarihi

FROM vaka_bilgileri

WHERE (((vaka_bilgileri.protokol_no)=[Forms]![vaka_bilgileri_form]![Liste145]));