حذف بيانات النموذج الفرعي والرئيسي

[ابوآمنة]

السلام عليكم

ما هو الكود الخاص بحذف بيانات النموذج الفرعي والرئيسي ؟ 

وجدت هذا للنموذج الرئيسي :

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

هل الممكن التعديل عليه لصبح حذف بيانات الفرعي والرئيسي في زر واحد؟

تم تعديل يناير 27, 2018 بواسطه saleh204