عملت مثال على نفس الطلب اللي بدك إياه
بس ما عرفت كيف أضع المثال بالمرفقات
بس الفكرة بسيطة
حاول تفهم الكود التالي انشاء الل يساعدك
Dim DelDetails As String
Dim DelDetails2 as String
DelDetails = "DELETE m_student.StudentID, m_student.StudentName, m_student.schoolnumd FROM m_student WHERE (((m_student.schoolnumd)=" & Me.txtschoolnumd & "));"
DelDetails2 "DELETE st_info.InfoID, st_info.schoolnumd FROM st_info WHERE (((st_info.schoolnumd)=" & Me.txtschoolnumd & "));"
DoCmd.SetWarnings (0)
DoCmd.RunSQL (DelDetails)
DoCmd.RunSQL (DelDetails2)
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.SetWarnings (1)
ضع هذا الكود في زر أمر حذف داخل فورم المدرسة