كيف يمكن اغلاق نموذج بعد فترة زمنية ولتكن بعد 10 ثواني

السلام عليكم ورحمة الله وبركاته

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

Dim mansour As Date

If mansour = Empty Then mansour= Now()

If Now() >= DateAdd("s", 20, mansour) Then DoCmd.Close

تحياتي لك

mnsour كتب:

السلام عليكم ورحمة الله وبركاته

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

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

Dim mansour As Date

If mansour = Empty Then mansour= Now()

If Now() >= DateAdd("s", 20, mansour) Then DoCmd.Close

تحياتي لك

وعليكم السلام ورحمة الله وبركاته

شكرا لك وجاري التنفيذ

ولي عودة بعد ذلك ان شاء الله

وعليكم السلام

أضافة الى ماتفضل به الاخ منصور مشكورا

أذا رغبت في استخدام Loop تحديدا

فبالامكان أستخدام هذا الكود

s = s + 1
Do Until x <> 10
If s Mod 10 = 0 Then x = Nz(x, 0) + 1
Loop
DoCmd.Close

اليك المثال في المرفقات

db13.rar

هلا والله أخي أكسير الحياة لنا فترة طويلة لم نلتقي

شكرا على هذا اللوب الجميل ويظهر طول غيابي ضيع الأكسيس

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

لكما خالص الشكر

db1.rar

اخواني الأعزاء

منصور وأكسير الحياة وجب على أن أشكركما لتلبية استفساري

وقد تم تنفيذ العمل بشكل جيد ورائع وكود أخي منصور عمل معي ايضا ولا ادري لماذا لم يعمل سابقا ومن المؤكد حدوث خطأ مني

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

لكما مني كل الشكر والتقدير والاحترام

فكرة روعه و لكن انا استخدمتها لفتح ملف الصلاحيات والخروج من جميع الشاشات يعنى

تنفع علشان محدش يخش على صلاحيات احد فى حال استخدام برنامج معين بش المشكلة فى كود اعادة تشغيل البرنامج مرة اخرى