Örnekte diğer verileri aldıran kod mevcut,
DoCmd.RunSQL "INSERT INTO DEFTER_KAYIT ( yil, [KAYIT NO], [KONUNUN ÖZETİ], KAYIT_TARIHI, SAYISI, geldigiyer ) SELECT TOP 1 tbl_Gecici.[KAYIT YILI], tbl_Gecici.[KAYIT SAYISI], tbl_Gecici.[ADI SOYADI], tbl_Gecici.[KAYIT TARİHİ], tbl_Gecici.[TC NO], tbl_Gecici.[İŞYERİ ADI] FROM tbl_Gecici WHERE tbl_Gecici.[KAYIT YILI]=" & GYili & " AND [KAYIT SAYISI]=" & GKayitSayi & ""
Alınmasını istediğiniz diğer alanları kendiniz ekleyiniz.