AccessTr.neT

Tabloyu bölmek şart ancak mevcut tablonuzda bu ne şekilde olur onu incelemek lazım.

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

Ozan Hocam,

Öncelikle ilginiz için teşekkür ederim. Söylediklerinizi aynen uyguladım, eklediğim hatayı veriyor.

Requery den sonraki tırnakları silin

Alpeki'nin cevabına ek olarak, benim verdiğim kod şu şekilde

   DoCmd.SetWarnings False

    DoCmd.OpenQuery "kisikopyala", acViewNormal, acEdit

    DoCmd.SetWarnings True

    Liste145.Requery

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

    Form.Requery

    DoCmd.GoToRecord , , acFirst

kodu eksik uygulamışsınız.

Sayın Sledgeab, Sn Alpeki;

Yardım ve önerileriniz için çok teşekkür ederim. Örnek sorgu muhteşem olmuş.
Sorun çözülmüştür.