*فورم* فتح نموذج بالنقر على زر الفأرة الايمن

هذا يلزم منه إنشاء قائمة مختصرة للنموذج الآخر وأقصد به النموذج الذي نريد فتح النموذج الثاني منه وسأسميه نموذج1 والثاني المطلوب فتحه نموذج2 .

1- اضغط بزر الفأرة الأيمن على أشرطة الأدوات ثم اختر تخصيص أو انقر قائمة أدوات ثم تخصيص .

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

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

4- انقر على كلمة مخصص الموجودة على الشريط بزر الفأرة الأيمن واختر خصائص ، في مربع نص تعليق اكتب اسم الأمر كما تحب أن يظهر في القائمة اليمنى وفي مربع نص عند الإجراء ضع :

=فتح_نموذج()

5- الآن انتقل لصفحة التبويب أشرطة الأدوات وابحث عن اسم الشريط الجديد وانقر عليه مرة واحدة ثم انقر زر خصائص ، ثم في مربع النوع اختر منبثق ستظهر رسالة اختر موافق ، لو بحثت عنها في الأشرطة الآن لن ترى الشريط الجديد لقد تحول إلى قائمة منبثقة .

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

7- في الوحدة النمطية الخاصة بالنموذج1 ضع الكود التالي :

Private Function فتح_نموذج()
DoCmd.OpenForm "الثاني"
End Function

ومن الأفضل في رأيي أن تحتوي القائمة على أكثر من أمر كإغلاق النموذج الحالي وغيره وأيضا تظهر بعض الأيقونات كشكل جمالي في نفس القائمة ، وكذلك إذا كنت تستخدم فتح النموذج2 من أكثر من نموذج اعمل الخطوات السابقة ولكن اجعل الدالة السابقة عامة .

ولك تحياتي

مشكور اخي ابو حمود على الرد وهذا ماعهدناه عنك

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

لقد أخطأت في كتابتي يجب أن يكون عند الإجراء بهذا الشكل :

=فتح_نموذج()

يعني ناقص القوسين جرب وأخبرني بالنتيجة .

ولك تحياتي

أخي fahadam إذا إشتغلت معك طريقة أخي أبوحمود ممكن ترسل لي المثال على الإيميل أو تضع لنا رابط وخالص دعواتي لأستاذنا أبو حمود على إبتكاراته و أشكرك من قلبي على تعاونك وعي و لكما كل الفضل

ابو حمود مشكور مرة ثانية

نفس الخطا تكرر والذي يفيد بأنه تعذر تشغيل الماكرو او تنفيذ الدالة =فتح_نموذج()

وسلامتك

الأخ fahadam

إما أن تضع للقاعدة رابط هنا أو ترسلها لبريدي لأرى سبب المشكلة .

سؤال أخير : هل وضعت الكود في وحدة نمطية عامة أم في الوحدة النمطية الخاصة بالنموذج ؟

ولك تحياتي

انحلت يابوحمود المشكلة بعد ما حذفت كلمة private من الدالة ووضعت الدالة في وحدة نمطية عامة وغيرت اسم الدالة الى اسم انجليزي.

يعطيك الف عافية اتعبناك معنا.

الأخ fahadam

غريبة تعمل عندي بدون أي مشكلة يمكن الأكسس عندك إنجليزي .

ولك تحياتي