تعطيل زر الاغلاق في النافذة الرئيسية للأكسس

[sweety]

السلام عليكم

 

هل بالإمكان تعطيل زر الإغلاق للنافذة الرئيسية للأكسس سواء كان عن طريق الكود البرمجي أو الإعدادات؟

 

[ابوخليل]

في الاعدادت 

خصائص النموذج / لسان التبويب تنسيق

اجعل القيمة :  زر الاغلاق = لا

[sweety]

السلام عليكم

أستاذ أبو خليل 

ليس ما قصدته تعطيل زر الإغلاق في النموذج، بل تعطيل زر الإغلاق في تطبيق الأكسس (الشاشة الرئيسية) للأكسس.

تحياتي 

[ابوخليل]

يمكن اخفاء زر الاغلاق ولكن سيختفي ضمنا زري التكبير والتصغير

ما رأيك ؟

[كرار صبري _ أبو جنى]

13 ساعات مضت, ابوخليل said:

يمكن اخفاء زر الاغلاق ولكن سيختفي ضمنا زري التكبير والتصغير

ما رأيك ؟

السلام عليكم ... 

كيفك استاذ ابو خليل ... ان شاء الله بخير ...

كيف يتم ذلك ؟

[ابوخليل]

هلا  استاذ كرار  .. وينك اخوي ؟ .. فاقدينك

ان شاء الله بخير وعافية

تفضل هذا الكود من محفوظاتي :

Option Compare Database
Private Declare Function SetWindowLong Lib "user32" Alias _
"SetWindowLongA" (ByVal hWnd As Long, ByVal nindex As Long, _
ByVal dwnewlong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias _
"GetWindowLongA" (ByVal hWnd As Long, ByVal nindex As Long) As Long
Const WS_CLOSEBOX = &H80000
Const GWL_STYLE = (-16)
Sub RemoveCloseBox()
   Dim i As Long
   Dim hWnd As Long
   hWnd = Application.hWndAccessApp
   i = GetWindowLong(hWnd, GWL_STYLE)
   i = i And Not (WS_CLOSEBOX)
   i = SetWindowLong(hWnd, GWL_STYLE, i)
End Sub
Private Sub Form_Open(Cancel As Integer)
RemoveCloseBox
End Sub
Private Sub Form_Close()
DoCmd.Quit
End Sub

 

اخفاء ايقونة اطار.rar

[sweety]

السلام عليكم

استاذ ابو خليل

هي بالفعل حركة ذكية ولكن تخفي أيضاً زري Min Max Buttons ، هل بالإمكان التعديل على الكود لفادي ذلك؟

 

مع جزيل الشكر

[كرار صبري _ أبو جنى]

في ٢٠‏/٨‏/٢٠١٦ at 15:51, ابوخليل said:

هلا  استاذ كرار  .. وينك اخوي ؟ .. فاقدينك

ان شاء الله بخير وعافية

هلا بيك استاذ ابو خليل ... مشاغل الدنيا و العمل ... و الحمد لله على كل حال ...

[ابوخليل]

في ٢٢‏/٨‏/٢٠١٦ at 05:40, sweety said:

السلام عليكم

استاذ ابو خليل

هي بالفعل حركة ذكية ولكن تخفي أيضاً زري Min Max Buttons ، هل بالإمكان التعديل على الكود لفادي ذلك؟

مع جزيل الشكر

اخي الحبيب :

قد سألتك السؤال نفسه قبل وضع الاجابة

الذي اعلمه انه يمكن اخفاء مربعي التكبير والتصغير  مع بقاء مربع الاغلاق ظاهرا

ولكن العكس يختلف : عند اخفاء مربع الاغلاق يختفي ضمنا مربعي التكبير والتصغير

هذا ما اعرفه ويمكنني تطبيقه

[sweety]

السلام عليكم

شكراً لك استاذ ابو خليل

سأحاول الاستفادة من مثالك المطروح.

تحيااااتي لك على مبادرتك

[فقير ومشتري الدنيه بضحكتي]

يعني من خلال خصائص الفورم (النموذج) تجعل الخاصية نمط الحدود =مربع حوار وبعد ذلك 

مربع عنصر التحكم = لا