عدم تمكين زر اغلاق الخاص بالاكسس

[النجاشي]

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

اساتذتي الكرام خواتم مباركه تقبل الله صالح الاعمال

الموضوع عدم تمكين زر الاغلاق من غلاق الاكسس

احيانا يتخيل المستخدم انه زر اغلاق النموذج

بهذا الرابط بموضوع الاستاذ جعفر مثال الاستاذ موسي

  

[ابوبسمله]

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

كل عام وانت طيب اخى وضاح

جرب الحلول المرفقه بالمواضيع التاليه لاخواننا واساتذتنا جزاهم الله عنا كل خير

 

 

بالتوفيق

[ابو جودي]

ضع الوظيفة الاتية فى وحدة نمطية
 

Option Compare Database
Option Explicit

#If VBA7 Or Win64 Then

Public Declare PtrSafe Function apiGetSystemMenu Lib "user32" Alias "GetSystemMenu" (ByVal hwnd As Long, ByVal flag As Long) As Long
Public Declare PtrSafe Function apiEnableMenuItem Lib "user32" Alias "EnableMenuItem" (ByVal hMenu As Long, ByVal wIDEnableMenuItem As Long, ByVal wEnable As Long) As Long

#Else
Public Declare Function apiEnableMenuItem Lib "user32" Alias "EnableMenuItem" (ByVal hMenu As Long, ByVal wIDEnableMenuItem As Long, ByVal wEnable As Long) As Long
Public Declare Function apiGetSystemMenu Lib "user32" Alias "GetSystemMenu" (ByVal hWnd As Long, ByVal flag As Long) As Long
#End If

Const MF_BYCOMMAND = &H0&
Const MF_DISABLED = &H2&
Const MF_ENABLED = &H0&
Const MF_GRAYED = &H1&
Const SC_CLOSE = &HF060&
Const SWP_NOSIZE = &H1
Const SWP_NOZORDER = &H4
Const SWP_NOMOVE = &H2
Const SWP_FRAMECHANGED = &H20
Const WS_MINIMIZEBOX = &H20000
Const WS_MAXIMIZEBOX = &H10000
Const WS_SYSMENU = &H80000

Public Function EnableDisableControlBoxX(bEnable As Boolean, Optional ByVal lhWndTarget As Long = 0) As Long
On Error GoTo Err_EnableDisableControlBoxX



Dim lhWndMenu As Long
Dim lReturnVal As Long
Dim lAction As Long

lhWndMenu = apiGetSystemMenu(IIf(lhWndTarget = 0, Application.hWndAccessApp, lhWndTarget), False)

If lhWndMenu <> 0 Then
If bEnable Then
lAction = MF_BYCOMMAND Or MF_ENABLED
Else
lAction = MF_BYCOMMAND Or MF_DISABLED Or MF_GRAYED
End If
lReturnVal = apiEnableMenuItem(lhWndMenu, SC_CLOSE, lAction)
End If

EnableDisableControlBoxX = lReturnVal

Exit_EnableDisableControlBoxX:
Exit Function

Err_EnableDisableControlBoxX:
    MsgBox "Error:" & Err.Number & vbCrLf & "Description: " & Err.Description
Resume Exit_EnableDisableControlBoxX

End Function

 

 ويمكنك عدم تفعيل زر الاغلاق من خلال 

  EnableDisableControlBoxX False

 

ويمكنك الرجوع للوضع الاصلى بإعادة فاعلية زر الاغلاق من 

  EnableDisableControlBoxX True

 

[النجاشي]

بارك الله فيكم احمد الفلاحجي وابو جودي

هو المطلوب شاكرين لكم احبتي

[ابوبسمله]

وفيك بارك الله اخى وضاح

وجزاه الله خيرا اخى واستاذى العزيز ابوجودى على مشاركته معنا 🌹

بالتوفيق