moamen salem قام بنشر سبتمبر 19, 2016 مشاركة قام بنشر سبتمبر 19, 2016 سلام عليكم احبتي لو حد يقدر يفيدني في موضوعي يبقي جزاه الله كل خير في ناس بتفتح البرنامج وممكن يقعد اليوم كله مش بيشتغل عليه فمحتاج كود يقفل البرنامج نهائي في حالة عدم استخدامة مثلا لمدة 30 دقيقة 1 رابط هذا التعليق شارك More sharing options...
يوسف أحمد قام بنشر سبتمبر 19, 2016 مشاركة قام بنشر سبتمبر 19, 2016 (معدل) و عليكم السلام اخي العزيز مؤمن هذه طريقة لعمل ذلك و قد يكون هناك طرق اخرى 1- ضع مربع نصي على النموذج ( اجعل خاصيته مرئي على القيمة لا ) و في حدث عند الفتح للنموذج تحدد قيمة له كالتالي : Me.txtTimer = 5 على اعتبار ان اسم مربع النص txtTimer ... هذا سيحدد خمسة ثواني نفس الكود تضعه في حدث عند تحريك الماوس لمنطقة تفصيل النموذج و ذلك ليتم اعادة وضع القيمة بمربع النص 2- من خصائص النموذج و من التبويب حدث : تضع القيمة 1000 بالخاصية الفاصل الزمني لعدد الوقت و في حدث عند عداد الوقت تضع الكود التالي : Me.txtTimer = Me.txtTimer - 1 If Me.txtTimer = 0 Then DoCmd.Quit Else Exit Sub End If هذا الكود سيقوم بانقاص قيمة مربع النص بواحد حسب قيمة الفاصل الزمني و هي هنا تساوي ثانية واحدة حتى تصل قيمة مربع النص الى صفر فيتم اغلاق البرنامج بإمكانك تعديل القيمة من خمسة ثواني الى الرقم الذي تريده ( فلو اردت مثلا خمسة دقائق تضرب الخمسة في 60 ) بشرط ان تضع نفس القيمة في الاحداث التي وضعناها بها ( حدث عند فتح النموذج و حدث عند تحريك الماوس لمنطقة تفصيل النموذج ) تفضل مثال على ذلك بالتوفيق اغلاق البرنامج .rar تم تعديل سبتمبر 19, 2016 بواسطه يوسف أحمد 3 رابط هذا التعليق شارك More sharing options...
moamen salem قام بنشر سبتمبر 20, 2016 الكاتب مشاركة قام بنشر سبتمبر 20, 2016 13 ساعات مضت, يوسف أحمد said: و عليكم السلام اخي العزيز مؤمن هذه طريقة لعمل ذلك و قد يكون هناك طرق اخرى 1- ضع مربع نصي على النموذج ( اجعل خاصيته مرئي على القيمة لا ) و في حدث عند الفتح للنموذج تحدد قيمة له كالتالي : Me.txtTimer = 5 على اعتبار ان اسم مربع النص txtTimer ... هذا سيحدد خمسة ثواني نفس الكود تضعه في حدث عند تحريك الماوس لمنطقة تفصيل النموذج و ذلك ليتم اعادة وضع القيمة بمربع النص 2- من خصائص النموذج و من التبويب حدث : تضع القيمة 1000 بالخاصية الفاصل الزمني لعدد الوقت و في حدث عند عداد الوقت تضع الكود التالي : Me.txtTimer = Me.txtTimer - 1 If Me.txtTimer = 0 Then DoCmd.Quit Else Exit Sub End If هذا الكود سيقوم بانقاص قيمة مربع النص بواحد حسب قيمة الفاصل الزمني و هي هنا تساوي ثانية واحدة حتى تصل قيمة مربع النص الى صفر فيتم اغلاق البرنامج بإمكانك تعديل القيمة من خمسة ثواني الى الرقم الذي تريده ( فلو اردت مثلا خمسة دقائق تضرب الخمسة في 60 ) بشرط ان تضع نفس القيمة في الاحداث التي وضعناها بها ( حدث عند فتح النموذج و حدث عند تحريك الماوس لمنطقة تفصيل النموذج ) تفضل مثال على ذلك بالتوفيق اغلاق البرنامج .rar الله يعطيك الف عافية رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.