كيف يمكن استدعاء اجراء في نافذة معينة من نافذة أخر

يعني الأداة في نموذج آخر ؟

يكتب كذا

if form3.check1.value

يعني يذكر اسم النموذج وبعده الاداة

نعم الأداة في نموذج آخر ولكن ما أقصده هو كيف استدعي إجراء في داخل حدث تحميل شاشة أخرى؟؟

يبدو أنني كتبت المثال بطريقة خاطئة

مثلا

form3_load()

if check1.value=1 then

"استدعاء إجراء بداخل حدث تحميل form2"

كيف يمكن عمل ذلك؟؟؟؟؟

أتمنى أن يكون قصدي واضحاَ

يتم وضع الاجراء خارجي مثل

sub Hello ()
msgbox("مرحبا")
end sub

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

 
Hello

هذا صحيح أخي المتميز لقد وضعته في مديول ، ولكن قصدي هو ان استدعي الإجراء من داخل form3 اذا تم النقر على check1 الموجودة بداخلها ومن ثم يتم تنفيذه من داخل form2 لأن الإجراء سوف يحدث بعد وقوع حدث النقر لcommand1 الموجود في form2

بمعنى أن الإجراء يتم تنفيذه اذا تم النقر على check1 الموجودة في form3 ومن ثم إذا تم النقر على command1 الموجود في form2

؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

معذرة على الاطالة ولكن احتاج المساعده

اولا اعتذر على تأخر فهمي

اللي فهمته منك عندك فورم 2 و فورم 3

إذا نقر على الاداة الموجودة في فورم 3 يقوم البرنامج بعمل الـ Load لفورم 2

<_<

إذا كان كذا قومي باظهار الفورم 2 واجعلي خاصية الـVisible لفورم 2 تساوي False

Form2.Show
Form2.Visible = False

لا :s ليس هذا ما أقصده

الفكره ببساطه هي أنه عندما يتم تحقق شرط (check1.value=1 ) في form3 فإنه يقوم باستدعاء إجراء إلى form2 في حالة تم النقر على command1 ( حيث ان هذا الإجراء يقوم بترقيم السجلات بعد النقر على command1 في form2 )

دون الحاجة لإظهار form2 بحيث انه عند النقر على check1 وبعد خروج المستخدم من form3 وبمجرد ان يقوم المستخدم بفتح form2 والنقر على command1 فإنه يجد أن السجلات أخذت الترقيم المطلوب بمعنى تم استدعاء الإجراء.

هل اتضحت الفكرة؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ :wacko:

السلام عليكم

اهلا اخت دينا

نفرض ان عندك الحدث اللي عاوزة تستدعيه في Form1 وهو موضوع تحت حدث الكليك الخاص بـCommand1

وانتي هتحطي جملة الشرط في Form2

كل الحكاية هتيجي على Form1 اللي فيها الاجراء اللي عاوزة تستدعيه وتعملي Sub جديد

وبدل ماتكتبي الكود هتكتبي فيه Call command1_Click

وده طبعا اللي موجود في نفس الفورمة الاولى

وبعدين من Form2

تنادي على الصب اللي عملتيه في فورم 1 وبالتالي هينفذ الكود اللي فيه

يبقى المفروض الكود يتكتب كده

if check1.value=1 then

Form1.subname

end if

وده مثال بسيط مرفق للفهم واتمني يكون ده المقصود

اتمنى يكون ده المطلوب

تحياتي

============

الى اللقاء

yes.rar

شكرا MR^King على الرد الفعال

الآن اشتغل معي :D

أخي المتميز بارك الله في جهودك وشكرا جزيلا

العفو يا دينا وتمنياتي بالتوفيق دايما

سلام