السلام عليكم ... من رخصة الاستاذ سعيد ...
Private Sub Command8_Click()
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE table3.id, table3.Classe, table3.Tech, table3.Fees from table3 WHERE(((table3.ID) = [Forms]![table1]![Table2 Subform1]![ID]) And ((table3.Classe) = [Forms]![table1]![Table2 Subform1]![Classe]) And ((table3.Tech) = [Forms]![table1]![Table2 Subform1]![Tech]) And ((table3.Fees) = [Forms]![table1]![Table2 Subform1]![Fees]))"
DoCmd.RunSQL "DELETE table2.id, table2.Classe, table2.Tech, table2.Fees from table2 WHERE(((table2.ID) = [Forms]![table1]![Table2 Subform1]![ID]) And ((table2.Classe) = [Forms]![table1]![Table2 Subform1]![Classe]) And ((table2.Tech) = [Forms]![table1]![Table2 Subform1]![Tech]) And ((table2.Fees) = [Forms]![table1]![Table2 Subform1]![Fees]))"
DoCmd.SetWarnings True
Me.Requery
End Sub