مطلوب استخراج الكود من بنود شريط قوائم أكسس toolbar

[ابوخليل]

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

في المرفق شريط قوائم عملته في اصدار 2003 

على الاصدار 2010 يظهر تحت القائمة Add-Ins

الآن اريد نقل هذه الأوامر خلف ازرار ظاهرة .. ولأن البنود كثيرة تخص الكثير من النماذج والتقارير ، وهذه البنود تحت تسميات متنوعة

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

مرفق صورة والمثال

Database1.accdb

[jjafferr]

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

المعذرة اخوي ابو خليل ، ما توصلت الى حل !!

اذا ممكن ترفق برنامج mdb وفيه شريط القوائم ، حتى ممكن نحاول منه.

[ابوخليل]

جزاك الله خير  .. وشكرا على المحاولة .

انا حقيقة لم انتظر  .. وعملت الاستبدال يدويا

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

لأني عملت الازرار واعطيتها مسميات واحداث متشابهه نسخ ولصق مرة واحدة

ثم من خلال الرسالة التي تظهر انسخ اسم النموذج والصقه في الكود خلف الزر

وبس كذا  .. اكرر شكري لك  ولكل من حاول 

 

[jjafferr]

في الواقع ، بعض الاحيان العمل اليدوي يكون اسرع من محاولة برمجة المطلوب 🙂

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

[ابوخليل]

لن نكون بحاجة الى موضوع مستقل وهذا العمل معلوم للكل بالضرورة

مثلا اذا عندي 5 قوائم تحت كل قائمة 5 ازرار

القائمة : ptn_a  وتحتها الازرار : a1 ، a2 ، a3 ، a4 ، a5

والقائمة :  ptn_b وتحتها ازرارها  b1  b2 .........

وهكذا لجميع القوائم  يصبح أمامنا 25 زر

اكتب هذا الكود والصقه 25 مرة

Private Sub a1_Click()
On Error GoTo err_Handeler
    Dim stDocName As String
    Dim stLinkCriteria As String
   
    stDocName = "yourForm"
    
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_err_Handeler:
    Exit Sub
err_Handeler:
    MsgBox err.Description
    Resume Exit_err_Handeler
    
End Sub

ثم اغير فقط اسم الزر واسم النموذج الذي سيتم فتحه

 stLinkCriteria المعيار كما تعلمون يكون جاهز ، فقد تحتاج اليه بعض النماذج عند الفتح ، حينها يتم تعريفه بسطر 

وسلامتكم ،،،

[ابوخليل]

اخوي جعفر

لك موضوع خاص بانشاء القائمة المختصرة ، وفيه كود لحذف القوائم القديمة السابقة او تغيير مسمياتها

هل يوجد كود بنفس الطريقة لحذف شريط القوائم اعلاه ؟

قد تقول : اجلب الكائنات الى قاعدة جديدة بدون تفعيل جلب القوائم

ولكني بحاجة الى قوائم اخرى موجودة فعلا

[jjafferr]

لما امس كتبت لك اني ما حصلت على حل ، فقد كنت ابحث عنه طوال اليوم ، ولقيت الكثير من الامثلة والحلول ، ولكن ما قدر اي منها معرفة اسم قائمتك !!

هذا الرابط به ما تسأل عنه : https://www.devhut.net/vba-list-application-command-bars/

ولكني لم استطع الحصول على قائمتك حتى من هذا الحل ، لهذا السبب طلبت منك الملف الاصل بصيغة mdb.

 

 

[ابوخليل]

اذا لم تصل لحل !! هل تنتظر مني ان اصل ؟ 🤔

هذا  الملف الاصل بصيغة mdb

TNDT.mdb

[ابوخليل]

ابشركم قبضت عليه  .. المشكلة انه امامنا ولكن لم ننتبه له

عثرت عليه بعد ان تم حذفه .. حزورة فزورة .. في آخر الخطوات سوف اخبركم كيف العثور عليه

اولا هذا الكود يستخرج قائمة كاملة بأسماء قوائم أكسس وهي كثيرة جدا .. وواضحة من مسمياتيها ( تسمية عامة تحمل الصفة) .. وانما انا ابحث عن اسم خاص

Sub ListCustomCommandBarControls()
Dim x
For Each bar In CommandBars
    x = bar.Name
Debug.Print x
Next
End Sub

وطبعا عثرت على ثلاثة : 

1- طباعة

2- (print)

3- (prscs ) والثالث هذا هو المطلوب

ادخلت الاسم الثالث هذا في امر الحذف هذا :

Private Sub Command1_Click()
 Application.CommandBars("prscs").Delete
End Sub

فطار من غير رجعة ..

الآن نرجع .. كيف وجدته بعد حذفه ؟

لما حذفته اعدت تشغيل المثال فخرجت لي رسالة خطأ بان  القائمة  prscs غير موجودة

هنا ذهبت الى خصائص قاعدة البيانات من ملف

فوجدت صاحبنا متربع في الحقل مع اختصار أخر بجانبه يستأنس به انظروا الصورة

طبعا بدلته الى الافتراضي ثم موافق فاختفى هو وأثره للأبد 

 

TNDT2.mdb

[jjafferr]

من قدك يا ولد ، جبتها من جذورها 🙂
شكرا جزيلا على المشاركة

[ابوخليل]

8 ساعات مضت, jjafferr said:

هذا الرابط به ما تسأل عنه : https://www.devhut.net/vba-list-application-command-bars/

يستفيد الباحث لا شك ولكني لم اجد اجابة شافية

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

ولكن الفائدة وجدتها في هذه الصفحة

[Foksh]

33 دقائق مضت, ابوخليل said:

ابشركم قبضت عليه  .. المشكلة انه امامنا ولكن لم ننتبه له

عثرت عليه بعد ان تم حذفه .. حزورة فزورة .. في آخر الخطوات سوف اخبركم كيف العثور عليه

اولا هذا الكود يستخرج قائمة كاملة بأسماء قوائم أكسس وهي كثيرة جدا .. وواضحة من مسمياتيها ( تسمية عامة تحمل الصفة) .. وانما انا ابحث عن اسم خاص

Sub ListCustomCommandBarControls()
Dim x
For Each bar In CommandBars
    x = bar.Name
Debug.Print x
Next
End Sub

وطبعا عثرت على ثلاثة : 

1- طباعة

2- (print)

3- (prscs ) والثالث هذا هو المطلوب

ادخلت الاسم الثالث هذا في امر الحذف هذا :

Private Sub Command1_Click()
 Application.CommandBars("prscs").Delete
End Sub

فطار من غير رجعة ..

الآن نرجع .. كيف وجدته بعد حذفه ؟

لما حذفته اعدت تشغيل المثال فخرجت لي رسالة خطأ بان  القائمة  prscs غير موجودة

هنا ذهبت الى خصائص قاعدة البيانات من ملف

فوجدت صاحبنا متربع في الحقل مع اختصار أخر بجانبه يستأنس به انظروا الصورة

طبعا بدلته الى الافتراضي ثم موافق فاختفى هو وأثره للأبد 

 

TNDT2.mdb 436 kB · 2 downloads

تصديقاً وتأكيداً لكلامك أستاذي الفاضل هو فعلاً في إحدة تجاربي عثرت على هذا الاسم prscs ، ولم يخطر في بالي أنه هو 🥺

فتجاهلته وافترضت انه الفاصل بين اسماء القوائم الرئيسية 🤦

 

ولكن فعلاً معلمنا قدها ، وجاب الذيب من ذيله 🙏

[jjafferr]

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

وطبعا عثرت على ثلاثة : 

1- طباعة

2- (print)

3- (prscs ) والثالث هذا هو المطلوب

10 ساعات مضت, Foksh said:

في إحدة تجاربي عثرت على هذا الاسم prscs ، ولم يخطر في بالي أنه هو 🥺

 

صحيح المثل اللي يقول: ما يحك جلدك مثل ظفرك !!

وانا كذلك لقيت هذا الاسم في القائمة الطويلة:

 والقائمة القصيرة 

 

 

 

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

يستفيد الباحث لا شك ولكني لم اجد اجابة شافية

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

ولكن الفائدة وجدتها في هذه الصفحة

 

في بحثي ، لا اعتمد على مصدر واحد (خصوصا اذا لم يعطني الاجابة المطلوبة).