DoCmd.RunCommand acCmdSaveRecord
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO ek ( idfk_kisino, AdiSoyadi ) SELECT tbl_ektablosundaolmayan.id_kisino, tbl_ektablosundaolmayan.AdiSoyadi FROM (SELECT kisi.id_kisino, kisi.AdiSoyadi, kisi.meslegi FROM ek RIGHT JOIN kisi ON ek.[idfk_kisino] = kisi.[id_kisino] WHERE (((ek.idfk_kisino) Is Null))) AS tbl_ektablosundaolmayan;"
DoCmd.SetWarnings True
Ayrıca, aynı veriyi tekrar farklı tabloya kaydetmekteki amacınızı belirtir misiniz?