DoCmd.SetWarnings False
DoCmd.RunSQL ("DELETE TEMİNAT.KISI_ID FROM TEMİNAT WHERE (((TEMİNAT.KISI_ID)=[Formlar]![TEMİNAT]![ADI]));")
DoCmd.SetWarnings True
bu kod ile seçilen kişinin "TEMİNAT" tablosundaki tüm verileri silinir.
Kişinin KİŞİLER tablosundan da silinmesini istiyorsan aşağıdaki kodu kullan
DoCmd.SetWarnings False
DoCmd.RunSQL ("DELETE KISILER.KISI_ID FROM KISILER WHERE (((KISILER.KISI_ID)=[Formlar]![TEMİNAT]![ADI]));")
DoCmd.RunSQL ("DELETE TEMİNAT.KISI_ID FROM TEMİNAT WHERE (((TEMİNAT.KISI_ID)=[Formlar]![TEMİNAT]![ADI]));")
DoCmd.SetWarnings True