السلام عليكم
 
	ما هو الكود الخاص بحذف بيانات النموذج الفرعي والرئيسي ؟ 
 
	وجدت هذا للنموذج الرئيسي :
 
Dim Warning As String
Warning = MsgBox("أنت الآن على وشك حذف الفاتورة الحالية فهل أنت واثق من رغبتك في الحذف", vbYesNo + vbQuestion, "تحذير")
If Warning = vbYes Then
DoCmd.SetWarnings (False)
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
   
DoCmd.SetWarnings (True)
Else
DoCmd.CancelEvent
End If
	هل الممكن التعديل عليه لصبح حذف بيانات الفرعي والرئيسي في زر واحد؟