With DoCmd

.SetWarnings False

.RunSQL "insert into cek(koçanno,çekno)" & " select [Forms]![KOCAN]!Kocanno,i "

.SetWarnings True

End With

burada hep aynı kayıt üzerinde olduğunuzdan INSERT INTO ile form üzerinde görünen verileri veritabanına defalarca eklersiniz. Ekleme işleminden hemen sonra

DoCmd.GoToRecord , , acNewRec

Yazarsanız formda yeni bir kayıt açarsınız. Burada yazdıklarınızdan sonra kaydet tuşuna basınca kaydetme işlemi yeni bir kayıt olarak eklenir.