غیر فعال کردن دکمه بستن پنجره برنامه اکسس

قبلاً در مورد نحوه نمایش پیغام مناسب هنگام بسته شدن اکسس مطلبی را منتشر کردیم و اکنون می خواهیم دکمه بسته شدن برنامه اکسس را غیر فعال کنیم.

مراحل غیر فعال کردن دکمه بسته شدن برنامه اکسس

1- ابتدا وارد محیط کد نویسی شوید. با زدن کلیدهای Alt + F11 امکان پذیر است.

2- یک ماژول خالی ایجاد کرده و کدهای زیر را در آن قرار دهید.

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal wRevert As Long) As Long
Private Declare Function EnableMenuItem Lib "user32" (ByVal hMenu As Long, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As Long

Public Sub AccessCloseButtonEnabled(pfEnabled As Boolean)

  On Error Resume Next

  Const clngMF_ByCommand As Long = &H0&
  Const clngMF_Grayed As Long = &H1&
  Const clngSC_Close As Long = &HF060&

  Dim lngWindow As Long
  Dim lngMenu As Long
  Dim lngFlags As Long

  lngWindow = Application.hWndAccessApp
  lngMenu = GetSystemMenu(lngWindow, 0)
  If pfEnabled Then
    lngFlags = clngMF_ByCommand And Not clngMF_Grayed
  Else
    lngFlags = clngMF_ByCommand Or clngMF_Grayed
  End If
  Call EnableMenuItem(lngMenu, clngSC_Close, lngFlags)
End Sub

برای غیر فعال کردن ، می توانید از کد زیر استفاده کنید.

Call AccessCloseButtonEnabled(False)

فعال کردن دکمه بستن برنامه اکسس

برای اینکه دکمه بسته شدن مجدداً فعال شود می توانید از کد زیر استفاده کنید

Call AccessCloseButtonEnabled(True)

 مزیت غیر فعال کردن این دکمه چیست

زمان هایی وجود دارد که شما نمی خواهید کاربر بتواند کل برنامه اکسس را ببندد. مثلاً شما در برنامه صدور فاکتور ، فاکتور فروشی را باز کرده‌اید و در حال ویرایش می باشید. خوب بدیهی است که نمی خواهید در این زمان برنامه اکسس توسط کاربر بسته شود پس بهتر است که در رویداد باز شدن فرم از کدهای بالا بهره بگیرید تا کاربر امکان خروج از کل برنامه اکسس را در این حالت نداشته باشد.

همینطور در زمان بسته شدن فرم صدور فاکتور ، می توانید دکمه بسته شدن اکسس را به حالت اول باز گردانید.

ویدیوی آموزشی