احتاج مساعدة فى كود؟

[Farhad]

انا اشكر الجميع فى هذا المنتدا المميز

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

و كود عندما اريد ان امسح اى سجل تضهر لى رسالة ( هل تريد مسح هذا السجل)

شكرا

[abu amir]

تأكــــــيد الخروج

If MsgBox("هل أنت متأكد من الخروج ", vbYesNo, "رسالة تأكيد ") = vbYes Then


DoCmd.Quit
End If
 'وإذا ما نفع
a = MsgBox("هل تريد الخروج من البرنامج ؟", vbYesNo, "رسالة تأكيد")

If a = vbYes Then DoCmd.Quit

تأكـــــيد الحذف

نفس الكوود السابق ولك بتغير العبارة docmd.quit الى

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

[Farhad]

شكر لك يا استاذى

الكود اول اشتغلت معى بس الكود (تاكيد حذف) ما اشتغلت ممكن شرح بسيط على كود( تاكيد حذف)

[abu amir]

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

If MsgBox("هل أنت متأكد من الحذف ", vbYesNo, "رسالة تأكيد ") = vbYes Then



    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

End If

[Farhad]

الف شكر يا استاذى لقد اشتغلت معى الكود