sn ozanakkaya
sonunda sizin anlatımınızla çözdüm.Tamam teşekkür ederim

Private Sub Komut0_Click()

DoCmd.SetWarnings False



DoCmd.RunSQL "INSERT INTO tbl_dimbilli ( kisi_idfk, adisoyadi, tcno, dimbilli ) SELECT tbl_kisiler.kisi_id, tbl_kisiler.adisoyadi, tbl_kisiler.tcno, tbl_kisiler.dimbilli FROM tbl_kisiler WHERE (((tbl_kisiler.dimbilli)=1));"

DoCmd.RunSQL "UPDATE tbl_kisiler INNER JOIN tbl_dimbilli ON tbl_kisiler.kisi_id = tbl_dimbilli.kisi_idfk SET tbl_dimbilli.kisi_idfk = [tbl_kisiler].[kisi_id], tbl_dimbilli.adisoyadi = [tbl_kisiler].[adisoyadi], tbl_dimbilli.dimbilli = [tbl_kisiler].[dimbilli], tbl_dimbilli.tcno = [tbl_kisiler].[tcno];"



DoCmd.RunSQL "DELETE tbl_dimbilli.dimbilli FROM tbl_dimbilli WHERE (((tbl_dimbilli.dimbilli)<>1));"



DoCmd.SetWarnings True

End Sub