طريقة منع المستخدم من إغلاق نموذج

السلام عليكم ورحمة الله وبركاته

لمنع المستخدم من اغلاق النموذج حتى لو استخدم مفتاحي ALT+F4 إلا بالضغط على زر السماح بالخروج

ملاحظة : اذا لم يتم وضع زر للسماح بالخروج فلن يتم إغلاق النموذج .

1- افتح النموذج المراد عدم إغلاقه في وضع التصميم .

2- غير خاصية زر الاغلاق للنموذج إلى ( لا ) .

3- من قائمة عرض اختر تعليمات برمجيه.

4- انسخ الكود التالي في قسم الاعلانات ( Declarations ) .

	Option Explicit
	Public blnClose As Boolean

5- ضع في حدث عند التحميل للنموذج الكود التالي

	blnClose = False

6- ضع زر امر على النموذج واعطه الاسم التالي : السماح بالخروج

7- في حدث عند النقر لزر السماح بالخروج ضع الكود التالي :

	blnClose = True
	DoCmd.Close acForm, "FormName", acSaveNo

8- ضع الكود التالي في حدث عند إلغاء التحميل :

 Dim strMessage As String
   Dim intStyle As Integer
   Dim strTitle As String

   strMessage = "انت تحاول إغلاق النموذج بطريقة غير صحيحة" & _
      vbCrLf & "فضلا ... أغلق النموذج بالطريقة الصحيحة وذلك بالضغط على زر السماح بالخروج "
   intStyle = vbOKOnly + vbCritical
   strTitle = "إغلاق غير صحيح"

   If blnClose = False Then
      MsgBox prompt:=strMessage, buttons:=intStyle, Title:=strTitle
      Cancel = True
   End If

9- شغل النموذج وحاول اغلاقه بالضغط على مفتاحي ALT+F4 ... سوف تخرج الرسالة السابقة .

10- إضغط على زر السماح بالخروج ثم حاول إغلاق النموذج .

11- دعواتكم لنا بالتوفيق .