Abdelaziz Osman قام بنشر فبراير 19 قام بنشر فبراير 19 السلام عليكم ورحمة الله هل يوجد إمكانية داخل برنامج الاكسيس من خلالها يتم غلق البرنامج تلقائيا بعد 15 دقيقة اقصد برنامج المستخدم وليس قاعدة البيانات
Foksh قام بنشر فبراير 19 قام بنشر فبراير 19 35 دقائق مضت, Abdelaziz Osman said: اقصد برنامج المستخدم وليس قاعدة البيانات وضح هذه الجزئية ، وان شاء الله يوجد امكانيات
Abdelaziz Osman قام بنشر فبراير 19 الكاتب قام بنشر فبراير 19 (معدل) يوجد لقاعدة البيانات برنامج اكسيس واجهة المستخدم الذى يحتوى على العديد من النماذج والاستعلامات وخلافة هل يوجد كود معين يغلق برنامج واجهة المستخدم بالكامل بعد وقت معين لان كثير من الوقت يترك المستخدم البرنامج فى وضع التشغيل دون العمل عليه تم تعديل فبراير 19 بواسطه Abdelaziz Osman
kkhalifa1960 قام بنشر فبراير 19 قام بنشر فبراير 19 تفضل استاذ @Abdelaziz Osman مرفق من مكتبتي . Main_Form Close After 15 minute.rar 3
Foksh قام بنشر فبراير 19 قام بنشر فبراير 19 (معدل) سنشرح الفكرة والأكواد .. بداية قمت بإنشاء متغيرين في أول الأكواد ، هما :- Private Const TimeoutMinutes As Integer = 1 قمت بإنشاء متغير ثابت ( Const ) يسمى ( TimeoutMinutes ) ، ويتم تعيين قيمته إلى 1 تعبيراً عن دقيقة واحدة. ( وطبعاً تستطيع تغييره كما تريد ) سنستخدم هذا المتغير لتحديد المدة الزمنية (بالدقائق) التي يجب أن يمر ولا توجد فيها حركة للماوس حتى يتم اعتبار النموذج في وضع الخمول . Private LastMouseMoveTime As Date هنا سنقوم بإنشاء متغير خاص (Private) يسمى ( LastMouseMoveTime ) ويتم تحديده كنوع ( Date ) لأنه سيتم تخزين قيمة بصيغة وقت . يُستخدم هذا المتغير لتخزين الوقت الأخير الذي حدثت فيه حركة الماوس على النموذج. الآن بدأت في حدث عند التحميل لتثبيت قيمتين ، هما :- أولاً المتغير الخاص لتكون قيمته كمتغير الوقت الذي تم فتح النموذج فيه LastMouseMoveTime = Now ثانياً قمت بتشغيل الأمر كل دقيقة بالسطر التالي Me.TimerInterval = 60000 وفي حدث تحريك الماوس ، قمت بجعله يأخذ قيمة الوقت الحالي مرة أخرى كحدث عند التحميل LastMouseMoveTime = Now وفي حدث الوقت سيتم التحقق من أن الماوس لم يتم تحريكه منذ آخر قيمة تم تسجيلها في المتغير آخر حركة للماوس سابقاً ، بالكود التالي تخطي الخطأ لأنه سيتقوم بمهمة تغيير في النموذج عند مرور الوقت ، فوجب تلافي الخطأ لأنه لن يؤثر على النموذج On Error Resume Next سيتم التحقق من آخر مدة زمنية لتحريك الماوس ما إذا تخطيناها أم لا. If Now - LastMouseMoveTime > TimeValue("00:00:" & TimeoutMinutes * 60) Then اذا تحقق الشرط وكان الوقت المسجل في المتغير أقل بدقيقة من الوقت الحالي فستظهر رسالة ولك حرية حذفها بالمهمة التي تريدها . MsgBox "تم تسجيل الخروج بسبب عدم تحريك الماوس", vbInformation بعد الرسالة سيتم اغلاق آكسيس . طبعاً تستطيع هنا أن تعدل الأحداث كما ترغب . DoCmd.Quit End If تم تعديل فبراير 19 بواسطه Foksh 4
Abdelaziz Osman قام بنشر فبراير 19 الكاتب قام بنشر فبراير 19 بالفعل عمل رائع لاستاذنا ,ومعلمنا @kkhalifa1960 واستاذنا ومعلمنا @Foksh لسيادتكم أفضل الإجابات ساستخدم كلا. الحلين لكما منى كل التحية والتقدير 2
ابوخليل قام بنشر فبراير 19 قام بنشر فبراير 19 10 ساعات مضت, Abdelaziz Osman said: اقصد برنامج المستخدم وليس قاعدة البيانات ايضا من خلال امثلة الاخوة الكرام بعد انقضاء الوقت يمكنك اظهار شاشة الدخول والمطالبة بكلمة المرور ويبقى البرنامج غير مفعل في الخلفية 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.