Sayın Kanlıtoprak;
Aşağıdaki kodu şahıs tablonuzdaki sil düğmesinin kodu ile değiştirin.
Kolay Gelsin.

Private Sub SİL_Click()

 



If MsgBox("SEÇTİĞİNİZ ŞAHSA AİT TÜM KAYITLAR SİLİNECEKTİR EMİN MİSİNİZ ?", vbYesNo) = vbYes Then

DoCmd.SetWarnings False

 CurrentDb.Execute " delete FROM tbl_infaz where [ŞAHIS KODU]=" & Me.SIRA_NO.Value

 CurrentDb.Execute " delete FROM tbl_MUZEKKERE where [SIRA NO]=" & Me.SIRA_NO.Value

 CurrentDb.Execute " delete FROM [TBL_SAHıs] where [SIRA NO]=" & Me.SIRA_NO.Value

 DoCmd.SetWarnings True

 End If

     

End Sub