رسالة قبل الحذف

[حمادة عثمان]

ارجو كتابة كود لظهور رسالة قبل حذف اى بيان سجل من النموذج وهى رسالة تحذير انه سوف يتم الحذف

[محمد أبوعبدالله]

السلام عليكم

تفضل اخي الكريم

    If MsgBox("هل تريد حذف العنصر المحدد") = vbYes Then
	   DoCmd.SetWarnings False
       DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
       DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
       DoCmd.SetWarnings True
    Else
     Me.Undo
    End If

تحياتي

[Shivan Rekany]

مشاركة مع السيد @محمد ابو عبدالله 

من الافضل ان لا تستخدم ME.Undo لان اذا تريد ان لا يحذف السجل وكان من قبل كنت عمل عليه تعديل راح يرجعه الى مثل القبل
هذا والله يعلم
تحياتي

تم تعديل أبريل 20, 2017 بواسطه Shivan Rekany