كيف اعمل زر اذا تم الضغط عليه ..يقوم بالضغط على زر في نموذج اخر

اساتذتي الكرام ...............اعيد صيغة السؤال للتوضيح........................

اريد عندما تضغط على زر sum الموجود في نموذج sum ..........يقوم يتنفيذ الامر الموجود داخل sum التي في النموذج tb1

ويمكنكم عمل ذلك حتى اذا كانت sum الموجودة في tb1 ليست موجودة ولكن انا وضعتها لتقريب المثال ..............

اخي العزيز سلمك الله ورعاك.....

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

عندنا مثل يقول " لا تحزم راسك ما دام انه صحيح)

سهل امورك والله يسهل عليك ... اعمل الآتي

استعلام يعتمد على tb1 واجري عليه العمليات الحسابية التي تريد وقم باستدعائه اينما شئت

مرفق لك المثال..

والله المستعان...

_______________________________________.rar

الله يعطيك العافيه استاذي الكريم...............

اقتباس

عندنا مثل يقول " لا تحزم راسك ما دام انه صحيح)

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

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

واليكم المرفق لمن اراد الاطلاع................

_______________________________________.rar

عزيزي محمد راجع هذا الرابط:

/index.ph...c=164719&st

اشكرك استاذي كويت 10..............من طول الغيبات جاب الغنايم.....................

الله يعطيك الف عافية ......................نعم هذا الي ابيه 100%..................وقمت عليه ببعض التعديلات لان كان فيه مشاكل قليلة والحمد لله تم تلافيها ......

وهذه الطريقة لمن اراد ان يستفيد ..........

يوجد زر في نموذج ab يقوم بعملية الجمع في نفس هذا النموذج ...........تمام :lol:

ويوجد جدول اسمه cd يقوم بالضغط على الزر الموجود في جدول ab.........تمام التمام :D

اولا ....نضع في هذا الزر الموجود في نموذج cd هذا الكود ....الذي يقوم بالضغط على الزر الموجود في نموذج ab

	DoCmd.OpenForm "ab", , , , , acHidden

	Call Forms("ab").bu100_Click

DoCmd.OpenForm "ab"

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

الان اذا ضغطت على الزر سوف ينفذ الامر ولكن عندما تريد تنفذ مرة اخرى لابد يكون تركيز مؤشر الكتابة على الحقل c

ولتفادي هذه المشكلة ....نضع هذا الكود في نموذج ab في حدث عند التنشيط..........لكي ينقل التركيز مباشرة الى الحقل c

Me.c.SetFocus

ومن ثم نضع الكود الذي وضعناه في نموذج cd عند مرة اخرى ليكون متكرر ويكون بصورته النهائية هذه:

	DoCmd.OpenForm "ab", , , , , acHidden

	Call Forms("ab").bu100_Click

DoCmd.OpenForm "ab"



	DoCmd.OpenForm "ab", , , , , acHidden

	Call Forms("ab").bu100_Click

DoCmd.OpenForm "ab"

واذا تريد تعرف فائدة تكرار هذا الكود جرب امسحه وجرب البرنامج .....لن يضبط .... :blink:

والان تم بحمد الله ........... :)

الفضل لله ثم للاستاذ كويت 10 على كتابة الاكواد .........اما انا فقط ناقل ومعدل بشيئ بسيط

(رسالة للمشرفين ....تمت الاجابه عن سؤالي)

واليكم المرفق ......................تفضلوا

MHB.rar

بارك الله بالجميع