اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


النجاشي
إذهب إلى أفضل إجابة Solved by ابو جودي,

الردود الموصى بها

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

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

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

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

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

  

رابط هذا التعليق
شارك

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

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

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

 

 

بالتوفيق

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

  • أفضل إجابة

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

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

 

  • Like 3
  • Thanks 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information