*فورم* كود يغلق النموذج الحالي بعد فترة زمنية محددة تبدأ من ترك إستخدامه

حمدا لله علي سلامتك

هذه رسائل من الأخوة أثناء غيابك

http://www.arabteam2000.com/vb/showthread....ht=%E3%D3%DE%D8

الأخ : إبن مسقط

السلام عليكم

حمدا لله علي سلامتك ورجوعك إلينا

____________

قمت بنقل هذا الكود من موضوع ( سلسلة - أكواد الأكسس )

أرجو أن يفيدك

_________________________________

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

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

Public Sub Delay(HowLong As Date)

TempTime = DateAdd("s", HowLong, Now)

While TempTime > Now

DoEvents

Wend

End Sub

__________________

وضع في حدث ( عند النقر ) للزر الكود التالي

Delay 5

MsgBox "الفريق العربي للبرمجة ... منتدى قواعد البيانات مايكروسوفت"

...........................

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

______________________

وتقبل تحياتي

الأخ/ابن مسقط

من أعماق القلب أهلاً وسهلاً بك والحمد لله على سلامتك

الأخو الكرام / مصلح الحريصي و محمد طاهر وسعودي31

شكرا لكما وزادكم الله من كل خير

مع العلم أني كتبت رد للجميع بخصوص عودتي إلى المنتدى في الوصلة التي أشار إليها الأخ/ محمد طاهر.

الأخ الكريم / سعودي31

شكرا على ردك ، ولكن الكود المذكور ليس هو المطلوب.

فأسمحو لي أن أعيد شرح مطلبي في الأتي :

أفترض أنني أقوم حالياً بإدخال بيانات من خلال نموذج "إدخال بيانات الموظفين"

ولسبب معين تركت مكتبي ، لذا أريد من نموذج "إدخال بيانات الموظفين" بعد أن أغيب عنه لمدة ( 3 دقائق ) أن يغلق نفسه وأن يعود إلى نموذج "القائمة الرئيسية".

أرجو أن يكون عرضي للمشكله هذه المره واضحاً.

والله يوفق الجميع.

الأخوة الكرام

هل من مجيب ؟:(

اخي الكريم

والله أعتذر لأنني لا أعرف الحل وحتى لا تقول ما بنعبرك هذا ردي

ليس عيباً أن أقول ما اعرف ولكن من العيب التجاهل

لك تحياتي

أخي الكريم/ مصلح الحريصي

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

بارك الله فيك وزادك علماً.

ولعلي في الأيام القادمة ان شاء الله أجد الحل لسؤالي منك أو من بقية الأخوان الأفاضل.

اخي العزيز .........

اذا كان قصدك برنامج بالأكسس

فأرجو أن تقرأ اجابتى المتواضعه

اعتقد ممكن حل هذه المشكله .. عن طريق خطوتين

الأولى:

خصائص النموذج .... ثم اذهب الى الفاصل الزمني لعداد الوقت وحدد الزمن الذي تريده حيث لو كتبت 5000 تعني خمس ثواني وهكذا

وبعد مرور الوقت المحدد سوف يغلق النموذج تلقائياً .

--------------------------

الثانيه:

عمل ماكرو لفتح النموذج الذي تريد فتحه وليكن اسمه

openform

وضع هذا الماكرو كحدث عند اغلاق النموذج المراد اغلاقه الذي حددت فيه خاصية الفاصل الزمني لعداد الوقت .

هذا والله أعلم

اخوك في الله :)

هذه طريقة بسيطة :

http://www.pcpages.com/harith77/AutoClose2.zip

(انقر بالزر الأيمن واختر حفظ الهدف باسم)

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

نشكركما

أدام الله علينا التعاون و حب نشر العلم

الأخ / مبتدىء جدا

والأخ/ حارث

ان شاء الله عيني عليكما بارده :)

أعتقد أنكما أسعدتما الكثيرين بالشرح والمثال كما أسعدتموني.

الله يوفقكم دنيا وأخره ويوفق الجميع.