السلام عليكم
ما هو الكود الخاص بحذف بيانات النموذج الفرعي والرئيسي ؟
وجدت هذا للنموذج الرئيسي :
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
هل الممكن التعديل عليه لصبح حذف بيانات الفرعي والرئيسي في زر واحد؟