musterigiris formundan müşteri sildiğinde silinen kişinin kayıtlı poliçelerinin silinmesi için musterigiris formundaki silme butonunun kodlarını aşağıdaki ile değiştir.

Private Sub Komut48_Click()

On Error GoTo Err_Komut48_Click

DoCmd.SetWarnings False

DoCmd.RunSQL "DELETE musterino FROM policekayıt WHERE (((musterino)=[Formlar]![müsterigirisi]![musterino]));"

DoCmd.SetWarnings True

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Komut48_Click:

    Exit Sub

Err_Komut48_Click:

    MsgBox Err.Description

    Resume Exit_Komut48_Click

    

End Sub

musteriaracgirisi formundan araç sildiğinde araç ile ilgili poliçelerin silinmesi için musteriaracgirisi formundaki silme butonunun tıklandığında olayındaki kodları aşağıdaki ile değiştir.

Private Sub Komut77_Click()

On Error GoTo Err_Komut77_Click



DoCmd.SetWarnings False

DoCmd.RunSQL "DELETE aracid FROM policekayıt WHERE (((aracid)=[Forms]![musteriaracgirisi]![aracid]));"

DoCmd.SetWarnings True

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70



Exit_Komut77_Click:

    Exit Sub



Err_Komut77_Click:

    MsgBox Err.Description

    Resume Exit_Komut77_Click

    

End Sub