Merhaba, kaydet butonunun kodlarını aşağıdakilerle değiştir.

DoCmd.RunSQL "INSERT INTO T_KAYITAMBULANSTURU ( ALTAMBULANSTURUID, TESHIS, AMBULANSTURU, AMBULANSTURUSAYI, TARIH, SEVKEDEN ) SELECT T_ALTAMBULANSTURU.ALTAMBULANSTURUID, T_ALTAMBULANSTURU.TESHIS, T_ALTAMBULANSTURU.AMBULANSTURU, T_ALTAMBULANSTURU.AMBULANSTURUSAYI, [Forms]![F_SEVK]![MTNTARIH] AS İfade1, [Forms]![F_SEVK]![AKSEVKEDEN] AS İfade2 FROM T_ALTAMBULANSTURU;"

DoCmd.RunSQL "insert into T_KAYITSEVKEDILEN select * from T_ALTSEVKEDILEN"



sil

Me.LSTSEVKALT.Requery

Me.LSTAMBULANSALT.Requery

DoCmd.Close