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

[abouelhassan]

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

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

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

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

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

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

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

السلام عليكم 

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

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

[abouelhassan]

18 دقائق مضت, أبو عبدالله الحلوانى said:

السلام عليكم 

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

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

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

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

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

 

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

3 دقائق مضت, abouelhassan said:

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

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

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

 

[abouelhassan]

43 دقائق مضت, أبو عبدالله الحلوانى said:

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

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

 

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

ومع ذلك ظهر 

اشكرك اخى

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

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

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

control box = no

 

 

[abouelhassan]

6 دقائق مضت, أبو عبدالله الحلوانى said:

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

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

control box = no

 

 

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

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

[alzahrani2014]

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

[abouelhassan]

23 دقائق مضت, alzahrani2014 said:

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

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

 

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

[ابو جودي]

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

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

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

[ابو جودي]

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

Disabling application close button.mdb

[abouelhassan]

53 دقائق مضت, ابا جودى said:

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

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

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

بارك الله فيك

[ابو جودي]

14 دقائق مضت, ابا جودى said:

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

Disabling application close button.mdb 228 kB · 0 downloads

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

[abouelhassan]

31 دقائق مضت, ابا جودى said:

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

Disabling application close button.mdb 228 kB · 1 download

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

نجاح باهر 

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

احبك فى الله

اخيك

[ابو جودي]

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

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

[د.كاف يار]

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

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

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

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

[ابو جودي]

44 دقائق مضت, د.كاف يار 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

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

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

[abouelhassan]

1 ساعه مضت, د.كاف يار 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

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

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

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

[د.كاف يار]

و هذا مثال

 

Database2.accdb

[abouelhassan]

8 ساعات مضت, د.كاف يار said:

و هذا مثال

 

Database2.accdb 400 kB · 5 downloads

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

[Moosak]

16 ساعات مضت, ابا جودى said:

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

Disabling application close button.mdb 228 kB · 12 downloads

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

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

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

[ابو جودي]

في ٢٨‏/١٠‏/٢٠٢١ at 16:56, Moosak said:

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

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

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