القائمة المختصرة - Shortcut menu

[jjafferr]

السلام عليكم 🙂

 

هناك الكثير من الميزات/الاوامر التي يعطينا برنامج الاكسس ، والتي يمكن ان نعمل لها بديل ، ولكن يكون هناك فرق في سرعة تنفيذ كودنا مقارنة مع الكود الاصل من الاكسس !!

مثل القائمة المختصرة التي تظهر لنا بالنقر على زر الفأرة الايمن ، والتي بها يمكننا ان نستغني عن الكثير الاوامر ، مثل الفرز والتصفية بأنواعه ،

ولكن وللأسف الشديد ، فأنا ارى ان 99.99% من البرامج ، يتم حذف هذه القائمة وعدم تفعيلها ، والسبب ان المستخدم يستطيع ان يدخل في تصميم النموذج من خلال هذه الاوامر(في الدائرة الحمراء) :

 

   و      

.

ويضطر المبرمج ان يعوض بقية الاوامر في القائمة ، بمجموعة من الازرار ، او بطرق مختلفة !!

-----------------------------------------------------------------------------------------------

 

الاكسس يسمح لنا ان نعمل قوائم مختصرة Shortcut Menu والتابعة لمجموعة  CommandBars ، حسب احتياجنا ، ونختار ما نضعه فيها 🙂

هناك 3 انواع من هذه القوائم :

الثابته ، والمؤقته ، والمؤقته التي تحتاج الى كود.

الثابته:

وهي التي عندما نعملها ، تصبح مستقله عن الكود ، وتُحفظ وتبقى في قاعدة البيانات بعد إغلاقها ، ويمكننا ان نستوردها في قاعدة بيانات اخرى عندما نستورد احد/جميع كائنات قاعدة البيانات الآخرى ، بإستخدام :

.

ونختارها في النموذج :

.

او التقرير :

.

هذا مثال لعمل الكود الاساس لعمل قائمة قطع/نسخ/لصق :  

Option Compare Database
Option Explicit

    Dim cmb As Object
    Dim cmbCtrl As Object
    Dim cmbName As String
'

'
' to use:
' Dim cbr As Commandbar
' Dim cbrButton as CommandbarControl
'
' we have to select in the References:
' Microsoft Office xx.x Object Library
'


Public Function SCM_Copy(Optional DeleteMe As Boolean = False)
    
    On Error Resume Next 'If menu with same name exists delete
    cmbName = "cmb_Copy"
    CommandBars(cmbName).Delete
    If DeleteMe = True Then Exit Function
    If Err.Number <> 0 Then Err.Clear
    
    Set cmb = CommandBars.Add(cmbName, msoBarPopup, False, False)
    
        With cmb
          .Controls.Add msoControlButton, 21, , , False   ' Cut
          .Controls.Add msoControlButton, 19, , , False   ' Copy
          .Controls.Add msoControlButton, 22, , , False   ' Paste
      End With
      
  Set cmb = Nothing
    
End Function

.

وشرح الكود :

1. اسم القائمة المختصرة ، والتي سوف نختارها في النموذج او التقرير ،

2. هذه المجموعة الاساس منبثقة Popup ،

3. بينما هذه المجموعات عبارة عن ازرار Buttons ، وقد تكون قائمة منسدلة Combobox ، او نص Edit نُدخل فيه قيمة معينة للتصفية مثلا ،

4. هل هذه القائمة مؤقته ؟ False معناها ثابته وتُحفظ في قاعدة البيانات ، بينما True معناها انها مؤقته وتعمل لما ننادي الوحدة النمطية/الكود ،

5. هذه ارقام كل امر ، وملف الاكسل المرفق من مايكروسوفت فيه جدول يضم جميع ارقام الاوامر للاكسس 2010 () ،

6. اذا اردنا ان نحذف هذه القائمة ، فننادي الوحدة النمطية بضم True في امر المناداة

 

 

 

المؤقته: ونستعمل True في مكان الرقم 4 اعلاه.

وهي التي عندما نعملها ، لا تصبح مستقله عن الكود ، ولا تبقى في قاعدة البيانات بعد إغلاقها ، ولا يمكننا ان نستوردها في قاعدة بيانات اخرى عندما نستورد احد/جميع كائنات قاعدة البيانات الآخرى (كما هو الحال مع القائمة الثابته) ، ويجب ان نستخدم "حدث فتح" النموذج/التقرير لعملها واستخدامها في النموذج/التقرير ، و "حدث اغلاق" النموذج/التقرير لحذفها ،

 

طيب ، خلونا نعمل هذه القائمة : 

Public Function SCM_Copy_Sort(Optional DeleteMe As Boolean = False)

    On Error Resume Next 'If menu with same name exists delete
    cmbName = "cmb_Copy_Sort"
    CommandBars(cmbName).Delete
    If Err.Number <> 0 Then Err.Clear
    
    Set cmb = CommandBars.Add(cmbName, msoBarPopup, False, False)
    
        With cmb
            Set cmbCtrl = .Controls.Add(msoControlButton, 21, , , False)    ' Cut
                cmbCtrl.Caption = "Cut..."
                cmbCtrl.FaceId = 21
            
            Set cmbCtrl = .Controls.Add(msoControlButton, 19, , , False)    ' Copy
                cmbCtrl.Caption = "Copy..."
                cmbCtrl.FaceId = 19
            
            Set cmbCtrl = .Controls.Add(msoControlButton, 22, , , False)    ' Paste
                cmbCtrl.Caption = "Paste..."
                cmbCtrl.FaceId = 22
                
                
            Set cmbCtrl = .Controls.Add(msoControlButton, 210, , , False)  'Sort Ascending
                cmbCtrl.BeginGroup = True
                cmbCtrl.Caption = "فرز تصاعدي..."
                cmbCtrl.FaceId = 210
                
            Set cmbCtrl = .Controls.Add(msoControlButton, 211, , , False)  'Sort Decending
                cmbCtrl.Caption = "فرز تنازلي..."
                cmbCtrl.FaceId = 211

      End With
  Set cmb = Nothing
    
End Function

.

وشرح الكود:

احنا توسعنا في الكود الاساسي ، واضفنا له :

1. تسمية اختيارية غير الافتراضية ، لاحظ في الصورة اعلاه اني استعملت الانجليزي والعربي ،

3. وهو لعمل خط فاصل في الصورة بين مجموعة قطع/نسخ/لصق ومجموعة فرز تصاعدي/تنازلي ،

.

2. ممكن ان نبدل الصورة الافتراضية التي تيجي مع الرقم ، بتبديل هذا الرقم (لاحظ صورة الاسهم للتصاعدي/التنازلي) : 

.

ومرفق ارقام جميع الصور الموجودة في الاكسس :

.

.

.

.

.

.

.

.

.

.

.

 

في قاعدة البيانات المرفقة myRight_Click.mdb ، بالاضافة الى القوائم الثابته اعلاه ، تم اضافة هذه القائمة ايضا :

.

والتقرير يحتوي على القائمة المؤقته التالية :

.

- ملف الاكسل myList.xlsx ، اخترت فيه اهم القوائم في وجهة نظري ، 

- ملف الاكسل AccessControls_2010.xlsx ، من مايكروسوفت ، يحتوي على جميع الاوامر 🙂

 

جعفر

 

المصادر:

http://dev-soln.com/access-shortcut-right-click-tool/

https://www.experts-exchange.com/articles/12904/Understanding-and-using-CommandBars-Part-II-Creating-your-own.html

https://filedb.experts-exchange.com/incoming/2014/02_w06/833359/CommandBars-II.mdb

https://www.experts-exchange.com/articles/18341/CommandBars-Part-III-Using-Built-in-Shortcut-Menus.html

http://www.skrol29.com/us/vtools.php

-----------------------------------------------------------------------------------------------------------

الجزء الثاني ، القائمة المؤقته

 

 

AccessControls_2010.xlsx

myList.xlsx

myRight_Click.zip

myRight_Click_Includes_Report.zip

[محمد أبوعبدالله]

جزاك الله خيرا استانا الفاضل

الحقيقة كنت اصمم القوائم المحتصرة التي احتاجها في اكسيس 2003 ثم استوردها للبرنامج

الآن بعد أن وفرت لنا هذا الكود الاكثر من رائع لتصميم القوائم بسلاسة فلست في حاجة الى الطريقة القديمة

فجزاك الله خيرا استانا الفاضل

تحياتي

[عبد الفتاح كيرة]

شكرا لك أستاذنا

ماذا عن القوائم المنسدلة مثل قائمة ملف و تعديل و ...

كيف يمكن عمل قوائم تتنقل بالمستخدم بين عناصر قاعدة البيانات كالنماذج و التقارير؟ و تكون بجوار القوائم الموجودة تحت مسمى وظائف إضافية

جزيل الشكر

[ابوآمنة]

شكرا جزيلا لك أستاذنا الفاضل جعفر

إضافة جميلة في المنتدى ، و حاجتها واردة ومتكررة .

وشرح وافي ومميز .

[صالح حمادي]

السلام عليكم

أستاذ جعفر موضوع في قمة الروعة

ملاحظة صغيرة في الكود الموضوع بالأعلى :

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

Public Const msoBarPopup = 5
Public Const msoControlButton = 1
Public Const msoControlEdit = 2
Public Const msoControlComboBox = 4
Public Const msoButtonUp = 0
Public Const msoButtonDown = -1

أخيرا لي الشرف العظيم أن أقوم بتثبيت هذا الموضوع

[أبوبسمله]

جزاك الله خيرا أخى واستاذى جعفر تسلم ايدك ولا تحرمنا من هذه الدروس الرائعه وفى انتظار المزيد منك ومن اخواننا واساتذتنا الكرام وحتى يكون بالموقع مرجع شامل لكل صغيره وكبيره

جزاكم الله عنا كل خير اخوانى واساتذتى

تقبلوا تحياتى وتمنياتى لكم بالتوفيق

طبتم واهتديتم

[محمد سلامة]

جزاك الله خيرا استاذ جعفر علي هذا الموضوع المميز جدا

 

[Ali Mohamed Ali]

بارك الله فيك استاذ جعفر بالتأكيد موضوع هام جدا ورائع جعله الله فى ميزان حسناتك

[ابوخليل]

شكرا استاذ جعفر 

موضوع تكثر الحاجة اليه ..

[kaser906]

موضوع مهم وجميل

شكرا لك استاذنا 🌹

[qathi]

بارك الله فيك أستاذنا الكبير @jjafferr .. أبداع وتألق 

موضوع مهم نحتاج ألية

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

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

جزاك الله خيرا وبارك الله في علمكم وعملكم وعمركم. 

وأمدكم بالصحة والعافية أعواما عديدة وأزمنة مديدة.

 

[at_aziz]

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

صادفتني مشكله  عن الظفط على خيار تصحيح الكود debug

تظهر الرساله التاليه

[jjafferr]

وعليكم السلام 🙂

 

اضف هذا المتغير الى القائمة:

Public Const msoControlPopup = 10

 

جعفر

[عبدالله المجرب]

ما شاء الله 

موضوع متكامل وشرح وافي 

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

[Radwan0]

اخي @jjafferr السلام عليكم

عند تغيير الكلمات cut,copy,paste الى اللغه العربيه تبقى الكلمات نفسها في النموذج بالرغم من تغييرها في المودل

هل هنالك مشكلة ؟

[Radwan0]

في 1‏/7‏/2022 at 23:23, RaDwAn00 said:

اخي @jjafferr السلام عليكم

عند تغيير الكلمات cut,copy,paste الى اللغه العربيه تبقى الكلمات نفسها في النموذج بالرغم من تغييرها في المودل

هل هنالك مشكلة ؟

ارجو مساعدتكم اخوتي 

[jjafferr]

في 2‏/7‏/2022 at 00:23, RaDwAn00 said:

هل هنالك مشكلة ؟

وعليكم السلام 🙂

لا توجد مشكلة ، فمثالي اعلاه يحتوي على كلمات عربية ايضا ،

اعمل مثالك ، واحفظ البرنامج ، ثم افتح برنامج الآخر واستورد منه هذه القائمة ، وستكون باللغة العربية 🙂

 

وحتى اذا اردت استعماله نفس قاعدة البيانات ، فترى من الملاحظة في الكود بأنه سيحذف القائمة السابقة والتي هي بنفس الاسم، ويستبدلها بالقائمة الجديدة :

في 1‏/1‏/2020 at 23:56, jjafferr said:

On Error Resume Next 'If menu with same name exists delete

 

جعفر

[Lamyaa]

ما شاء الله يا أهل عـــــــــــمــــــــــان

 

جزيل الشكر على هذا الإثراء الرائع

[Elsayed A Eldiasty]

في 13‏/8‏/2022 at 07:13, jjafferr said:

وعليكم السلام 🙂

لا توجد مشكلة ، فمثالي اعلاه يحتوي على كلمات عربية ايضا ،

اعمل مثالك ، واحفظ البرنامج ، ثم افتح برنامج الآخر واستورد منه هذه القائمة ، وستكون باللغة العربية 🙂

 

وحتى اذا اردت استعماله نفس قاعدة البيانات ، فترى من الملاحظة في الكود بأنه سيحذف القائمة السابقة والتي هي بنفس الاسم، ويستبدلها بالقائمة الجديدة :

 

جعفر

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

لاكن انا اريد انا تستدعي عند شريط القوائم المختصرة  مثل الصورة ---

وارجو ان تعرفني الطريقة لو امكن

تجريبي.accdb

تم تعديل مارس 20, 2023 بواسطه Elsayed A Eldiasty

[أحمد العيسى]

فيما سبق (فى 2003 ) كان هناك إمكانية نسخ صورة زر  ، ثم لصقها لزر آخر

"مرفق ارقام جميع الصور الموجودة في الاكسس "

كما ترى عدد كبير جداً  من الصور

كيف يمكن تحقيق ما ذكرته " نسخ ثم لصق " ؟

[jjafferr]

16 ساعات مضت, أحمد العيسى said:

فيما سبق (فى 2003 ) كان هناك إمكانية نسخ صورة زر  ، ثم لصقها لزر آخر

"مرفق ارقام جميع الصور الموجودة في الاكسس "

كما ترى عدد كبير جداً  من الصور

كيف يمكن تحقيق ما ذكرته " نسخ ثم لصق " ؟

يمكنك انزال المرفق من هذا الرابط والذي يعطيك فكرة عن طريقة العمل:
https://post.bytes.com/forum/topic/access/841659-work-on-access-icon?p=5288312#post5288312

Extract Bitmaps.zip