شريط الاختصارات

[سامر محمود]

السلام عليكم 

الاخوة الافاضل 

من فضلكم عايز الغي شريط الاختصارات من الاكسس اثناء تشغيل البرنامج ويكون شكله برنامج

[Moosak]

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

انسخ هذي الدالة عندك في موديول جديد :

Public Function ShowHideRibbon(ShowRibbon As Boolean)

    On Error GoTo ErrHandler
    
'*********************( إخفاء/إظهار الشريط العلوي وجميع النوافذ )**************************
    
    If ShowRibbon = False Then
'--------------------------------(إخفاء الريبون والنفجيشن بان)
        DoCmd.ShowToolbar "Ribbon", acToolbarNo
    '    Hide Navigation Pane:
        DoCmd.NavigateTo ("acnavigationcategoryobjecttype")
        DoCmd.RunCommand (acCmdWindowHide)
'--------------------------------(جميع تضبيطات تقفيل القاعدة وإخفاء القوائم ومنع الزر الأيمن والاختصارات)
        Application.SetOption "Show Status Bar", False
        CurrentDb.Properties("ShowDocumentTabs") = False
        Application.SetOption "Auto compact", True
        Application.SetOption "Remove Personal Information", False
        Application.SetOption "Themed Form Controls", False
        Application.SetOption "DesignWithData", False
        CurrentDb.Properties("AllowDatasheetSchema") = False
        Application.SetOption "CheckTruncatedNumFields", False
        CurrentDb.Properties("AllowFullMenus") = False
        CurrentDb.Properties("AllowShortcutMenus") = False
    
    ElseIf ShowRibbon = True Then
 '--------------------------------(إضهار الريبون والنفجيشن بان)
        DoCmd.ShowToolbar "Ribbon", acToolbarYes
        'Unhide the navigation pane
        On Error Resume Next
            Call DoCmd.SelectObject(acTable, , True)
            Call DoCmd.SelectObject(acMacro, , True)
            Call DoCmd.SelectObject(acForm, , True)
        On Error GoTo ErrHandler
'--------------------------------(فتح خصائص قاعدة البيانات وإظهار القوائم وتفعيل الزر الأيمن والاختصارات)
        Application.SetOption "Show Status Bar", True
        CurrentDb.Properties("ShowDocumentTabs") = True
        Application.SetOption "Auto compact", True
        Application.SetOption "Remove Personal Information", True
        Application.SetOption "Themed Form Controls", True
        Application.SetOption "DesignWithData", True
        CurrentDb.Properties("AllowDatasheetSchema") = True
        Application.SetOption "CheckTruncatedNumFields", True
        CurrentDb.Properties("AllowFullMenus") = True
        CurrentDb.Properties("AllowShortcutMenus") = True
    
    End If
'---------------------------------------------------------------------------

ErrHandler:
    If Err.Number <> 0 Then
        MsgBox Err.Number & " \\\\\ " & Err.Description, , "Function: ShowHideRibbon"
        Resume Next
    Else
    Exit Function
    End If

End Function

هذي الدالة تخفي لك الشريط العلوي والجداول وجميع العناصر وغيرها ..

بعدين أعمل ماكرو جديد واحفظة باسم Autoexec ( ضروري التسمية تكون نفسها بالحرف )

افتح الماكرو واعمل فيه أمر RunCode 

ونادي الدالة هكذا :   

=ShowHideRibbon(False)

وإذا بغيت تغير رايك وتظهر الشريط العلوي وبقية العناصر تغير ال False إلى True

ثم تشغل الماكرول بالضغط على RUN وبعدها تعيد تشغيل البرنامج ..


 

<< المرفق >>

https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=216275&key=be0665907152bc7f887f7580f9fc9983

[سامر محمود]

للاسف اخي الكريم عملت اللي قولته بالظبط ولسة الشريط موجود

[Moosak]

4 ساعات مضت, سامر محمود said:

ولسة الشريط موجود

أعد تشغيل البرنامج مرة أخرى .. لأن التشغيل الأول يحتاج لإعادة تشغيل البرنامج لكي يتم تطبيقها بشكل كامل ..
ولن تحتاج لإعادة هذه الخطوة في كل مرة .. هي فقط المرة الأولى 🙂 

وهذا مثال مرفق يوضح النتيجة وبه الكود والماكرو ..
ولتعديل الماكرو ورؤية العناصر إفتح الملف بزر الـ Shift 🙂 

 

<<  تم نقل المرفق للمشاركة التالية >>

https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=216275&key=be0665907152bc7f887f7580f9fc9983

 

[سامر محمود]

انا فعلا عملته تاني كوبي بالظبط ومشتغلش معايا؟

بس الغريب انه شغال في الملف اللي حضرتك بعته

[الحلبي]

1 ساعه مضت, Moosak said:

ولتعديل الماكرو ورؤية العناصر إفتح الملف بزر الـ Shift 🙂 

والاغرب فى مثال الاستاذ/ موسى 

عند تحويل false  الى true ان بعض عناصر قاعدة البيانات  لا تظهر كلها بل يظهر من file ـ home  فقط

استاذ / موسى حاول ان تعدل فى الماكرو الى true او احذف الماكرو او احذف الموديول لا تظهر جميع العناصر ويظهر منها فقط file - home

ممكن اكون انا غلطان او جهازى به شئ ولكن جرب وقل لى ما الخطأ

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

[Moosak]

2 ساعات مضت, الحلبي said:

عند تحويل false  الى true ان بعض عناصر قاعدة البيانات  لا تظهر كلها بل يظهر من file ـ home  فقط

كلها شغالة وظاهرة معي أستاذي العزيز 🙂 

فقط تنبيه بسيط وقمت بعمل تعديل بسيط  على الكود : بعد التغيير من  false الى true  أو العكس إضغط مباشرة على Run ثم أعد التشغيل ويعمل معك بإذن الله

 

 

ولمزيد فائدة أضفت للملف ماكرو جديد وظيفته أنه يمنع استخدام زر F11 واللي يقوم بإظهار الجداول والنماذج عندما تكون مخفية 🙂 

 

3 ساعات مضت, سامر محمود said:

انا فعلا عملته تاني كوبي بالظبط ومشتغلش معايا؟

أخي سامر جرب انسخ (نسخ / لصق) الماكرو والموديول اللي معاي عندك ..

وإذا ما اشتغلت .. أرفق برنامجك علشان نشوف سبب المشكلة 🙂 

 

AutoExec.accdb

[سامر محمود]

للاسف اخي الكريم مشتغلتش بس انا تعبتك معايا والله 

تحياتي لصبرك معايا

[Moosak]

25 دقائق مضت, سامر محمود said:

للاسف اخي الكريم مشتغلتش

🙂👇🏼

منذ ساعه, Moosak said:

وإذا ما اشتغلت .. أرفق برنامجك علشان نشوف سبب المشكلة 🙂 

 

[الحلبي]

الان, Moosak said:

إضغط مباشرة على Run ثم أعد التشغيل ويعمل معك بإذن الله

فعلا اشتغل وظهرت جميع الادوات على الشريط بعد الضغط على run

والتحويل من false الى true يعمل بشكل ممتاز 

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