كيف استطيع عمل مؤقت للنموذج الرئيسي ؟
السلام عليكم ورحمة الله وبركاته
توجد لدي قاعدة بيانات أكسس وبها عدة مستخدمين من نفس الجهاز فقد ينسى أحد المستخدمين قاعدة البيانات مفتوحة ما اريد عمله كالتالي :-
عمل برمجة للنموذج الرئيسي بحيث عند عدم تنشيطه او استخدامه لمدة اربع دقائق او خمس تغلق قاعدة البيانات ؟
ارجو الافادة جزاكم الله خيرا
===
أستمد قوتي من ايماني بالله وأشعر بالراحه النفسية عندما اذكر اسم الله . الحمد لله
===
المشتاق الى الجنة
أبو صفاء - مسقط
===
هذه الاكواد من مثال للأخ حارث
Dim MyTime As Date
Private Sub Form_AfterUpdate()
MyTime = Now()
End Sub
Private Sub Form_Current()
MyTime = Now()
End Sub
Private Sub Form_Timer()
If MyTime = Empty Then MyTime = Now()
If Now() >= DateAdd("n", 1, MyTime) Then DoCmd.Close
'If Now() >= DateAdd("n", 3, MyTime) Then DoCmd.Close
End Subو فيها أنه مع أي تعديل يتم بدء حساب الوقت ثانية
و اذا لم يتم التحديث خلال الفترة المحددة يتم الاغلاق
و يمكن استبدال docmd.close
ب
docmd.quit
مع تحديد ال Timer interval للفورم
مثلا ب 3000
أشكرك اخي العزيز
اذا كان يوجد لديك نموذج لهذا فارجو المساعده ؟
ولك الأجر والثواب
أخيك أبو صفاء
===
أستمد قوتي من ايماني بالله وأشعر بالراحه النفسية عندما اذكر اسم الله . الحمد لله
===
المشتاق الى الجنة
أبو صفاء - مسقط
===
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
