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

[abouelhassan]

السلام عليكم اخوانى الافاضل الكرام

احتاج كود اخفاء زر الاغلاق والتصغير الخاص بالاكسيس

حيث اننى استخدمت الكود التالى لتعطيل الاغلاق من هذا الزر بس سبب لى مشاكل

'Private Sub Form_Unload(Cancel As Integer)
'If Not pboolCloseAccess Then Cancel = True
'End Sub

هل بالمكان كود لاخفاء هذا الشريط بالخلفية

مع الشكر والاجترام

[أبو عبدالله الحلوانى]

السلام عليكم 

لست بحاجة الي اكود يمكنك اخفاء هذا الشريط من خصائص الفورم من خاصية close button غيرها الي لا وكذلك زري التكبير والتصغير اظهرهم او اخفهم كيف شئت 

تمنياتي بالتوفيق

[abouelhassan]

  في 27‏/10‏/2021 at 19:22, أبو عبدالله الحلوانى said:

السلام عليكم 

لست بحاجة الي اكود يمكنك اخفاء هذا الشريط من خصائص الفورم من خاصية close button غيرها الي لا وكذلك زري التكبير والتصغير اظهرهم او اخفهم كيف شئت 

تمنياتي بالتوفيق

Expand  

أستاذى الكريم اشكرك بس ده الشريط الخاص بالاكسيس مش بفورم 

احتاج اخفاءه اخى 

بارك الله فيك اخي

 

[أبو عبدالله الحلوانى]

  في 27‏/10‏/2021 at 19:43, abouelhassan said:

بس ده الشريط الخاص بالاكسيس مش بفورم 

Expand  

نعم من خصائص الفوم في وضع التصميم للفورم من خصائص عدل علي خاصية close button الي لا 

اعتذر لا استطيع ارفاق صورة توضيحية الآن ولكن ارجو ان يكون الكلام واضح لو حاولت التطبيق قليلا

 

[abouelhassan]

  في 27‏/10‏/2021 at 19:48, أبو عبدالله الحلوانى said:

نعم من خصائص الفوم في وضع التصميم للفورم من خصائص عدل علي خاصية close button الي لا 

اعتذر لا استطيع ارفاق صورة توضيحية الآن ولكن ارجو ان يكون الكلام واضح لو حاولت التطبيق قليلا

 

Expand  

هنا استاذى قمت بتعطيل الزر

ومع ذلك ظهر 

اشكرك اخى

[أبو عبدالله الحلوانى]

ظهر وغير مفعل علي ما اعتقد 

ويمكنك الغاء البوكس كله من الخاصية التي بالأعلي من هذه الخاصية 

control box = no

 

 

[abouelhassan]

  في 27‏/10‏/2021 at 20:42, أبو عبدالله الحلوانى said:

ظهر وغير مفعل علي ما اعتقد 

ويمكنك الغاء البوكس كله من الخاصية التي بالأعلي من هذه الخاصية 

control box = no

 

 

Expand  

قمت بالتنفيذ استاذى ولا ذال يظهر

بارك الله فيك اخى الكريم

[alzahrani2014]

تظهر في وضع التصميم لكن في وضع العرض تختفي

[abouelhassan]

  في 27‏/10‏/2021 at 21:05, alzahrani2014 said:

تظهر في وضع التصميم لكن في وضع العرض تختفي

Expand  

حبيبي يظهر فى العرض العادى اشكرك

 

تم تعديل أكتوبر 27, 2021 بواسطه abouelhassan

[ابو جودي]

الاستاذ الفاضل @abouelhassan بارك الله فيه لا يتحدث عن النماذج والتى اشرتم بالتعديل اليهما من خصائصها

وانما يقصد اطار الاكسس العام بدون اى نماذج اصلا والذى يغلق تطبيق الاكسس ككل حتى لو لم تكن هناك نماذج
 

تم تعديل أكتوبر 27, 2021 بواسطه ابا جودى

[ابو جودي]

اتفضل  ان شاء الله تجد ضالتك 

Disabling application close button.mdbFetching info...

[abouelhassan]

  في 27‏/10‏/2021 at 21:36, ابا جودى said:

الاستاذ الفاضل @abouelhassan بارك الله فيه لا يتحدث عن النماذج والتى اشرتم بالتعديل اليهما من خصائصها

وانما يقصد اطار الاكسس العام بدون اى نماذج اصلا والذى يغلق تطبيق الاكسس ككل حتى لو لم تكن هناك نماذج
 

Expand  

مظبوط استاذى الحبيب

بارك الله فيك

[ابو جودي]

  في 27‏/10‏/2021 at 22:18, ابا جودى said:

اتفضل  ان شاء الله تجد ضالتك 

Disabling application close button.mdb 228 kB · 0 downloads

Expand  

جرب الحل بالمرفق استاذى الكريم ووافينى بالنتيجة

[abouelhassan]

  في 27‏/10‏/2021 at 22:18, ابا جودى said:

اتفضل  ان شاء الله تجد ضالتك 

Disabling application close button.mdb 228 kB · 1 download

Expand  

الله الله الله تسلم ايدك استاذى الحبيب

نجاح باهر 

رزقك الله خير الدارين اللهم امين يارب

احبك فى الله

اخيك

[ابو جودي]

جزاكم الله خيرا 

احبكم الله الذى احببتمونا فيه ولاجله

[د.كاف يار]

حبيبي اب الحسن هذا للإثراء 

لتثبيت مقاس النموذج بحيث يأخذ الحد الأقصى من المقاسات في جميع الإتجاهات استخدم التالي

Dim lngWH As Long, lngWL As Long, lngWT As Long, lngWW As Long
 
    With Me
        DoCmd.Maximize
        lngWT = .WindowTop
        lngWL = .WindowLeft
        lngWH = .WindowHeight
        lngWW = .WindowWidth
        DoCmd.Restore
        Call .Move(lngWL, lngWT, lngWW, lngWH)
    End With

و لإخفاء شريط ادوات الأكسس

DoCmd.ShowToolbar "Ribbon", acToolbarNo

جميع هذه الأكود توضع في حدث عند الفتح 

[ابو جودي]

  في 28‏/10‏/2021 at 03:30, د.كاف يار said:

حبيبي اب الحسن هذا للإثراء 

لتثبيت مقاس النموذج بحيث يأخذ الحد الأقصى من المقاسات في جميع الإتجاهات استخدم التالي

Dim lngWH As Long, lngWL As Long, lngWT As Long, lngWW As Long
 
    With Me
        DoCmd.Maximize
        lngWT = .WindowTop
        lngWL = .WindowLeft
        lngWH = .WindowHeight
        lngWW = .WindowWidth
        DoCmd.Restore
        Call .Move(lngWL, lngWT, lngWW, lngWH)
    End With

و لإخفاء شريط ادوات الأكسس

DoCmd.ShowToolbar "Ribbon", acToolbarNo

جميع هذه الأكود توضع في حدث عند الفتح 

Expand  

يا سلام يا دكتور فضلا وكرما وليس امرا ان تتكرم على طلاب العلم امثالى بوضع مرفق صغير ليظهر اين توضع الاكود وكيف تستخدم نكون جميعا ممتنين ومن الشاكرين لوافر كرمكم 

[abouelhassan]

  في 28‏/10‏/2021 at 03:30, د.كاف يار said:

حبيبي اب الحسن هذا للإثراء 

لتثبيت مقاس النموذج بحيث يأخذ الحد الأقصى من المقاسات في جميع الإتجاهات استخدم التالي

Dim lngWH As Long, lngWL As Long, lngWT As Long, lngWW As Long
 
    With Me
        DoCmd.Maximize
        lngWT = .WindowTop
        lngWL = .WindowLeft
        lngWH = .WindowHeight
        lngWW = .WindowWidth
        DoCmd.Restore
        Call .Move(lngWL, lngWT, lngWW, lngWH)
    End With

و لإخفاء شريط ادوات الأكسس

DoCmd.ShowToolbar "Ribbon", acToolbarNo

جميع هذه الأكود توضع في حدث عند الفتح 

Expand  

ماشاء الله تبارك الله ربنا يحفظك يارب ويديك الصحة والعافية استاذى الحبيب تسلم ايدك

زادك الله من فضله اللهم امين يارب يارب يارب

[د.كاف يار]

و هذا مثال

 

Database2.accdbFetching info...

[abouelhassan]

  في 28‏/10‏/2021 at 05:20, د.كاف يار said:

و هذا مثال

 

Database2.accdb 400 kB · 5 downloads

Expand  

 جزيت الجنة يارب ويديك الصحة والعافية اللهم امين يارب

[Moosak]

  في 27‏/10‏/2021 at 22:18, ابا جودى said:

اتفضل  ان شاء الله تجد ضالتك 

Disabling application close button.mdb 228 kB · 12 downloads

Expand  

أستاذنا العزيز ..

جربت تشغيل الملف على نسخة الأكسس 365 ولم تعمل .. !

هل لرقم الإصدار دخل في ذلك ؟

[ابو جودي]

  في 28‏/10‏/2021 at 14:56, Moosak said:

جربت تشغيل الملف على نسخة الأكسس 365 ولم تعمل .. !

هل لرقم الإصدار دخل في ذلك ؟

Expand  

قطعا طالما انها لم تعمل اختلاف الاصدار هو السبب