ارجو منكم كيف اعمل شاشات رحيب

أخوي

نفرض أن اسم النموذج الذي سيخرج أولاً هو ( 1 )

والنموذج الذي سيخرج ثانياً هو ( 2 )

ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

نعمل ماكرو جديد ونحفظه باسم ( AUTOEXEC ) هكذا دون تغيير في الاسم

نذهب إلى تصميم هذا الماكرو

نضع في خانة ( إجراء ) هذا الأمر ( OpenForm )

وفي الاسفل نحدد اسم النموذج ونضع النموذج المسمى ( 2 )

ثم نضع في السطر الثاني من الإجراء أيضاً الأمر السابق هذا ( OpenForm )

ونحدد اسم النموذج في الأسفل ونختار النموذج المسمى ( 1 )

هكذا بهذا الترتيب ( 2 ) ثم ( 1 ) دون تقديم أو تأخير

وفي السطر الثالث من الإجراء نضع هذا الأمر ( Maximize ) والذي يقوم بدوره بتكبير النموذج تلقائي

ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

نذهب إلى خصائص النموذج الأول المسمى ( 1 )

وفي حدث ( عند عداد الوقت )

نضع هذا الكود

DoCmd.Close

وفي حدث ( الفاصل الزمني لعداد الوقت ) نضع 1000 يعني ثانية فقط إذا أردت زيادة الوقت فقم بزيادة العدد من 1000 إلى 2000 وهكذا فكل ألف يعني ثانية واحدو فقط

________________________

ونعمل نفس الإجراء الذي عملناه في النموذج ( 1 ) في النموذج الثاني المسمى ( 2 ) من خصائص النموذج ثم حدث كما سبق ذكره في الأول

مع ملاحظة أن يكون الوقت في النموذج ( 2 ) أكثر من الأول يعني الضعف مثلا ( إذا كان الوقت في النموذج 1 هو 1000 يكون الوقت في النموذج 2 هو 2000 ) وهذا أمر ضروري جدا

__________________________

وتقبل تحياتي

الف شكر ياعزيزي ولقد نجحت بكل سهولة