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]));