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

[فيصل الحربي]

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

لمنع المستخدم من اغلاق النموذج حتى لو استخدم مفتاحي 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- دعواتكم لنا بالتوفيق .